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DIGODEMAQ 



O QUE E CÓD IGO DE MAQUINA? 
VANTAGENS EM RELAÇÃO A O BASIC. 
COMO COMPREENDER CÓDIGO DE 



Utilizado na programação de jogos, 
o código de máquina proporciona 
uma ação rápida e contínua. 
Antes de empregá-lo, porém, você 
deve saber como ele afeta 
o desempenho do seu computador. 

O BASIC constitui sem dúvida a mais 
difundida e popular linguagem de pro- 
gramação. Universalmente, conhecido, 
ele é fácil de aprender e pode ser adap- 
tado a diferentes máquinas. Seus pro- 
gramas, contudo, ocupam grandes espa- 
ços de memória e permitem apenas um 
movimento de cada vez. Assim, se um 
canhão atira, num jogo de guerra, o res- 
to da ação lem que esperar, mesmo que 
seja por uma fração de segundo. 

O BASIC usa palavras da linguagem 
humana, tiradas do inglês, e operações 
semelhantes às da aritmética, fáceis de 
compreender. Mas seu computador não 
pensa em inglês nem entende os símbo- 
los aritméticos. Ele opera baseado em 
impulsos elétricos que representam nú- 
meros. E essa conversão é a causa de sua 
lentidão ao trabalhar com o BASIC. 

Código de máquina é uma linguagem 
computacional composta apenas de nú- 
meros equivalentes àqueles que o com- 
putador utiliza. Assim, quando você 
emprega esse código não deve esperar 
que o computador responda em lingua- 
gem humana. 

Consideremos um exemplo extraído 
dos computadores compatíveis com o 
Sinclair Spectrum; o código de máqui- 
na se parecerá com isto: 

B9 28 08 

Em BASIC o equivalente é: 
100 IF A=C THEN GOTO 190 

O código de máquina consiste, desse 
modo, numa série de números de dois 
dígitos. A letra B da linha acima é, na 
realidade, um símbolo. Ela representa 
o número 1 1 , em notação hexadecimal. 

Esses números hexadecimais são in- 
troduzidos na memória do computador. 
Instruções de operação, dados, núme- 
ros, letras, palavras e endereços de me- 
mória são representados por sinais de 
dois dígitos. E o computador identifica 




a diferença entre essas informações pe- 
la ordem em que eles ocorrem no pro- 
grama. Por exemplo, o primeiro núme- 
ro em qualquer programa precisa repre- 
sentar uma instrução. Se, por engano, 
você digitar um número qualquer nesse 
ponto, representando um dado ou um 
endereço de algum dado, o computador 
tentará interpretá-lo como uma instru- 
ção válida. A digitação desses números 
exige, portanto, uma precisão absoluta; 
caso contrário, o programa não funcio- 
nará. 



VANTAGENS DO CÓDIGO DE MAQUINA 



Quando você digita uma linha em 
BASIC, o computador tem que transpô- 
la para sua própria linguagem, antes de 
executá-la. Este é um processo trabalho- 
so que toma muito tempo, pois uma ins- 
trução em BASIC raramente é traduzi- 
da para um só comando ou declaração 
em código de máquina. Ela resulta, com 
frequência, em vários códigos de ope- 
ração. 



Quando se executa um programa 
completo escrito em BASIC, cada linha 
tem que ser interpretada sequencialmen- 
te. O computador não armazena os re- 
sultados dessa tradução; se a mesma li- 
nha for executada novamente, o com- 
putador terá que interpretá-la outra vez. 

Sempre que o computador encontra 
uma instrução em BASIC, executa as se- 
guintes tarefas: 

• reconhecer a instrução em BASIC; 

• traduzir essa instrução para uma sé- 
rie de outras em código de máquina; 
■ executar as instruções, uma a uma; 

• passar para a próxima linha do pro- 
grama em BASIC. 

Repetido muitas vezes, esse proces- 
so torna-se lento e moroso. É possível, 
porém, compilar um programa em BA- 
SIC, isto é, traduzi-lo integralmente pa- 
ra código de máquina, de uma só vez, 
antes de executá-lo, armazenando a tra- i 
duçào. A compilação é mais eficiente | 
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que a interpretação, mas os programas 
resultantes são ainda bastante lentos. 

Em contrapartida, a tradução do 
programa em código de máquina dire- 
tamente para a operação interna do 
computador quase não consome tempo. 
Nesse caso, há uma simples conversão 
de um número em outro, e não a tradu- 
ção de um comando de linguagem em 
vários outros de código de máquina. Os 
programas tornam-se, assim, mais cur- 
tos e eficientes. 

Os programas abaixo fazem a mes- 
ma coisa, usando BASIC e código de 
máquina. Compare suas velocidades re- 
lativas. 



10 CLEAR 200.31000 

20 DEFUSR0-31000 

30 FOR N-31000 TO 31015 

40 READ A 

50 POKE N , A 

60 NEXT 

70 CLS0 

60 PRINT g0."ISTO ESTA EH BASIC 

90 FOR N-l TO 500:NEXT 
100 FOR N-1056 TO 1535 
110 POKE N,PEEK(N+34000) 
120 NEXT 

130 FOR N-l TO 1000:NEXT 
140 CLS0 

150 PRINT S0.-ISTO ESTA EM CODI 

GO DE MAQUINA." 

160 FOR N-l TO 1000:NEXT 

170 N-USR0{0) 

180 FOR N-l TO 2000:NEXT 

190 DATA 206,136,240,142.4.32.1 

66.192,167,126,140,6.0,38.24 7.5 



Atenção: o programa abaixo está es- 
crito em BASIC para computadores 
com o sistema DOS (disquete) c não se- 
rá aceito pelo BASIC nível II normal 
(cassete). 

Ao ligar a máquina, responda com o 
número 60000 à pergunta "Mem. usa- 
da?", ou ainda "Memory size?" (para 
computadores com 48 Kbyles de memó- 
ria apenas). 

10 CLS 

20 DEFUSR0--4536 

30 FOR N--4356 TO -4523 

40 READ A 

50 POKE N.A 

60 NEXT N 

70 CLS 

80 PRINT " ISTO ESTA EM BASIC" 
90 FOR 1=1 TO 500:NEXT 
100 FOR N-15360 TO 16383 
110 POKE N.65 

1120 NEXT N 
130 FOR N-l TO 1000:NEXT 



140 CLS 

150 PRINT "ISTO ESTA ' EM LIN- 
GUAGEM DE MAQUINA" 

160 FOR N=l TO 1000:NEXT 

170 N=USR0 (0) 

180 FOR 1-1 TO 2000:NEXT 

190 DATA 33.0.60,17,1,60,1-. 255, 
3,54,65.237,176,201 



10 CLEAR 29999 

20 FOR n-30000 TO 30011 

30 READ a 

40 POKE n.a 

50 NEXT n 

60 PRINT -lato esta em BASIC" 
70 FOR n-16384 TO 22527 
80 POKE n.PEEK (n-16384) 
90 NEXT n 
100 CLS 

110 PRINT "lato esta em Código 

de Maquina" 
120 PAUSE 100 
130 RAND USR 30000 
140 STOP 

150 DATA 33,0,0.17,0,64,1,0,24 
.237,176,201 



10 CLEAR200 , &.HDFFF 

20 DE FINTA- 2 

30 AD-S.HEO0O : DEFUSR-AD 

40 FOR I-0TO10 

50 READAS 

60 POKE AD+I,VAL("&H"+AS) 
70 NEXT 

80 DATA0E.98,ED,6B,0,1,06.FF.ED 

.B3.C9 

90 CLS 

100 PRINT "lato esta em BASIC" 

110 FOR 1-1 TO 1000:NEXT 

120 SCREEN 2 

130 PSET (0,0) 

140 FOR 1-1 TO 6144 

150 OUT 152,RND{1)*255 

160 NEXT I 

170 CLS 

180 SCREEN 0 

190 PRINT"Isto esta em cúdigo d 

200 FOR 1-0 TO 1000:NEXT 

210 SCREEN 2 

220 PSET(0,0) 

230 FOR 1-1 TO 25 

240 A-USR(B) 

250 NEXT 

260 GOTO260 



50 NEXT 

55 TEXT : HGR : HOME : VTAB 24 
: PRINT "Isto eata em linguagem 
de maquina" 
60 FOR I - 1 TO 3000: NEXT 
65 CALL 800 

70 DATA 169,0.133.20,133,22,1 
69,32 

80 DATA 133.21,169,193.133,23 
,160.255 

90 DATA 177,22.145,20.136.208 
.249.165 

100 DATA 21 ,201 ,63. 208.1,96.2 
30,21,230.23,76.46.3 

Como você vai ver, tudo que o pro- 
grama faz é encher a tela de caracteres 
ao acaso ("lixo", na gíria dos progra- 
madores). Entretanto, a velocidade com 
que a versão em linguagem de máquina 
faz isso é incomparavelmente maior do 
que a do programa cm BASIC. 



A grande dificuldade do código de 
máquina surge quando se quer escrevê- 
lo ou depurá-lo de erros. Poucas pessoas 
conseguem lembrar-se de todos os có- 
digos numéricos c instruções. Para com- 
plicar ainda mais, os códigos de opera- 
ção (opcodes) não são distinguiveis dos 
outros números que alimentam o com- 
putador. Assim, você não consegue en- 
tender um trecho de programa, a não ser 
que o acompanhe desde o começo — o 
que não ajuda quando se está procuran- 
do erros no programa. 

Os códigos numéricos de operação, 
além disso, diferem consideravelmente 
entre si, conforme o microprocessador 
que é usado no computador, de modo 
que traduzir programas em código de 
máquina de um tipo de computador pa- 
ra outro pode ser bastante difícil. 

Uma forma de contornar esses obs- 
táculos é subir um pouco mais de nível, 
e escrever o programa em uma lingua- 
gem mais fácil de se utilizar do que o có- 



5 HGR : HOME : VTAB 24 

10 FOR I - 800 TO 836 

15 READ N 

20 POKE I.N 

25 NEXT 

30 PRINT "Isto esta em BASIC" 

35 FOR I - 1 TO 300: NEXT 

40 FOR I - 8100 TO 14000 

45 POKE Iv RN D U) * 256 
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digo de máquina. Essa linguagem é co- 
nhecida como Assembly, ou linguagem 
Assembler (que vem do inglês, monta- 
gem). 

Em Assembler, os códigos operacio- 
nais são representados por abreviações 
mnemónicas (isto é, fáceis de lembrar). 
Por exempio, a operação de carregar 
(load, em inglês) uma memória com um 
número, tem a abreviatura LD. Uma 
instrução de desvio (jump) pode ser cha- 
mada de J, JP, ou JMP, conforme a sin- 
taxe do Assembler em uso. Com algum 
treino, é possível ler programas em As- 
sembly tão facilmente quanto em BA- 
SIC, embora entendê-los seja algo mais 
complicado. 

A desvantagem da linguagem Assem- 
bler ê que o computador não pode uti- 
lizá-la diretamente. como no caso do 
código de máquina. Antes disso, o pro- 
grama precisa ser montado por um As- 
sembler, ou tradutor, que é um outro 
programa escrito em linguagem de má- 
quina, ou mesmo cm BASIC. 

Mas o processo de montagem é bem 
mais simples, quando comparado com 
a interpretação de linhas em BASIC. A 
linguagem Assembler é equivalente ao 
código de máquina, ou seja, cada ins- 
trução em Assembly corresponde a uma 
instrução em código de máquina. As- 
sim, a tradução do programa se proces- 
sa palavra por palavra, número por 
número, etc. diretamente para código de 
máquina. 

O Assembler também traduz o pro- 
grama como um todo, antes que o com- 
putador o execute, ao invés de 
interpretá-lo linha por linha, enquanto 




o programa está rodando. Isto dá van 
tagens adicionais de velocidade de exe 
cuçào. 

Alguns computadores, como o Ap- 
ple 11, já vêm com um programa embu 
tido, chamado monitor, que permite i 
entrada de códigos de máquina e dado: 
cm hexadecimal. Computadores com 
programas Assembler embutidos em sua 
ROM, entretanto, já são mais raros. No 
Brasil, o TK-2000, da Microdigital, é um 
exemplo. Para os outros computadores 
(linha TRS-80, TRS-Color, MSX, Sin- 
clair Spectrum e ZX-81), existem pro- 
gramas Assembler disponíveis 
comercialmente, em fita ou disquete. 
Você poderá utilizar também, as versões 
de Assembler para cada máquina, que 
serão fornecidas mais adiante. 

Mas, se você não tem acesso a um 
'programa Assembler, pode fazer uma 
montagem manual. Mesmo para os pro- 
gramas mais simples, é mais fácil escre- 
vê-los em Assembly, e depois traduzi-los 
manualmente para código de máquina 
em hexadecimal, usando as tabelas for- 
necidas com os manuais de programa- 
ção Assembler. 

Tudo isto pode parecer muito abor- 
recido; mas, antes de decidir que é isso 
mesmo, experimente esses programas 
em código de máquina. Eles são intro- 
duzidos via declarações DATA em pro- 
gramas BASIC. Os dados ( DATA) es- 
tão listados no fim de cada programa. 



10 CLEAR 29999 

20 FOR n-30000 TO 30020 

30 READ a 

40 poke n,a 

50 NEXT n 

60 RAND USR 30000 

70 GOTO 60 

90 DATA 17.0.88.46.0,237,95, 

71,58.140.92,128.230.63,103,1 

,0,3.237.176,201 



10 CLEAR 200.31000 

20 DEFUSRO-31000 

30 FOR N-31000 TO 31020 

40 READ A 

50 POKE N.A 

60 NEXT 

70 N-USR0(0) 

80 POKE 32767. RND(256)-1 
90 FOR N-l TO 100:NEXT 
100 GOTO 70 

110 DATA 142.4,0,206.136.184,16 
6.192,184.127.255.138,129.167.1 
28,140,6.0.38.242,57 
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As restrições na configuração da má- 
uina para rodar o programa abaixo são 
s mesmas do primeiro programa. 

0 DKFUSRO ■ 4536 

0 FOR N--45.16 TO -4525 

0 READ A 

0 POKE N.A 

0 NEXT N 

0 N-USÍU0) 

0 POKE -4534.RNDI201 
0 GOTO 7 0 

00 DATA 33.0.0,17.0.60,1.0.4. 
237.176,201 



10 CLEAR 200 , Í.HDFFF 

20 DEFINTA-Z 

30 AD-S.HEO00:DEFU5R-AD 

40 FOR I-0TO10 

50 READAS 

60 POKE AD+I ,VALCí.H"+AS) 
70 NEXT 

80 DATA0E.98.ED.6B.0.1.06.FF.ED 
,B3 ,C9 

90 FOR 1-0 TO 1000:NEXT 
100 SCREEN 3 
110 PSET(O.O) 
120 A-USR(Bi 
130 GOTO 120 

200 FOR 1-0 TO 1000:NEXT 
210 SCREEN 3 
220 PSET(0,0) 
240 A-USR{B) 
260 GOTO 240 



Um aviso para quem for utilizar o 
programa acima: o programa em lingua- 
gem de máquina altera alguns endere- 
ços importantes da memória de traba- 
lho do micro. Por isso, é impossível 
listá-lo depois de rodar uma vez. Assim, 
você deve digitar o programa e gravá- 
lo em fita ou disquete, antes de rodá-lo. 

Para rodar no TK-2000, é necessário 
fazer as seguintes modificações: todos 
os valores 17. que aparecem dentro das 
declarações DATA, devem ser mudados 
para 20. e todos os valores 18, para 21. 

Deste modo ele não se autodestrói. 
10 FOR I - 800 TO 840 
20 READ H 
30 POKE I.N 
40 NEXT 
50 GR 
60 CALL 800 

70 DATA 169,0,133,17.169.193. 
133,18.160 

80 DATA 40.162.40.177,17,41.1 
5. 32, 100 

90 DATA 248 . 1 38 . 32 . 0 , 248 , 1 36 . 
208.242.202 

100 DATA 208,239,169,254.197, 
18.206,1,96,230,18,76.40.3 

Agora, apenas para comparar, tente 
escrever um programa similar em BA- 
SIC. Acreditamos que você entenderá 
nossas razões. E mais tarde, veremos o ■ 
que acontece aqui. 
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Se você quer dar mais vida aos seus 
jogos, comece a trabalhar 
com os caracteres gráficos mais 
simples, que já vêm programados na 
memória do seu computador. 



Programar jogos pode se revelar uma 
atividade fascinante. Mas não é certa- 
mente das mais fáceis. Por isso, você de- 
ve começar com coisas simples e ir avan- 
çando pouco a pouco. Esse procedimen- 
to lhe ensinará a pensar de maneira ló- 
gica, melhorando suas qualidades de 
programador. É o que vamos aprender 
nesta série de lições, até chegar ao de- 
senvolvimento de jogos profissionais e 
complexos. 

A primeira coisa que você precisa 
aprender para programar jogos, afora 
a linguagem BASIC, é a técnica de ani- 
mação, pois a maioria dos jogos mais 
interessantes é do tipo "videogame", is- 
to é, tem algum tipo de ação. 

Para criar a ilusão de movimento, o 
programador usa praticamente as mes- 
mas técnicas empregadas na elaboração 
de desenhos animados. Ele cria duas ou 
mais imagens e as alterna rapidamente 
— cerca de 24 vezes por segundo. 

Existe, porém, uma diferença impor- 
tante. Na animação de um desenho, o 
projetor é responsável pela eliminação 
das imagens desnecessárias. O mesmo 
não acontece com a animação por com- 
putador: neste caso, qualquer segmen- 
to de um desenho que você "projete" 
permanecerá na tela, a não ser que vo- 
cê imprima alguma coisa sobre ele, pois 
o computador não pode colocar, simul- 
taneamente, duas imagens na mesma 
posição. 

Por exemplo, se a linha 10 diz ao 
computador para colocar um A em um 
determinado lugar, qualquer linha im- 
pressa posteriormente — digamos um B 
— , no mesmo local, apagará o A. 

Mas, e se não houver nada que você 
queira imprimir no lugar do caractere 
indesejado? Então você deve se lembrar 
de incluir no seu programa uma linha 
que coloque um espaço em branco na 
posição de interesse. Caso isso não seja 
feito, seu vídeo logo estará repleto de in- 
cómodos pedaços de braços, pernas e 
corpos! 

Há grandes diferenças entre os com- 
putadores na maneira de se obter os ca- 
racteres (sinais) gráficos na tela. Os ca- 
racteres gráficos padronizados variam 
muito em tipo e disposição, assim como 

■ a maneira como são impressos na tela, 

le como são movimentados. 



Uma animação muito simples, que 
ilustra os princípios da produção de efei- 
tos de movimentação na tela do micro, 
é a do pequeno "inseto rastejante" (ve- 
ja abaixo). Nas páginas seguintes mos- 
traremos como conseguir esse efeito pa- 
ra diversos tipos de computadores. 



Para criar a figura do inseto na tela, 
programe o TRS-Color ou compatível 
(por exemplo, o Prológica CP-400), co- 
mo segue abaixo. A declaração PRINT 
@ (pronuncia-se "print arroba" ou 
"print em") é a maneira que o BASIC 
do Color tem para exibir um ou vários 
caracteres em um ponto específico da te- 
la. O número que se segue após o sinal 
@ é a posição na tela, que começa de 
0, no canto superior direito, e aumenta 
de um em um da esquerda para direita 
e de cima para baixo. Como a tela do 
Color tem apenas 32 colunas, a primei- 
ra linha tem posições @ indo de 0 a 3 1 . 
A posição 32 já se situa na primeira co- 
luna da segunda linha e assim por 
diante. 
5 CLS 

10 PRINT «236, "000" 

20 PRINT #206.")))- 

30 PRINT #241, "<" 

40 PRINT #270,")))" 

Este programa é uma forma bastan- 
te elaborada de criar uma imagem mui- 
to simples, mas ele ilustra alguns pon- 
tos interessantes: 

Em primeiro lugar, ele lhe dá uma 
idéia a respeito das posições relativas na 
tela. O meio do inseto está, aproxima- 
damente, no centro do vídeo, na locali- 
zação 239. Como você vê, estamos usan- 
do caracteres "normais" (isto é, dispo- 
níveis no próprio teclado padrão, como 
a letra O, o sinal de parênteses, etc.) pa- 
ra compor a figura do "bicho". 

Além disso, ele mostra o que acon- 
tece quando fazemos com que o com- 
putador imprima mais que um caracte- 
re em uma única posição de tela — ele 
simplesmente vai em frente e coloca os 
próximos caracteres nas posições subse- 
quentes (de numeração maior). Isto ex- 



plica por que as "antenas" da linha 30 
estão em 241 . As posições 238-240 já es- 
tão ocupadas pelo corpo do inseto. 

Existe uma maneira melhor de dese- 
nhar o inseto, que é condensar o pro- 
grama acima em uma única linha. E, se 
você ainda não descobriu, o TRS-Color 
tem uma abreviação para PRINT: o ca- 
ractere "?". Quando o programa é lis- 
tado, a máquina mostrará PRINT ao in- 
's de 

O programa simplificado fica assim: 



Se você acrescentar mais duas linhas, 
obterá alguma animação: 



□ □O < OOO < OOO < 
) ) ) ) ) ) ) ) ) 

20 PRLNT @238."000<":PR1NT 620) 
," ( ( {" :PRINT §270, " { 1 (" 
30 GOTO 10 

A execução deste programa produz 
uma imagem tremida e pouco nítida que 
não se parece nem um pouco com ani- 
mação. A razão disso é que as imagens 
estão sendo trocadas rápido demais. Se 
você inserir um laço FOR...NEXT no 
programa, ele fará com que o compu- 
tador pare e conte, deixando a anima- 
ção mais clara. Qualquer número pode 
ser usado com os laços FOR...NEXT(li- 
nhas 15 e 25) e não apenas 15. Outros 
números resultarão em uma espera 
maior ou menor. 

Experimente adicionar estas linhas: 

15 FOR L-l TO 15 
17 NEXT L 
25 FOR L-l TO 15 
27 NEXT L 

Agora você tem um inseto que esper- 
neia incessantemente, um tanto sem ra- 
zão; apesar disso, a tela nos mostra uma 
animação convincente. 



GRÁFICOS DE BAIXA RESOLUÇÃO 



Você pode usar os caracteres gráficos 
de baixa resolução do seu computador 
para criar figuras animadas mais inte- 
ressantes. O Manual do Usuário mos- 
tra quais são esses caracteres. Cada um 
deles tem um código (um valor de 128 
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MOVIMENTE AS FIGURAS NO VÍDEO 



COMO NU M DESENHO ANIMADO 
APRENDA A USAR 



CARACTERES GRÁFICOS 




ims(i3 



a 143 para os micros da linha TRS- 
Color). Para mostrá-los no vídeo você 
usa a função CHRS seguida do código 
do caractere entre parênteses. 

Por exemplo, para imprimir o carac- 
tere representado pelo código 138 no 
meio da tela, digite: 

10 PRINT6 239. CHRSU38) 

-□EDCDED -□□□HDDD 
«"□HEHBDD «□□EiEDD 

■mm irrrrri 

"BliilHD "«5SBBBBB 

HKDLDHE ■»□□□■□□□ 

Como construir o seu satélite. 



programa seguinte utiliza caracte- 
gráficos do baixa resolução para ani- 
mar um satélite rotatório (a fig. 1 mos- 
tra os dois desenhos que são alternados 
no programa). 
10 CLEAR 500 : CLS 
20 PRINT 6174, CHRS (14 ») 

1) :PR1NT617B.CHRS(143) 
30 PRINT 6206. CHRS (140) 

2) *-CHRS(141) 

-10 PRINT 6236,CHRS(137)+CHRS(12 
9)+CHRS (129)+CHRS (129) + CIIR$U29 
)+CHRSU29)+CHRSU41) 
50 PRINT 6268,CHRS(13S)+CHRS(13 

2) +CHRSU32)+CHRS <132)+CHHS (132 
)+CHRSU33)+CHRS(135) 

60 PRINT 6300.CHRSU43) :PRINT63 
03,CHR3(133) : PRINT @305.CHR3(14 

3) +CHRS ( 143) 

70 FOR X = l TO 20 
80 NEXT X 

90 PRINT 6173. CHRS (141) : PRINT61 
77.CHP.SU41) 

100 PRINT €205, CHRS (139) +CHRS ( 1 

40) +CHRS (140) +CHRS (137) 

110 PRINT 6236, CHRS (138) +CHRS (1 

30) + CHRS ! 130) t-CHRS ( 1 30) +CHP.S (1 3 

0)+CHRSU30)+CHRS<143) 

120 PRINT 6268,CHRS(139)+CHRS(1 

36)+CHRSU36)+CHRS(136)+CHRS (13 

6)+CHPS(137)+CHRS(143) 



130 PRINT 6300.CHRSU37) :PRINT6 

303.CHRS1143) : PRINT 6305.CHRSU 

39)+CHRS(141) 

140 FOR X-l TO 20 

150 NEXT X 

160 GOTO 10 

Não se preocupe com a linha 10 do 
programa. CLEAR 500 reserva espaço 
na memória para as cadeias de caracte- 
res dos códigos CHRS e CLS. Examine 
os sinais gráficos representados pelos có- 
digos após CHRS no programa e tente 
entender como a espaçonave foi cons- 
truída. A instrução " + CHRS ( )' sig- 
nifica 'PRINT CHRS ( ) na próxima 
posição de tela'. 



Eis aqui o programa que anima o in- 
seto, movendo-o pela tela: 
10 CLS 

20 FOR N=0 TO 28 

30 PRINT ê!92+N . " ) ) ) ": PRINT 622 
4+N , "0OO< " : PRINT 6256+N . " ) ) ) " 
40 FOR X=l TO 10 
50 NEXT X 

60 PRINT 6192+N." - :PRINT §22 

4+N," " : PRINT 6256+N," 

70 PRINT 6192+N. "(<<" :PRINT 622 

4+N,"000<":PRINT 6256+N,"{{(" 

60 FOR X=l TO 10 

90 NEXT X 

100 PRINT 6192+N." ":PRINT 62 
24+N." -iPRINT 6256+N," 

110 NEXT N 
120 GOTO 20 

Existem três laços FOR.. .NEXT no 
programa. Os dois que utilizam X dimi- 
nuem a rapidez de impressão fazendo o 
computador contar até dez; o que usa 
N faz com que o inseto se mova na tela. 

Você pode não ter entendido por que 
a linha 20 mostra FOR N = 0 TO 28 se 
existem 32 posições disponíveis em ca- 
da linha da tela. A razão para isso é que 
o inseto tem quatro espaços de compri- 
mento, e, se houvesse mais que 28 na li- 
nha 20, a antena apareceria no lado 
oposto do vídeo, uma linha abaixo. Is- 
to acontece devido ao modo com que as 
posições de tela são numeradas. A po- 
sição 32, por exemplo, é a primeira da 
segunda linha, a partir do lopo da tela. 

As linhas 60 e 100 parecem não estar 
imprimindo nada; elas são as linhas! 
"apagadoras" descritas anieriormente.l 
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Para os micros da linha TRS- 
programas acima podem ser modifica- 
dos com facilidade, bastando alterar os 
números após os comandos PRINT @ , 
já que nesses micros uma linha lem 64 
colunas, ao invés das 32 da linha Color. 

O meio da tela fica mais ou menos 
na posição 450. Subtraindo 64 dessa po- 
sição lemos 386 para a posição inicial 
das perninhas de cima, e somando 64, 
obtemos 514 (para as perninhas dc bai- 
xo). Finalmente, 453 nos dã a posição 
das antenas. O programa final fica 
assim: 

10 PRINT £450 , "00O<" : PRINTS386, 

")))": PRINT§514 . " ) ) ) " 
15 FOR L=l TO 15 
17 NEXT L 

20 PRINT e450."000<":PRINTe386, 

" ( [ (" :PRINT@514, " ! ( ( " 
25 FOR L=l TO 15 
27 NEXT L 
30 GOTO 10 



TRABALHE COM CARACTERES GRÁFICOS 



Estude agora com atenção tudo o que 
está dito na seção sobre o uso de carac- 
teres gráficos no TRS-Color. Ela se apli- 
ca exatamente aos micros da linha 
TRS-80, que têm apenas caracteres grá- 
-ficos de baixa resolução. 



Os truques para desenhar figuras e 
íovimentá-las são iguais aos ensinados 
para o TRS-Color, ou seja, basicamen- 
te, o comando PRINT @, e a função 
CHRS usada em conjunto com os códi- 
gos numéricos dos caracteres gráficos. 

As duas únicas diferenças são as se- 



— O conjunto de caracteres gráficos 
do TRS-80 é bem maior, pois cobre os 
códigos de 129 a 191. Cada caractere é 
a combinação de seis pontos em uma 
grade de três de altura por dois de lar- 
gura (o TRS-Color possui caracteres 
gráficos em uma grade de 2 x 2, ou se- 
ja, com combinações de quatro ponios 
por caractere). 

— Como dissemos acima, o número 
de posições @ na tela também é maior: 
1024 (dezesseis linhas de 64 colunas 
cada). 

Os efeitos gráficos de baixa resolução 
no TRS-80 são potencialmente mais ri- 
cos e detalhados do que o Color (com 
apenas uma desvantagem para o'primei- 
ro: não podemos escolher a cor dos ca- 
raclere.s gráficos no TRS-80, que tem o 
vídeo monocromático). 

Experimente fazer um programa 
igual ao do Color, para traçar o satélite 
(combinação de vários CHRS), e depois 
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O corredor em duas DOfiiCÕeS. 

faça algo mais difícil: animar um cor- 
redor de maratona. A definição da fi- 
gura do corredor em caracteres gráficos 
da linha TRS-80 pode ser vista na fig. 2. 
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Abaixo vemos como programar o pe- 
queno "monslro rastejante" para qual- 
quer micro da linha Sinclair (por exem- 
plo, o TK-85 ou o TK-90X). Para co- 
meçar, tente criá-lo numa posição es- 
tática: 

10 PRXMT AT 10.15;"0oo" 
20 FRINT AT 9 , 1 5 ; " ) ) J " 
Ml PRINT AT U.lSi")))" 
•10 PRINT AT 10.18; 

O programa usa a declaração PRINT 
AT, que serve para colocar em algum 
ponto da tela um caractere ou conjunto 
de caracteres. Os números que se se- 
guem à declaração PRINT AT represen- 
tam o número da linha onde ficará a 
figura Ique vai de 0 a 21), e o número 
da coluna (que vai de 0 a 3 1 >. Assim, 
PRINT AT 10,6; "A", por exemplo, 
pede ao computador para escrever a le- 
ira A na posição definida pela linha 10 
e pela coluna 6 da tela (um quadricula- 
do imaginário, como em um jogo de 
■batalha nava!'). 

Ele mostra o efeito de ordenar ao 
computador que imprima mais que um 
caractere numa mesma posição da tela: 
ele simplesmente avança e imprime os 
caracteres seguintes nas posições vizi- 
nhas. Esta é a razão pela qual as "ante- 
nas" do inseto na linha 40 estão em 
10.18. As localizações 10,15; 10,16 e 



10,17 já estão ocupadas pelo corpo do 
inseto. 

Uma maneira mais conveniente de 
compor o inseto consiste em condensar 
as instruções acima em uma única linha; 
desta forma (só vale para o TK-90X): 

10 PRINT AT 10,15; "000<" ;AT 9 
,15;")))"iAT 11,15:")))" 

Adicione agora mais duas linhas e vo- 
cê terá animação: 

20 PRINT AT 1U,15;"000<";AT 9 
,15;" ( ( ( " ; AT 11,15; "(( (" 
30 GOTO 10 

Quando executar esse programa, vo- 
cê verá que ele produz uma imagem 
pouco nítida. Isso acontece porque as 
imagens são trocadas muito rapi- 
damente. 

A melhor maneira de desacelerar o 
processo é usar um laço FOR...NEXT 
que faz com que o computador conte até 
dez (ou qualquer outro número que vo- 
cê queira). Antes de imprimir a imagem 
seguinte. Experimente, então, adicionar 
estas linhas ao seu programa (no TK-85 
use 2 ao invés de 10): 

15 FOR L-l TO 10 
17 NEXT L 
25 FOR «-1 TO 10 
27 NEXT M 

Você pode variar a duração da pau- 
sa simplesmente mudando '1 TO 10' pa- 



ra "1 TO 5" ou '1 TO 20", por exemplo. 

O inseto criado até agora pode pare- 
cer inútil e estúpido, pois esperneia co- 
mo louco mas não se move. Mais 
adiante veremos como essa situação se 
modifica (seção MOVIMENTO). 



COMO ANIMAR UMA FIGURA 



Uma animação mais interessante po- 
de ser produzida utilizando os caracte- 
res gráficos padrão da linha Sinclair. Te- 
mos um exemplo na fig. 2. 

O programa completo é dado mais 
abaixo; no entanto, se você não está ha- 
bituado aos símbolos gráficos, será in- 
teressante criar, inicialmente, uma figu- 
ra estática, compondo uma linha de ca- 
da vez, deste modo: 

1 PRINT AT 5 , 15 ; "0" 

2 PRINT AT 6,14;" 

... e assim por diante. 

Encontrar esses caracteres gráficos é 
relativamente fácil. Para obter aqueles 
da linha 2 acima, por exemplo, tecle 
CAPS SHIFT (SHIFT no TK-85) e 9. 
simultaneamente. Isso o coloca no mo- 
do gráfico indicado pelo G piscando na 
tela. Então, no TK-90X, pressione 
CAPS SHIFT e 6 juntos para obter uma 
versão invertida — preto no lugar do 
branco — do símbolo da tecla 6; depois 
CAPS SHIFT e 8 e 6 sozinhos. No 
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TK 85 pressione SHIFT e T; SHIFT e 
SPACE; SHIFT c V. Finalmente, tecle 

9 para deixar o modo gráfico antes de 
inserir as aspas no fim da linha. 

Aqui temos o programa completo pa- 
ra formar a figura: 

10 PRINT AT 5,14;"i 'O J " : AT 6, 

AT e. i4:*a a H" 

20 PRINT AT 5.14;"G0G";AT 6, 
14: VB5J-1AT 7.14;-ftjBtl-i 
AT 8. 14; "RD B' 

30 GOTO 10 

É possível que você sinta necessida- 
de de inserir novamente um laço 
FOR...NEXT depois da linha 10 e ou- 
tro após a linha 20 para desacelerar a 
ação. 



□BO LBG 

ano heb 

Um dançarino feito de doze quadrinhos. 



Agora que você já sabe animar urna 
figura, podemos passar ao programa 
que faz com que ela se mova pelo vídeo: 

10 FOR N-0 TO 27 
20 PRINT AT 10,N;"OOO<' 
" ( ( t " ; AT ll.N;"((<" 
PRINT AT 10 ,N; " 
• t AT U , N ; ■ 
40 PRINT AT 10.N; "O0O<" 
")))":AT 11, N;")))" 
PRINT AT 10,N;"OOO<" 
" ; AT 11 ,N ; ' 
60 NEXT N 
70 GOTO 10 

Este programa também usa um laço 
FOR... [NEXT, porém com uma finali- 
dade completamente diferente da do 
exemplo acima. Lá o computador fazia 
uma contagem, por f rações de segundo, 
antes de imprimir uma imagem. Agora 
ele é responsável pela movimentação da 
imagem, que assume uma posição de ca- 
da vez na superfície da tela. 

E por que a linha 10 mostra "O TO 
27", se a teia do Sinclair tem, no total, 
32 posições? Para descobrir, modifique 
a linha 10 para: 

10 FOR N=0 TO 32 

Outra dúvida pode ser em relação ãs 
linhas 30 e 50. Experimente apagá-las e 
você logo descobrirá sua utilidade. 



O programa que movimenta a "tatu- 
rana" usa exatamente os mesmos carac- 
teres que os outros computadores. O 
que muda é o comando para posicioná- 
lo, que nos computadores da linha MSX 
(por exemplo o HotBit, da Sharp) rece- 
be o nome de LOCATE. Esse comando 
posiciona o cursor sobre a tela, em uma 
posição definida pelos dois números que 
se seguem ao comando LOCATE. O 
primeiro número refere-se ã coluna, e o 
segundo, à linha. Assim, por exemplo, 
LOCATE 12,4 coloca o cursor na colu- 
na 12 e na linha 4. Qualquer comando 
PRINT que seja dado após isto escre- 
verá o caractere (ou caracteres) a partir 
da posição definida pelo LOCATE. 
Agora, digite o programa: 
5 CLS 
10 LOCATE 
20 LOCATE 
30 LOCATE 
40 LOCATE 
42 FOR 1-1 
47 NEXT I 
50 LOCATE 
60 LOCATE 
70 LOCATE 
80 LOCATE 
82 FOR 1-1 
87 NEXT I 
90 GOTO 10 

Quando o programa é executado, vo- 
cê pode observar a figura do "inseto" 



18,10:PRINT 1 
18,9:PRINT " 
21,10:PRINT 1 
18,11:PRINT 1 
TO 30 

18.10:PRINT 
18,9: PRINT " 
21, 10: PRINT 
18,11:PRINT 
TO 30 
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vibrando rapidamente. Ela é criada pe- 
la sobreposição dos dois conjuntos de 
caracteres, que estão nas linhas com o 
comando PRINT. Ao mesmo tempo, o 
comando GOTO, na última linha, faz 
com que o programa se repita indefini- 
damente, pois retorna sempre ao seu iní- 

O movimento das patinhas da "ta- 
turana" é bastante veloz, e quase não dá 
para perceber o efeito da animação. Por 
isto, precisamos dar um jeito para dimi- 
nuir a velocidade. A maneira mais fácil 
de se fazer isto é utilizarmos a declara- 
ção FOR. ..NEXT, que cria um laço de 
repetição 'no vazio', isto é, apenas pa- 
ra gastar um pouco de tempo (explica- 
remos na próxima lição dc programação 
BASIC como se usa este tipo de laço). 

Assim, introduza a linha: 

45 FOR T-l TO 100 : NEXT 

A seguir, rode o programa e observe 
como o efeito de movimentação das pa- 
tas tornou-se muito mais lento. Isso foi 
possível porque o laço criado na linha 
45 funciona como um contador — nes- 
te caso, contando até 100, quando en- 
tão, ao terminar a contagem, prossegui- 
rá executando o programa a partir da li- 
nha 50. 

Pode-se variar a duração dessa pau- 
sa simplesmente mudando-se o número 
100 para outro qualquer. Quanto maior 
for esse valor numérico, maior será o re- 
tardo de tempo provocado. 



IMAGENS EM MOVIMENTO 



O próximo passo é alterar o progra- 
ma de forma que o corpo do inseto se 
movimente pela tela. Para isto, utiliza- 
mos a declaração LOCATE, já descrita. 

Neste caso, usaremos uma variável 
para fazer com que a função LOCATE 
mude coniinuamente a posição do cur- 
sor, de modo que os PRINT's que pro- 
duzem a imagem dêem a impressão de 
deslocamento. Para fazer variar o valor 
desta variável que afeta o LOCATE, 
usamos um outro laço FOR.. .NEXT 
mais externo àquele que anima o bichi- 
nho: 

10 FOR N-0 TO 36 

20 LOCATE N,15:PRINT 'OOQ<" 

30 LOCATE N,14:PRINT "(IC 

40 LOCATE N,16:PRINT " ( ( ( " 

50 LOCATE N,15:PRINT " 

60 LOCATE N.14:PRINT " * 

;0 LOCATE N,16:PRINT " 

80 LOCATE N.15:PRINT "00O<" 

90 LOCATE N,14:PRINT "))}" 

100 LOCATE N,16:PR1NT ")))" 

110 LOCATE N.15:PRINT " 

120 LOCATE N,14:PRINT " 

130 LOCATE N,16:PRINT " 

140 NEXT N 

O que fizemos foi simplesmente tro- 
car o comando GOTO na linha 90 do 
programa anterior pelos comandos 
FOR.. .NEXT, que aumentam de um em 



um o valor da variável P, cada vez que 
o programa se repete. Como Pé argu- 
mento da instrução LOCATE (indexan- 
do o número de Unha, ou o eixo X), is- 
to faz a figura se movimentar um passo 
para a direíia, a cada ciclo do programa. 

As linhas 50, 60, 70, 1 10, 120 e 130 
apagam as posições antigas do inseto. 
Retire-as e veja o que acontece. 

Quando você roda o programa, o in- 
seto atravessa a tela e pára em sua mar- 
gem direita. Para fazê-lo voltar à origem 
e começar o "passeio" novamente, ex- 
perimente digitar a seguinte linha adi- 
cional ao programa acima: 



COMO CHEGAR AOS CARACTERES GRÁFICOS 



Os computadores da linha MSX tem 
um grande conjunto de caracteres grá- 
ficos à disposição do programador do- 
tado de instinto exploratório. Eles são 
digitados a partir do próprio teclado, e 
podem ser usados para criar figuras e 
desenhos mais elaborados. 

Para ter acesso a estes caracteres, vo- 
cê deve utilizar as teclas GRAPH, CO- 
DE e SHIFT, juntamente com as demais 
teclas do teclado. No manual do seu 
computador podem ser encontradas 
"mapas" do teclado, que indicam as te- 




* 
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cias associadas a cada caractere gráfico 



GE Eli 



Agora, lente digitar alguns caracte- 
res gráficos. O símbolo de espadas do 
baralho, por exemplo, pode ser obtido 
pressionando-se as teclas GRAPH e Ç 
(cediíha). O símbolo do naipe de ouro 
pode ser obtido pressionando-se as te- 
clas SHITT, GRAPH e Ç simulta- 
neamente. 

O programa abaixo faz a animação 
gráfica de um helicóptero visto de cima, 
demonstrando como podem ser usados 
os caracteres gráficos dos MSX. 
5 CLS 

10 LOCATE 13,5: 
20 LOCATE 13,6: 
30 LOCATE 13.7: 
40 LOCATE 13,8: 
50 LOCATE 13,9: 
60 LOCATE 13.10:PRINT 
70 LOCATE 13.11:PRINT 
80 LOCATE 13,12:PRINT 
90 LOCATE 13,13;PRINT 
100 LOCATE 13.5:PRINT 
110 LOCA'.' 13,6:PRINT 
120 LOCATE 13, 7: PRINT 
130 LOCATE 13.8:PRINT 
140 LOCATE 13,9:PRINT 
150 LOCATE 13,10:PRINT 
160 LOCATE 13,11:PHINT 
170 LOCATE 13,12:PRINT 
180 LOCATE 13,13:PRINT 
190 GOTO 10 



Os possuidores de micros compalíveis 
com a linha Apple II e derivados, bem 
como os que têm um Microdigilal 
TK-2000, podem rodar os mesmos pro- 
gramas listados acima para os micros da 
linha MSX. Algumas modificações, po- 
rém, devem ser feitas, face às diferen- 
ças dos modelos: 

■ todos os comandos CI.S (usados 
para limpar a tela) devem ser substituí- 
dos pelo comando equivalente HOME. 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
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Coma construir um helicóptero. 

• nos micros da linha Apple não há 
a insirução LOCATE, mas ela pode ser 
substituída por duas outras, que são 
HTAB e VTAB (tabulação horizontal e 
vertical, respectivamente). 

Essas duas funções controlam o po- 
sicionamento horizontal e vertical do 
cursor, antes de dar um PRINT. O co- 
mando HTAB é acompanhado de um 
número entre I e 40, que determina a co- 
luna dc posicionamento; já o comando 
VTAB faz o mesmo com a linha (de 1 
a 21). 

Assim, por exemplo, onde esiá escri- 
to, no programa para o MSX: 

20 HTAB 18:VTAB 10:PRINT "000" 



20 LOCATE 18,10: PRINT "00o' 

O programa do helicóptero não po- 
de ser introduzido em micros da linha 
Apple, pois estes não possuem caracte- 
res gráficos. O mesmo não acontece com 
o TK-2000, cujos caracteres estão dis- 
poníveis através do teclado, ao se pres- 
sionar as teclas <CONTROL> e B. 
simultaneamente, ou por meio da fun- 
ção CHR$ 1442), através de programa. 
Consulte 0 manual do TK-2000 c iden- 
tifique os códigos dos caracteres usados 
nesse programa. 

Se você quiser inventar novas figuras, 
basta usar os gráficos da tabela existen- 
te no manual ou os caracteres padroni- 
zados do teclado, ou os dois juntos. Ca- 
so seu computador seja diferente dos 
mencionados acima, proceda da seguin- 
te maneira: desenhe as figuras em papel 
quadriculado e faça seu próprio progra- 
ma, utilizando os caracteres gráficos dis- 
poníveis no seu computador. 
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COMO SAQ CRIADOS NÚMEROS 


■ 


DOIS JOGOS DE ADIVINHAÇÃO 




ALEATÓRIOS 




PARA VDCE PROGRAMAR 


■ 


APRENDA A USAR VARIÁVEIS 


■ 


FAIXAS DE GERAÇÃO 


■ 


A DECLARAÇÃO INPUT 




DE NÚMEROS ALEATÓRIOS 



Pense em um número ao acaso: é assim, 

aleatoriamente, que muitos 

jogos são criados pelo computador. 

Ninguém aprende a jogar Futebol 
praticando apenas uma jogada de eada 
vez, para só enirar numa pari ida quan- 
do iodos os lances possíveis estiverem 
assimilados. Se alguém escolhesse esse 
método, teria de esperar a vida inteira, 
pois o número de jogadas possíveis é 
praticamente infinito, 

O mesmo, felizmente, não acontece 
com a programação de computadores, 
que pode ser aprendida de modo gra- 
dual. Assim, os manuais que acompa- 
nham os computadores ensinam uma 
Função ou comando de cada vez. Voeê 
pode aprender por ele, se quiser. Mas a 
Forma mais divertida de Fazer isso è co- 
meçar a jogar desde o começo, apren- 
dendo na prática. 

O jogo mais Fácil de ser programado 
em um micro doméstico é aquele em que 
o computador "inventa" um número 
aleatório (ao acaso), e o jogador tenta 
adivinhá-lo. 



Os computadores domésticos têm um 
gerador de números aleatórios (ou ran- 
dõmicos) que permite inventar jogos. 
Ele é operado, em BASIC, pela Função 
RND. Em alguns computadores, en- 
tretanto, os números produzidos não 
são muito úteis na sua Forma original 
— são todos Frações decimais entre 0 e 
0.99999999. Para verificar isso, digite 
este programa, teclando primeiramente 
NEW para limpar da memória qualquer 
programa já existente: 



DD 

LO LET X=RND (0) 
20 PR1NT X 
30 GOTO 10 



10 LET X-RND 
20 PHINT X 
30 GOTO 10 




10 LET X ■ RND ll) 
20 PHINT X 
30 GOTO 10 

(Lembre-se de teclar <ENTKR> ou 
< RETURN > - dependendo do seu com- 
putador - após cada linha do programa.) 

Quando você executar esse programa 
(use comando RUN), vai obter uma se- 
quência de longos números decimais, 
rnuíto distante de um jogo de adivinha- 
ção (para saber por que é assim, veja o 
quadro Perguruas e Respostas na pági- 
na 13). 

Então, como conseguir que o compu- 
tador produza somente números intei- 
ros 1 ? A resposta é muito simples: adicio- 



nando a função INT (uma abreviação 
da palavra inglesa integer, que quer di- 
zer inteiro) a estas linhas. 



10 LET X.-INT (BND*6) 



30 



LET X - INT ( RND (1) 
PR INT X 
GOTO 10 



Isso vai gerar números inteiros entre 
0 e 5. Nos computadores da linha 
TRS-80, não é preciso utilizar a função 
INT, pois a função RND a realiza se re- 
ceber um número inteiro positivo como I 
argumento: 
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■ ■il 

10 LET X=RND(6>-1 
20 PRINT X 
30 GOTO 10 

(Lembre-sc sempre de pressionar 
<RETURN> ou < ENTER > após di- 
gnar cada linha.) 

Qualquer que seja o computador que 
estiver usando, você não está limitado 
a trabalhar com números entre 0 e 5, po- 
dendo escolher igualmente 10 ou 10 000 
como número máximo: o computador 
sempre sorteará um valor compreendi- 
do entre 0 e o número máximo es- 
colhido. 



APRENDA A USAR VARIÁVEIS 



Ao escrever o programa acima, além 
de selecionar um número aleatório, vo- 
cê deu um nome a ele (X). Dai em dian- 
te, no programa, ioda vez que o X for 
colocado, o computador "saberá" que 
você se refere àquele número aleatório. 

Esse nome, que permite ao compu- 
tador identificar um valor, de tal for- 
ma que possa compará-lo com outro 
número, fazer operações aritméticas 
com ele, etc, é chamado de variável. A 
variável corresponde, grosso modo, ao 
rótulo de uma caixinha individual na 
memória do computador, onde armaze- 
namos valores. 



A DECLARAÇÃO INPUT 



Em nosso joguinho, após ter gerado 
o número aleatório, o passo seguinte se- 
rá avisar o computador de modo a fazè- 
lo aceitar seu palpite. Para isso, você de- 
ve utilizar a declaração INPUT. Ela diz 
ao computador para ficar esperando até 
que alguma informação tenha sido di- 
gitada pela pessoa que está usando o 
programa. 

A declaração INPUT sozinha, entre- 
tanto, não tem sentido. Precisamos for- 
necer ao computador um nome de va- 
riável para que ele saiba como identifi- 
car o dado a ser digitado c armazenar 
o seu valor na memória. Vamos supor 
que queremos entrar um dado na variá- 
vel G (de guess, ou palpite, em inglês). 
Poderia ser perfeitamente um outro no- 
me qualquer, envolvendo uma ou mais 
letras combinadas, tal como PALPITE, 
se você achar interessante. 

Assim, a declaração completa fica da 

■ maneira como segue (não a digite 
ainda): 



• 1 ^iiiiBS 

INPUT G 

Agora que o computador tomou co- 
nhecimento do seu palpite, pode com- 
pará-lo com o número secreto gerado 
(que está guardado na variável X). Isso 
é feito de uma forma muito simples, 
equivalente à frase: 

SE X-G ENTÃO ESCREVA 'MUITO BEM!" 

Em programação BASIC fica assim: 

• - UiiiiSS 

IF X*G TIIEN PRINT ' MU CTO HKH! ' 

A declaração IF ... THE1N, sem dú- 
vida, é muito útil. Você vai usá-la mui- 
tas vezes na programação. 

rn~n 

I 

\ função do cursor é mostrar, na lelu. 
o Intui onde aparecerá » caractere 
prestei i ser digitado. Nu computador 

pequeno sinal de sublinha (pie aparece 
na linha ainda não preenchida. 
V.m outros computadores, entretanto, 
ete podt ser um pequeno rciàngido cheio. 



Os micros das linhas TRS-80, TRS- 
Color e MSX lèm uma extensão a essa 
declaração que é o IF ... THEN ... EL- 
5E(em bom português, SE ... ENTÃO 
... SENÃO). Neste caso, o programa- 
dor pede para o computador fazer algu- 
ma coisa a mais, caso a condição de teste 
(por exemplo, se os números são iguais) 
não seja satisfeita. Nos computadores 
que não têm a declaração ELSE — co- 
mo é o caso dos compatíveis com a li- 
nha Apple e com as linhas Sinclair 
ZX-81 e Spectrum — se os dois núme- 
ros não forem iguais o programa pas- 
sará automaticamente para a linha se- 
guinte àquela onde está o comando IF. 



LISTAGEM DO PROGRAMA 



Agora digite o programa abaixo (o si- 
nal < > significa "é maior que e me- 
nor que" ou diferente de): 

■ ■■■ 

20 LET X-RND(6}-1 
30 PRINT "O COMPUTADOR ESCOLHEU 
UM NUMERO ENTRE 0 E 5. VOCE PO 
DE ADIVINHA-LO?" 
40 INPUT G 

60 IF G-X THEN PRINT "MUITO BEM 
!"ELSE PRINT "QUE AZAR - VOCE E 
RROU ! " 




Para os micros compatíveis com o 
ZX-81, digite em maiúsculas. 

20 LET X-INT <RND*6) 

30 PRINT "O Computador eacolh 

eu um numero entre 0 e 5. Ten 

te adivinha-lo. " 

40 INPUT G 

60 IF G-X THEN PRINT "Muito 
bem! " 

60 IF GOX THEN PRINT "Que 

azar - Voce errou!" 

\sxmm 

20 LET X-INT(RND(1)*6) 

30 PRINT"0 Computador escolheu 

um numero entre 0 e 5. Tente a 

divinhã-lo. " 

40 INPUT G 

60 IF G-X THEN PRINT "Muito bem 

80 IF GOX THEN PRINT "Que azar 
- Voce errou!" 

Rode este programa e você verá que 
já dá para jogar, mas ainda não é mui- 
to divertido. Para começar, a teta vai fi- 
cando um tanto congest ionada e, o que 
é pior, o jogo acaba logo após a primei- 
ra tentativa! 

Para resolver o primeiro problema, 
você só precisa acrescentar: 

■ iQ^S5 

10 CLS 
50 CLS 

SBE] 

10 HOME 
50 HOME 

A declaração CT.S quer dizer "limpe 
a tela" (dear screen). Para os compu- 
tadores da linha Apple, a declaração 
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equivalente é HOME, que significa "vá 
para casa" (no caso, o cursor vai para 
o alto da tela quando esta fica limpa). 
Assim, somente as informações novas 
aparecem no vídeo. Lidar com o segun- 
do problema é um pouco mais difícil. 
Uma forma de resolvê-lo seria colocar 
um GOTO na linha 90, de modo a rei- 
niciar o jogo automaticamente. Mas is- 
so faria com que a leia limpasse brus- 
camente, e o jogador não poderia ver a 
tempo a mensagem: 

• • ibiSS 



VARIÁVEIS ALFANUMÉRICAS 



Uma maneira melhor é oferecer ao 
jogador a opção de um novo jogo ape- 
nas no caso de ele o desejar. Pode pare- 
cer um pouco complicado, mas, na prá- 
tica, é bastante simples. 

Comece digitando o programa: 



■ ■■■ 



100 INPUT AS 

110 1F AS-"S" OB AS-"s" THEN 

GOTO 10 

120 GOTO 100 

HEIS] 

10 HOME 

20 LET X ■ INT ( RN D (1) * 6) 

30 PHINT "O Computador sorteou 

um numero entre 0 e 5. Sera qu 
e voce consegue advinhar ?" 

40 INPUT G 

50 HOME 

60 IF G - X THEN PP.INT "Muito 

70 IF G < > X THEN PR INT " Q 



â z a i 
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90 PRINT "Quer brincar de novo 
? Se quiser, tecle 'S" e apert 
e a tecla RETURN . " 
100 INPUT AS 

110 IF AS - "S" THEN GOTO 10 
120 GOTO 100 



10 CLS 

20 LET X-RND(6)-1 
30 Pt TNT "O COMPUTADOR ESCOLHEU 
UM NUMERO ENTRE 0 E 5. VOCE PO 
DE ADIVINHA-LO?" 
40 INPUT G 
50 CLS 

60 IF G-X THEN PRINT "MUITO BEM 
l-ELSE PRINT "QUE AZAR - VOCE E 
RROU I " 

90 PRINT "VOCE QUER TENTAR OUTR 
A VEZ?":PRINT"SE QUISER . DIGITE 
"S 1 E PRESSIONE<ENTER>" 
100 INPUT AS 

110 IF AS-"S" THEN GOTO 10 
120 GOTO 100 



Para o programa abaixo rodar cor- 
retamente nos compatíveis com o 
ZX-81, digite tudo em maiúsculas e 
substitua a linha 1 10 por: 

110 IF AS"*S* THEN GOTO 10 
10 CLS 

20 LET X-INT (RND*6) 

30 PRINT "O Computador escòlh 

eu um numero entre 0 e 5. Ten 

te adivinha-lo. " 

40 INPUT G 

S0 CLS 

60 IF G-X THEN PRINT "Multo 
bem! " 

70 IF G-X THEN GOTO 90 

60 IF GOX THEN PRINT "Que 

azar - Voce errou!" 

90 PRINT "Voce quer tentar ou 

tra vez? Se quiser, digit 

e S e pressione ENTER" 




Vocí já «leve ler-sc perguntado 
que significado leni u pOBttttfftO 
nos programai át computadores. 
Vejamos: is linhas no lopo da tela 
são as InrtmcÕes di> programador: 
BI qni >í'm a seguir mostram 
os resultados ,w execução 
dessa* lutracSM, lima virgula, por 
oulro lado. significa "tabule"; já um 
ponlo e virgula quer dizer "justaponha" 
c um apóstrofo no Spectrnn 
significa "imprima na provim a linha" 
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10 CLS 

20 LET X-INT<RND(1)*6) 

30 PRINT"0 Computador escolheu 

um numero entre 0 e 5- Tente a 

divinhá-lo." 

40 INPUT G 

50 CLS 

60 IF G-X THEN PRINT "Muito bem 

70 IF G-X THEN GOTO 90 
80 IF GOX THEN PRINT "Que azar 
- Você errouí " 




Como se especificam os intervalos de 
números aleatórios? 

As funções RND nos micros da linha 
Sinclair, RNDM ) no Apple II, TK 2000 
e MSX, e RND(O) nos compatíveis 
com o TRS-80 e Color, geram 
ros aleatórios distribuídos entre 0 e 
0.9999999. Se voce quiser um 
mero aleatório distribuído em uma 
xa maior de números, multipliqui 
número obtido através das formas 
acima por uma constante. Por exem- 
plo, para obter um número entre 0 e 
39.99999999. basta multiplicar a sai 
da da função RND por 40. 

Para gerar números inteiros, use a 
função INT. Um número inteiro entre O 
e 39 é produzido através da expressão 
INT (função RND original ' 401. Se vo 
cè quiser números distribuídos entre 1 
e 40 adicione 1 ã expressão anterior. 
Nos micros da linha TRS-80, para ge- 
rar um número aleatório entre 1 e 40, 
use RNDI40I 

Alguns computadores utilizam as pala- 
vras RAND, RANDOM ou RANDOMI- 
ZE. Para que servem? 

Para evitar a repetição da seqúén- 
cia de números aleatórios gerada pelo 
computador. Os micros da linha 
TRS-80 têm a declaração RANDOM, e 
os da linha ZX-81 , a RAND. Nestes úl- 
timos, RAND 1 íou RANDOMIZE 1 , no 
caso do Sinclair Spectrum e compatí- 
veis! assegura que a sequência aleató- 
ria seja constante. Quando usamos 
RAND ou RANDOMIZE sem argui 
to, ou seguidos de 0, a sequência 
ca se repete. 

90 PRINT "Voc6 quer tentar outr 
a vez? Se quiser, di 

gite S e pressione RETURN* 
100 INPUT AS 

110 IF AS-"S" OR AS-"s" THEN GO 

TO 10 

120 GOTO 100 

Como você pode notar, primeiro se' 
pergunta ao jogador (linha 90) se ele 
quer jogar novamente. Depois, para avi- 
sar o computador que espere por uma 
resposta, usa-se a declaração INPUT na 
linha 100. 

Mas. desta vez existe uma diferença 
importante. Depois da linha 20, o joga- 
dor deu entrada a um número. Agora 
ele vai entrar um S (para "sim") ou um 
N (para "não"), ou seja. uma letra não 
e um número. 



= 



IIIIIIIIIIHHM 



■■■■■■■MUI 



m < 



m y 












? x ? 












7x9 


■S 


63 


6x9 


— 




5x9 


= 


45 


4x9 




36 


3 x SI 




7" 
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18 
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9* 



Isso significa que, na linha 100, ao in- 
vés de INPUT A você deverá usar IN- 
PUT AS. O cifrão (lambem chamado de 
"dólar"), designa o chamado siring 
(cordão) e AS é uma variável alfanumé- 
rica {string variable). 

Por que o S é necessário? Para enten- 
der isso é preciso conhecer a maneira co- 
mo o computador armazena dados e tra- 
balha com entradas, o que veremos mais 
adiante. Por enquanto, o importante é 
lembrar o seguinte: quando o computa- 
dor deve esperar um número, você usa 
INPUT A, INPUT B, INPUT X ou 
qualquer outra letra; quando se trata de 
uma letra ou palavra, você deve usar IN- 
PUT AS. INPUT BS. INPUT XS etc. 

A linha 120 foi incluída de forma 
que, se o jogador não deseja outra par- 
tida imediatamente, o computador es- 
pera até que ele queira, repetindo o pro- 
cesso até que a resposta seja igual a S. 
Isto acontece devido ao retomo constan- 
te à linha 100 até que a tecla S seja pres- 
sionada, quebrando o ciclo. 



A função RND tem centenas de usos 
cm programação. Imagine, por exem- 
plo, que você deseje ensinar ao seu fi- 
lho ou irmão a tabuada do nove. Você 
poderia fazer o seguinte: 
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10 PRINT "QUANTO E 1 VEZES 9?" 
20 INPUT A 

30 IF A-9 THEN PRINT "C0RRET0!" 
40 PRINT "QUANTO E 2 VEZES 9?" 
50 INPUT B 

60 IF B = 18 THEN PRINT "CORRETO 1 



Digite tudo □ que vem abaixo apenas 
em maiúsculas, se for usar um compa- 
tível com ZX-81: 



Mas, desse jeito, você leria um pro- 
grama muito longo que não resolveria 
nem mesmo o problema de como pro- 
ceder se uma das respostas estiver erra- 
da! Devemos usar a função RND, en- 
tão, para produzir um programa que se- 
ja mais compacto e faça as perguntas ■ , . , . ■ 
corretameme, em sequência aleatória. I m 1 1 Q I 
Outra recomendação importante: traba- 
lhe primeiro na parte principal do pro- 
grama, deixando os enfeites para de- 
pois. Assim, experimente agora estas li- 
nhas (lembre-se de digitar o comando 
NEW antes!): 



10 LET N-INT ÍRNDM2+1) 
20 PRINT "Quanto e ";N;" veze 
8 97" 

30 INPUT A 

40 IF A-N*9 THEN PRINT "Corr 
eto!" 



10 LET N - INT ( RND (1) « 12 
+ D 

20 PRINT "QUANTO E " ; N ; "VEZES 
9?" 

30 INPUT A 

9 THEN PRINT "C 



QD 



40 IF A - N 

ERTO ! " 

mi 

10 LET N-INT(RND(-TIME)*12+1) 
20 PRINT "Quanto é ";N;" veze 
9 ?■ 

30 INPUT A 

40 IF A-N*9 THEN PRINT "Corre 



Símbolos de computador utilizados i 
cálculos de aritmética elementar: 
0 asterisco (•), e não o \, é empregadi 
pura indicar multiplicação; 
a barra ( .') significa "dividido por"; 
a íleihinhu para cima indica 
"elevado à potencia de..." lem alguBj 
computadores é um sinal circunflexo; 

*). 



Km compensação, os • 
as operações de soma 
subi ração são seus velhos 



que uniu . 



aritmética elementar, 



> menos i - ) da 
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Noie a fundão TIMK sondo usada co- 
mo argumento da função RND. Este é 
um artifício para gerar sempre números 
aleatórios diferentes nos micros da linha 
MSX, pois TIME informa ao computa- 
dor o valor do tempo passado, em se- 
gundos, desde que o aparelho foi ligado. 

Este programa usa o gerador RND de 
forma semelhante à do jogo de adivi- 
nhação. Na linha 10, delermina-se uma 
variável para o número aleatório que o 
computador escolhe. Ela foi chamada 
de N, mas poderia ser outra letra ou pa- 
lavra, desde que fosse usada sempre da 
mesma forma. Na parte direita da linha 
10, o programa diz ao computador pa- 
ra escolher um número inteiro entre 1 
e 12. Nos micros da linha Sinclair, é ne- 
cessário somar 1 , porque seus números 
aleatórios começam a partir de zero. 

Na linha 20, pede-sc ao jogador que 
multiplique por 9 o número que o com- 
putador escolheu desta vez. A linha 40 
diz ao computador para multiplicar o 
número aleatório por 9 e comparar o re- 
sultado cor~ a resposta tíada pelo joga- 
dor (ou aluno). Se esta estiver correta, 
o computador mandará a mensagem de 
"CORRETO!" para a tela. Execute o 
programa e faça-o rodar várias vezes, 
para ver se funciona. Para que ele repi- 
ta automaticamente as questões, acres- 
cente a linha: 

50 GOTO 10 

Mas. pensando melhor, por que não 
fazemos as coisas de uma forma mais, 
elegante, como se segue? 



DD 



10 PRINT 1 



QUAL E O SEU NOME 



20 INPUT AS 
30 CLS 

40 PRINT "OLA. ";A$:PRINT"EU TE 
NHO ALGUMAS PERGUNTAS PARA VOCE 

50 FOR X-l TO 3000:NEXT X 
60 CLS 



90 INPUT A 

100 IF A=N*9 THEN GOTO 150 
110 CLS 

120 PRINT A; n ?" 

130 PRINT "TENTE OUTRA VEZ . 

140 GOTO 80 

150 PRINT "MUITO BEM. " ; AS ; ' 
PRINT"AQUI VAI MAIS UMA:" 
160 FOR X-l TO 2000:NEXT X 
170 GOTO 60 




Digite ludo o que vem abaixo apena 
em maiúsculas, se for usar um compa 
tivel com ZX-81: 

10 PRINT "Oi. Qual e aeu nome 
?" 

20 INPUT AS 
30 CLS 

40 PRINT "Ola. ";AS;".","Eu t 
enho algumas perguntas para v 
oce . " 

50 PAUSE 200 
60 CLS 

70 LET N-INT <RND*12)+1 

80 PRINT "Quanto e ";N;" veie 

a 97" 



90 INPUT A 

100 IF A-N*9 THEN GOT 

110 CLS 

120 PRINT A;" 7" 

130 PRINT "Tente outra 

140 GOTO 80 

150 PRINT "Multo bem, 

íôO^PAUSE 150 
170 GOTO 60 



GE El 



10 PRINT "Ola. Qual e o aeu i 



INPUT AS 
HOME 

PRINT "01 



" ;AS: PRINT "Eu 1 
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enho algumas perguntas para voe 

50 FOR X = 1 TO 6000: NEXT X 
60 HOME 

70 LET N - INT { RN D (1) * 10 

+ 1) 

80 PRINT "Quanto e ";N;" vezes 



110 HOME 

120 PRINT A; "?" 

130 PHINT "Errado. Tente outra 

140 GOTO 80 

150 PRINT "Muito bein ";AS: PRI 
NT "Aqui vai outra." 

160 FOR X - 1 TO 4000: NEXT X 

170 GOTO 60 




OQ 



3MJ 



20 INPUT AS 

30 CLS 

40 PRINT "Olá. *;AS;".","EU ten 

ho algumas perguntas para você: 

50 FOR X-l TO 2500 : NEXT X 
60 CLS 

70 LET N-INT{RND(-TIME)*12)-t-l 
80 PRINT "Quanto é ";N:" vezes 
9?" 

90 INPUT A 

100 IF A-N-9 THEN GOTO 150 
110 CLS 

120 PRINT A:"?" 
130 PRINT "Tente outra vez." 
140 GOTO8B0 

150 PRINT "Muito bem, ";AS;"!", 
"Aqui vai outra:" 
160 FOR X-l TO 1500:NEXT X 
170 GOTO 60 

As linhas 30, 60 e ! 10 evitam que a 
leia fique repleta de mensagens do com- 
putador ou de respostas erradas. As li- 
nhas 50 e 160 Tazem o computador es- 
perar algum tempo antes de formular 
a próxima pergunta. As declarações 
FOR. ..NEXT serào explicadas na pró- 
xima lição de BASIC. 

No programa para o Sinclair, as vir- 
gulas nas linhas 40 e 1 50 servem para es- 
paçar as mensagens na tela. Nos outros 
programas, as declarações PRINT ex- 
tras fazem o mesmo. Para evitar que o 
programa seja interminável, faça o se- 
guinte: 

Especificação de faixas 
de números aleatórios 

Números aleatórios entre O e 0.9999999 
Números aleatórios entre 0 e N " 0.99999999 
Números aleatórios entre -10 e +10 
i Números aleatórios entre 0 e 39 
Números aleatórios entre 1 e 40 



i colocados no começo de 
cada linha do programa são muito 
importantes. Sem eles, o computador 
executará cada linha diretamente 
e de forma separada, em w/ de seguir 
» programa como um todo. 
Mesmo que elas sejam introduzidas 
fora de ordem, o computador as 
colocará na sequência certa {ou seja, 
em urdem ascendente), orientando-se 
pelos números de Unha. 
Intervalos entre os números são 
utilizados para permitir a introdução 
de nuias linhas, caso isso 
seja necessário. 



Pressione a ice la BREAK 



s STOP c ENTER. 



Pressione as teclas CONTROL e C, si- 
multaneamente, e depois RETURN. 



fffi 



as teclas CONTROL e STOP 

simultaneamente. Mudando os noves 
do programa para cincos, seis ou setes, 
você poderá testá-lo com outras ta' 
das. Será que você conseguiria modifi 
cai o programa para colocar esses nú 
meros como variáveis, que seriam deii 
nidas logo no começo por outra decl; 
ração INPUT? 




Muitas vezes, os iniciantes encon 
tram dificuldades para interromper un 
programa em execução e voltar para ; 
listagem Isso acontece especialmen 
te durante uma série de INPUTs, quan 
do o computador enche a tela de men 
sagens, não importa o que você digite 

A seguir, abordaremos alguns pe 
quenos truques que o ajudarão a sair 
desses aparentes impasses. Não exis- 
tem problemas sem solução para 
quem lida com computadores. 



Pressione simultaneamente as te 
cias CONTROL e SPACE (para acionai 
a função BREAK). Se isso não der « 
sultado. é porque o programa está pí 
rado numa declaração INPUT. Nest 
caso, se houver aspas na parte de ba 
xo da tela, use a tecla de recuo do cur- 
sor e DELETE, para remover as aspas 
á esquerda. Depois disso, e se não hou- 
ver aspas, pressione as teclas STOP e 
ENTER, e acione ENTER de novo, para 
listar o progra 



Você deve acionar a tecla CTRL, 
manté-la pressionada e, a seguir, pres- 
sionar a tecla C Usaremos a notação 
CTRL-C para essa operação, assim co 
mo em qualquer outra ocasião em que 
duas teclas devam ser acionadas simul- 
taneamente CTRL-C não funcionar ex- 
perimente CTRL-RESET. Após obter na 
tela o 'J', que é o sinal de prontidão, 
digite LIST. 



□ D 

pois digit< 



a tecla BREAK. e d< 
> comando LIST. Se nã 
sssione a tecla RESET n 
i do computador. 



mm 



RND II) 
RND (1|*N 

INTIRND (II *211-10 
INTIRND 111* 401 
INT(RNDI1 1*401+1 



■ ■■■ 

RND (0) 
RND (0) *N 
RND (21J-11 
INTIRND 101*40) 
RND (401 



RND 
N*RND 

INTIRND* 211-10 
INTIRND* 401 
INTIRND*40I+1 
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Sí 



_ COMO ENTRA R O PROGRAMA 
APRENDA A ADA PI AH O PROGRAMA 



A S UA IMPRESSORA 

_D]AGRAMA£ÃO_DE UMA CARTA 

PADRÃO 

MELHORE SEU TEXTO 

IMPRESSÃO DE CÓPIAS 



Você comete erros quando escreve 
cartas importantes? Se isso 
acontece, aqui está um programa 
que permite produzir cartas 
padronizadas com cópias 
personalizadas para muitas pessoas. 



Escrever um grande número de car- 
ias similares (por exemplo, pedidos de 
emprego, cartões de Natal, ele.) é uma 
larefa longa e tediosa, quando reali- 
zada manualmenie. 

O programa apresentado neste arti- 
go resolve num instante esse tipo de 
problema. Ele é um modelo simplifi- 
cado de um editor de textos, que per- 
mite entrar com uma carta padroni- 
zada no computador e produzir, caso 
necessário, cópias ligeiramente diferen- 
tes entre si. Alguns computadores pes- 
soais, como os da linha MSX, por 
exemplo, têm recursos para acentua- 
ção correia de textos em português, 
letras minúsculas e maiúsculas no te- 
clado e na tela, etc. Já os computa- 
dores compatíveis com a linha Sin- 
clair ZX-81 são bastante difíceis de 



usar com processamento de textos, 
pois dispõem de pouquíssimos recur- 
sos para isto. Assim, não apresenta- 
mos aqui uma versão para máquinas 
desse tipo. 

Ao contrário de um programa com- 
pleto de processamento de textos, que 
costuma ser muito complexo e toma- 
ria horas de digitação para ser colo- 
cado no computador, o programa 
aqui apresentado tem bem menos re- 
cursos. Por exemplo, não dá para ver 
na teia o aspecto final da carta a ser 
impressa. Mas não se preocupe, ele 
não é tão limitado assim: tem recur- 
sos para evitar a divisão de palavras 
ao final de uma linha, inserir uma 
linha em branco entre dois parágra- 
fos, etc. 

Qualquer tipo de impressora serve 
para produzir as cartas (lembre-se, en- 
tretanto, que se você usou acentua- 
ção no texto, ê necessário que a sua 
impressora seja capaz de reproduzi- 
la, o que nem sempre acontece). Se 
você quiser uma melhor qualidade de 
impressão, como ê o caso de cartas 
mais "profissionais", vai precisar, evi- 
dentemente, de uma impressora mais 
sofisticada (e com fita nova!). Esta 
pode ser do tipo matricial, com capa- 
cidade de imprimir em "qualidade car- 



ia" (dupla sensibilidade de pontos), 
ou uma impressora (ou máquina de 
escrever) acoplada ao compulador, 
usando o sistema de margarida, ou 
outro. Essas máquinas são caras, e 
nem todo mundo pode tê-!as. Assim, 
talvez você possa usar a de um ami- 
go ou de seu trabalho. As caracterís- 
ticas das impressoras para micros se- 
rão discutidas em um artigo poste- 



COMO "ENTRAR" 0 PROGRAMA 



O programa consiste de duas parles: o 
programa propriamente dito, na primei- 
ra parteda listagem , e o texto da cana, que 
deve ser armazenado no programa, atra- 
vés de uma série de declarações DATA. 

Comece digitando o programa princi- 
pal, listado a seguir para cada tipo de má- 
quina. Não digite as declarações DATA 
presentes no programa. Em seguida, gra- 
ve o programa assim digitado em fita cas- 
sete ou disquete, usando o comando SA- 
VE (em alguns computadores, esse co- 
mando chama-se CSAVE): consulte o 
manual do computador para ver como 
usá-lo. Assim, o programa gravado pode- 
rá ser usado para qualquer tipo de carta, 
depois. Se você quiser preservarem a fita 
ou disco o programa contendo algum mo- 
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delo particular de carta, grave-o separa- 
damente, com outro nome (programa 
mais dados). 

Antes de imprimir sua carta, voeè 
deve fazer alguns ajustes, dependendo 
da impressora utilizada. 

Em primeiro lugar, verifique quan- 
tos caracteres por linha sua impresso- 
ra aceita (geralmente são 40, 80, 120 
caracteres por linha). Então, modifi- 
que o programa de forma a seguir 
essa largura de linha, permitindo uma 
margem adequada de ambos os la- 
dos. No programa, a variável TL re- 
presenta o comprimento total dispo- 
nível na impressora, e LL, o compri- 
mento da linha a ser digitada. Assim, 
você pode alterar os valores atribuí- 
dos no programa a essas variáveis, an- 
tes de imprimir as cartas. 

u 

Modifique a linha 20 (ciando a TL 
o valor da largura de linha disponível 
na impressora) e a linha 30, de modo 
que o valor de LL contenha a largura 
da linha da carta. Do jeito que está 
no programa, a linha 40 mostra na 
tela como sairá a carta, antes de im- 
primi-la. No momento da impressão, 
modifique a variável P, nessa linha, 
de 0 para 2. 




Modifique a linha 10 de maneira 
que PL seja a largura da impressora, 
e LL, a largura que você deseja para 
a carta (no exemplo dado, essas lar- 
guras estão muito pequenas para im- 
pressoras mais profissionais). 



mi 

Nesse computador não dá para im- 
primir a carta primeiro no vídeo, an- 
tes de mandá-la para a impressora, 
a não ser que você modifique todas 
as declarações iipo LPRINT existen- 
tes, para PRINT, e vice-versa. Na li- 
nha 10, as variáveis PL e LL devem 
ser modificadas conforme a sua im- 
pressora (ou, para impressão em ví- 
deo, para LL = 35 e PL = 40). 

se 

Modifique a linha 30 de maneira 
que TL e LL contenham as larguras 
de linha disponíveis na impressora e 
na carta, respectivamente. Sc voeè qui- 
ser ver na tela, primeiro, como sairá 
a carta, mude o valor de P para 0, 
TL e LL para 39. 



DIGITE SUA PRIMEIRA CARTA 



Sua carta consistirá de uma série 
de declarações DATA, uma linha de 
texto por declaração. Digile-as como 
mostrado no exemplo na última pági- 
na deste artigo. 

As instruções DATA devem come- 
çar na linha 1000 do programa, e con- 
ter inicialmente o seu endereço. A pri- 
meira tarefa do programa será procu- 
rar a linha mais longa do endereço, 
e imprimi-lo à direita do cabeçalho. 
Depois disso, as declarações DATA de- 
verão conter o texto propriamente di- 
to da carta. O computador alinhará 
esse texto junto à margem esquerda 
da carta, conforme os padrões mais 
modernos para cartas comerciais. 



Cada linha da carta deve começar 
com aspas, logo após a declaração 
DATA. Alguns símbolos de edição po- 
dem ser incluídos no texto. Eles têm 
por objetivo orientar a forma estética 
de impressão. Aqui vai o significado 
de cada símbolo de edição para nos- 
so programa: 

Aqui vai o significado de cada sím- 
bolo de edição para nosso programa: 

• O símbolo # significa: "esta li- 
nha é parte do meu endereço, coloque- 
a do lado direito da página". 

• O cifrão. S, quer dizer: "comece 
um novo parágrafo, deixando uma li- 
nha em branco acima dele". 

• O & comercial (ampersand): "co- 
mece uma nova linha na margem es- 
querda, mas não deixe uma linha em 
branco antes" (ele é útil para compor 
o endereço do destinatário da carta). 

• O asterisco (*) significa: "centre 
esta linha". 

Se você deseja colocar algumas li- 
nhas em branco indique-as com uma 
serie de cifrões entre aspas, um para 
cada linha em branco. Quando você 
atingir o final da carta, os computa- 
dores do tipo abaixo necessitam de 
uma linha adicionai: 

■■ 

Entre um número de linha adicional, 
seguido por DATA $ 
Entre outra linha adicional, seguida 
por DATA. 
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MELHORANDO SUA CARTA . 



Visto que ludo está escrito em BA- 
SIC, você poderá, se quiser, gravar 
novamente o programa, com as decla- 
rações DATA incluídas. 

Posteriormente, se você quiser me- 
lhorar a carta, ou produzir uma nova 
versão, o primeiro passo será carregar 
o programa correspondente, a partir 
do disco ou casselc (usando o coman- 
do LOAD, ou CLOAD, conforme o 
tipo de computador), e editar o pro- 
grama usando o editor BASIC da for- 
ma habitual. Grave-a novamente, se 
quiser preservar essas mudanças. Ca- 
so contrário, rerá que redigitá-las 
quando carregar o programa original 
novamente. 



IMPRIMINDO AS CARTAS 



Para imprimir sua carta basta exe- 
cutar o programa: ele se encarregará 
de ativar e desativar a impressora. Se 
você tentar fazer isso sem que a im- 
pressora esteja conectada (quando eia 
eslá ligada, a luz que indica a cone- 
xão eom o computador, normalmente 
rotulada UNHA ou LINE, permane- 
ce acesa), o computador ficará para- 
do, esperando que a impressora entre 
em funcionamento. Neste caso, inter- 
rompa a execução do programa, pres- 
sionando a tecla BREAK ou sua equi- 
valente. A forma de ver a carta no 
video, antes de imprimi-la, já foi in- 
dicada. 

O tipo de papel a ser usado depen- 
de de sua impressora. Algumas acei- 
tam folhas soltas, caso tenham o rolo 
compressor de borracha: essas folhas 
são melhores para uma correspondên- 
cia mais formal. A maioria das im- 
pressoras, entretanto, usa formulário 
continuo, deslocado pelos picotes na 
margem (remalina). Depois de impres- 
sa a carta, retire as remalinas com 
uma guilhotina ou abrindo os pico- 
tes, acertando com uma tesoura ou 
lâmina afiada. 

No caso de utilizar papel timbrado, 
não é necessário incluir o seu endere- 
ço na carta. Assim, digite o texto nor- 
malmente, começando da linha 1000, 
mas sem entrar as linhas que come- 
çam por # . Para imprimir cópias 
repetidas da mesma carta, execute o 
programa novamente, tantas vezes 
quantas forem necessárias. 

■■ 

10 CLEAR 200 
20 TL-B0 
30 LL-56 



40 P-0 

50 SP- (TL-LL) /2 : HW-TL/Z 

60 PHINT |-P,CHHS(13) 

70 IFP-2 THEN SPS-STRINGS ( SP , " 

") ELSE SP=0:HW=16 

200 READAS:AS-AS+" " 

210 IF AS-""GOT0 290 

220 OS-LEFTS(AS,l) 

230 IF OS="l" THEN ML=0:GOSUB 4 

00: GOTO 290 

240 IF OS-"S" THEN RL = 0 : PRINTI - 
P,CHR$(13) ;CHRS(13) ;SPS; :ST-2 :G 
OTO 280 

250 IF OS-""" GOSUB800:RL=HW-LE 
NÍAS)/2:G0T0 280 

260 IF 0$-"S." THEN RL-0 : PRINTt- 

P,CHRS(13) ;SPS; :ST=2:GOT0 280 

270 ST-1 

280 GOSUB 600 

290 GOTO 200 

400 IF LEN(AS)>ML THEN ML-LEN (A 
S) 

410 N-N+1:PEAD AS:IF LEFTSIAS.l 
)-"|" GOTO 400 

420 IF ML>LL THEN CLS : PRINT "ER 
RO NO FORMATO. ENDERECO MUITO L 
ONGO PARA O TAMANHO DE LINHA 
ESCOLHIDO . " : END 

430 RESTOBE: FOR J-0 TO N-l : REA 
D AS : PRINTI -P . STRINGS ( LL-ML , " " 
) ;SPS; :PBINT#-P.MID(AS-2) ; CHRS ( 

13) ; 

440 NEXT : RETURN 
600 WL-0 

610 IF ST+WL>LEN(AS) THEN 630 
620 IF MIDS(AS,ST+WL,1)0" " TH 
EN WL=UL+1 :GOTO 610 
630 IF WL>LL THEN CLS:PRINT "ER 
RO NO FORMATO. .." ; AS: PRINT" ... 
CONTEM UMA PALAVRA GRANDE DEMAI 
S ! " : END 

640 IF RL+WL-1>LL THEN PRINT |- 
P,CHRS(13) ;SPS; :RL-0 
650 WL-WL+1 

660 PRINT |-P,MID$tAS,ST,WL) : :R 

L-RL+LEN(MIDS(AS.ST,WL) ) 

670 ST-ST+WL:IF ST<LEN (AS) +1 GO 

TO 600 

680 RETURN 

800 IF LEN (AS) >LL THEN CLSrPRIN 
T " ERRO NO FORMATO . NAO POSSO 

CENTRALIZAR" , AS : END 
810 PRINT #-P,CHRS(13) ! 
820 IF HW>LEN(AS)/2 THEN PRINT 
*-P,STRINGS(HW-LEN(AS)/2," ") ; 
830 ST"2 : RETURN 



10 LET LL-32: LET PL-32 

15 LET LL-LL+1: LET T-(PL-LL) 

/2 

20 LET D-0 

30 READ AS: LET L-LEN AS 
40 LET C-0 

50 IF C-L THEN GOTO 30 

60 LET C-C+l: LET D-D+l : IF C 

>1 THEN GOTO 100 

70 IF AS(C)-"#" THEN GOTO 

SOO 

80 IF AS(C)-"-" THEN GOTO 
700 

85 IF AS(C)-"»." THEN GOTO 



850 

90 IF AS(C)-"S" THEN L PRINT 
CHRS 13;CHRS 13:: LET D-0 : 
GOTO 900 

95 LET AS-" "+AS: LET L-L+l 
100 IF AS<C)-" " THEN GOTO 
800 

110 LPRINT AS(C) 

115 IF D>LL THEN LET D-0 

120 GOTO 50 

500 LET NL-0: LET TA-LL: LET 
BE-0 

510 LET LE-LEN A$-l: IF LE >LL 
THEN PRINT FLASH l:"Erro no 
formato - Endereco muito gran 

de.": STOP 

520 IF LE>BE THEN LET BE-LE 
530 LET NL-NL+1: READ AS: IF 
AS(1)- - 'I" THEN GOTO 510 
540 RESTORE 1000 
550 LET TR-T+LL-BE: FOR G-l TO 
NL: FOR H-l TO TR : LPRINT " "; 
: NEXT H: READ AS: LPRINT AS (2 
TO } : NEXT G 
560 GOTO 30 

700 LET TA- (LL-L) /2+T: IF TA<T 
THEN PRINT CHRS 13: PRINT 
FLASH l;"Erro no formato - Nao 
poaso cen-tralizar . " : STOP 
710 LPRINT CHRS 13;: FOR n-l 
TO ta: LPRINT " ";: NEXT n: 
LPRINT AS(2 TO L) : GOTO 20 
800 LET SL-LL-D-1: LET CC-C+1 : 
LET X-l 

810 IF CC-L THEN GOTO 825 
820 IF AS(CC)<>" " THEN LET 
CC-CC+1 : LET X-X+l : GOTO 810 
825 IF X>-LL THEN PRINT CHRS 
13: PRINT FLASH li "Erro no Fo 
inato - Palavra muito grande." 
; STOP 

830 IF SL>-X THEN GOTO 110 
850 LPRINT CHRS 13:: LET D-0 
900 FOR B-l TO T: LPRINT " ";: 
NEXT B: GOTO 50 

m 

5 CLS 

10 LET LL-35 : LET PL-40 

15 LET LL-LL+1 : LET PL- (PL-LC.) /2 

20 LET D-0 

30 READ AS: LET L-LEN (AS) 
40 LET C-0 

50 IF C-L THEN GOTO 30 

60 LET C-C+1:LET D-D+1:IF C>1 T 

HEN GOTO 100 

65 BS-MIDS(A$,C,1) 

66 IF BS-'-" THEN STOP 

70 IF BS-"#" THEN GOTO 500 
80 IF BS-"*" THEN GOTO 700 
85 IF BS-"S." THEN GOTO 850 
90 IF BS-"S" THEN LPRINT CHRS ( 1 
3):LPRINT CHRS(13):LET D-0:GOTO 
900 

95 LET AS-" "+AS : LET L-L+l 

100 IF MIDS(AS.C.l)-" " THEN GO 

TO BOO 

110 LPRINT MIDS(A$.C. J) ; 
115 IF D>LL THEN LET D-0 
120 GOTO 50 

500 LET NL-0 : LET TA-LL : LET BE-0 
510 LET LE-LEN(AS)"1:IF LE>LL T 



I ARUCAÇÕeS I 



HEN PHINT "ERRO NO FORMATO - En 
dereço muito longo" 
520 IF LE>BE THEN L ET BE-LE 
530 LET NL"NL+1 : READ AS:IF MIDS 
(AS.C.l)-"»" THEN GOTO 510 
540 RESTORE 1000 

550 LET TR-T+LL-BE:FOR G-l TO N 
L : FOR H-l TO TR : LPRINT " ";:NEX 
T H : READ AS : F-LEN (AS) -1 : LPRINT 
RIGHTS (AS , F) :NEXT G 
560 GOTO 30 

700 LET TA-(LL-L)/2+T:IF TA<T T 
HEN LPRINT CHRS ( 13) : PRINT "ERRO 
NO FORMATO - Náo poaac central 
i Zar " : STOP 

710 LPRINT CHRS(13):FOR N-l TO 
TA : LPRINT " " ; :NEXT N i F-LEN (AS) 
-1: LPRINT RIGBTS (AS . F) ; :GOTO 20 
800 LET SL-LL-D-1:LET CC-C+1:LE 
T X-l 

810 IF CC-L THEN GOTO 825 
820 IF MIDS(AS.CC,1)<>" " THEN 
LET CC-CC+1:LET X-X+l :GOTO 810 
825 IF X>-LL THEN LPRINT CHRS (1 
3) :PHINT "ERRO NO FORMATO - Pai 
avra muito grande" : STOP 
830 IF SL>-X THEN GOTO 110 
850 LPRINT CHHS{13):LET D-0 
900 FOR B-l TO T : PRINT" ";:NEXT 
B:GOTO 50 



HM] 



100 HOME 

110 ONERR GOTO 430 

120 TL - 80:LL - 60:P - 1 : D$ - 

CHRS (4) 
130 SP - (TL - LL) / 2:HU - TL 



160 
2) 
170 



PRINT DS i "PRI" ; P 
PRINT CHRS (13) 
READ AS: AS - AS + 



160 



IF AS - "" THEN 
180 OS - LEFTS (AS. 
190 IF OS - "»" THEN ML 
OSUB 260: GOTO 250 
200 IF OS ' "S" THEN RL 



RINT CHRS 



L3) : 



:'HRS fl3) 



( SP) ; :ST - 2: GOTO 240 



1 



240 

220 IF OS - "i" 

RINT CHRS (13) ; 

2: GOTO 240 
230 ST - 1 
240 GOSUB 310 
250 GOTO 160 

260 IF LEN (AS) > ML THEN ML 
- LEN (AS) 

270 N - N + 1: READ AS I IF LEF 

TS (AS.l) - "*" THEN 260 

280 IF ML > LL THEN PRINT DS ; 

"PRI0": HOME : PRINT : PRINT "E 

RRO DE FORMATO! O ENDERECO" ; PR 

INT "E MUITO LONGO PARA O TAMAN 

HO DA LINHA" : CND 

290 RESTORE : FOR J ■ 1 TO N : 

READ AS: PRINT SPC ( LL - ML + 

SP t 1 ) ; RIGHTS (AS. LEN (AS) - 

1) ; CHRS (13) ; 
300 NEXT : RETURN 



LEN (AS) THE 



20 

340 IF WL > LL THEN PRINT DS ; 
"PR»0": HOME : PRINT "ERRO DE F 
ORMATO! ": PRINT AS;"--. CONTEM 
UMA PALAVRA MAIOR QUE A LINHA! 
" : END 

350 IF RL + WL - 1 > LL THEN 
PRINT CHRS (13); SPC ( SP);:RL 
- 0 

360 WL - WL + 1 



370 PRINT MIDS (AS.ST.WL) ; :RL 
- RL + LEN ( MIDS (AS.ST.WL)) 
380 ST - ST + WL: IF ST < LEN 
(AS) + 1 THEN 310 
390 RETURN 

400 IF LEN (AS) > LL THEN PR 

INT DS;"PRI0": HOME : PRINT "ER 

RO DE FORMATO! NAO SE PODE CENT 

RALI ZAR "[AS: END 

410 PRINT CHRS (13); 

420 IF HW > LEN (AS) / 2 THEN 

PRINT SPC( HW - LEN (AS) / 
2) :ST - 2: RETURN 
430 PRINT : PRINT DS;"PR#0": E 
ND 
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DESENHE NÚMEROS COM LAÇOS 

FOR... NEXT 

0 NASCER E 0 PÔR-DO-SOL NO 
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APRENDA A CRIAR EFEITOS 


HORIZONTE DO VÍDEO 




SONOROS ■ 


CALEIDOSCÓPIOS 




Ill 
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O QUE £ UM LAÇO FOR... NEXT 



Um laço FOR... NEXT em BASIC 
é um mecanismo que faz com que o 
computador repila uma mesma opera- 
ção certo número de vezes. 

Suponha, por exemplo, que você qui- 
sesse saber as raízes quadradas de todos 
os números de 1 a 100. Você poderia di- 
zer ao computador: 

PRINT SQR(l) 
PRINT SQB(2) 
PRINT SÇjR (3) 

... e assim por diante. 

E a cada pergunta o computador da- 
ria a resposta. Mas, além de impor um 
enorme trabalho de digitação aos seus 
dedos, esta não é uma técnica particu- 
larmente eficiente de uso do computa- 
dor. Tente assim: 



10 FOR N-l TO 100 
20 PRINT N,SÇjR(N) 
30 NEXT N 

40 PRINT "E ACABOU." 

Esse programa faz com que o com- 
putador imprima 1 e sua raiz quadrada, 
2 e sua raiz quadrada, 3 e sua raiz qua- 
drada... e assim sucessivamente até atin- 
gir 100, no momento em que o apare- 
lho pára. 

Como ele faz isto? Quando o com- 
putador encontra um FOR, "sabe" que 
as linhas seguintes serão repetidas. As- 
sim, ele as executa até encontrar o 
NEXT, volta à linha da instrução FOR 
e repete o processo. 

Enquanto trabalha, o computador 
também está contando. A primeira vez 
em que passa pela linha 20 ele calcula 
a raiz quadrada de l , na segunda, a de 
2, e assim por diante. 

Quando tiver trabalhado com o 
maior número da instrução FOR, ele 
deixará automaticamente o laço e con- 
tinuará a execução do programa pela 
instrução seguinte ao N EXT — no nos- 
so caso o PRINT da linha 40. 



Ao executar um laço FOR... NEXT, 
o computador pode contar em unidades 
diferentes de 1 . Para isso, usamos a de- 
claração STEP (isto é "passo" ou "de- 
grau") junto com a declaração FOR. 
Veja o exemplo: 



O computador não se atrapalha com 
o fato de que 30 não se divide em um 
número exato de passos, como você pe- 
diu. Ele vai o mais perto que pode e en- 
tão pára. 

O número de linhas entre o FOR e o 
NEXT tampouco o preocupa. Você po- 
de colocar o FOR na linha 10 e o NEXT 
na 90 — ou mesmo 9000 — que ele não 
se esquecerá delas. Lembre-se, porém, 
de que o computador executará as linhas 
do laço a cada passagem. 



COMO RETARDAR A ACA0 



O laço FOR... NEXT tem dezenas de 
usos em programação. A mais simples 
delas é gastar tempo. 

Se você rever a seção Você sabe ta- 
buada? na primeira lição de BASIC, en- 
contrará um b"om exemplo. Nesse caso, 
tudo o que acontece entre cada FOR e 
o seu NEXT é que o computador "con- 
ta" um número. Essa contagem é mui- 
to rápida (o tempo exato pode ser da or- 
dem de centésimos ou milésimos de se- 
gundo). Mas, enquanto espera que ele 
come até 1000, você terá uma pausa bem 
perceptível. E se você executar: 



Programadores de jogos frequente- 
mente tornam essas pausas menos can- 
sativas, inserindo nelas algumas notas 
musicais. Tente este exemplo: 



10 FOR 1-255 TO 155 STEP 
20 SOUND I , 1 
30 NEXT I 



10 FOR n-29 TO 10 STEP 
20 SOUND .015,n 
30 NEXT n 



5 SOUND 7,56:SOUND 8,15 
10 FOR I-2S5 TO 0 STEP - 
20 SOUND 0,1 
30 NEXT I 




10 FOR»N-l TO 30 STEP 2.7 
I 20 PRINT N , SOB (N) 
| 30 NEXT N 



FOR N-l TO 100 

PRINT PEEK { - 16336). 

NEXT N 



O Apple II padrão não têm coman 
dos intrínsecos para a produção de efei 
tos sonoros. Desse modo, o efeito con 
seguido é apenas uma série de cliques 
Já o TK-2000 tem o comando SOUND. 
Para rodar o programa acima no 
TK-2000, substitua as linhas 10 e 20 
assim: 



Este é um exemplo do efeito de som 
que os programadores usam em jogos 
para dizer "Você falhou" ou "O alie- 




nigena aierrisou". Ao mesmo tempo, 
quando se faz uma contagem regressi- 
va, a declaração STEP exislenle no la- 
ço FOR... NEXT deve ser seguida dc 
um número negativo, desiinado a dimi- 



PINTANDO 0 SETE E OUTROS NÚMEROS 



Apenas por divertimento — e valio- 
sa experiência em programação — você 
pode usar laços FOR... NEXT para 
criar variedades de efeiíos gráficos. 
Aqui está uma amostra: 



7 CLS 0 

10 FOR N-0 TO 63 
20 LET M=RND(32) -1 
30 LET C=RND(9>-1 
40 SET (N,M.C) 
50 NEXT N 
60 GOTO 10 



10 FOR n-0 TO 21 
20 LET m=RND*31 
30 INK RND*7+1 




Os comandos ou palavras-chave em 
BASIC, tal como PRINT, GOTO, 
STEP, etc. precisam ser digitados 
sempre em letras maiúsculas? 

Sim, quase sempre. É preciso con- 
siderar, no entanto, as especificidades 
das diversas linhas. Alguns computa- 
dores, como os compatíveis com o 
ZX-81 e o Sinclair Spectrum não dei- 
xam margem a dúvidas, pois as pala- 
vras-chave são entradas por inteiro, em 
maiúsculas, ao se pressionar a tecla 
correspondente. 

Outros computadores, como os 
compatíveis com a linha TK-2000 e os 
Apple II e Apple II Plus, não tém minús- 
culas le nem aceitam comandos que 
não sejam em maiúsculas, caso você 
tenha essa opção em sua máquina). 

Finalmente, os compatíveis com as 
imhas MSX e TBS-80 aceitam coman- 
dos em minúsculas, mas convertem in- 
ternamente para maiúsculas todos os 
comandos em BASIC. 



0 PRINT AT i 



60 GOTO 10 



10 SCREEN 3 
20 R-RND(-TIME) 
30 FOR N-0 TO 191 STEP ■ 
40 LET M-RND(1)*255 
50 LET C-RND(1)*15 
60 PSET(M.N) ,C 
70 NEXT N 
10 GOTO 30 



5 GR 

10 FOR N - 0 TO 39 

20 LET M - RND (1) * 40 

30 COLOR- RND (1) * 15 

40 PLOT M.N 

50 NEXT N 

60 GOTO 10 

A linha 10 define a altura do desenho 
que será colocado no video e diz ao 
computador para imprimi-lo linha por 
linha. 

A linha 20 define a largura e, soma- 
da à linha 40, ordena ao computador 
que imprima pequenos quadrados alea- 
toriamente naquela largura disponível. 

A linha 30 escolhe, ao acaso, as co- 
res dos quadradinhos. 



1IIIIIIMHH 
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VARIAÇÕES SOBRE UM MESMO TEMA 



■ ■■■ 



Experimentar variações desse lema de 
elaboração de gráficos vai ajudá-lo a se 
familiarizar com laços FOR... NF.XT e 
com a função RNI). 

Aqui lemos mais duas para cada má- 
quina. Não se esqueça de digiiar o co- 
mando NEW entre elas, para evitar que 
os programas se misturem. 



O TRS-80 comum e seus compatíveis 
não selecionam a cor do ponto gráfico; 
por isso o programa não tem muita gra- 
ça. Sc você quiser ver como é. substitua 
na versão abaixa a linha 40 e retire a li- 
nha 30l 

10 SET (N , M) 




9 CLSO 

10 FOR N-l TO 60 
20 FOR M=0 TO 31 
30 LET ORND(9)-l 
40 SET (N,M,C) 

45 NEXT M 
50 NEXT N 
60 GOTO 10 

Tei 



8 CLSO 

10 LET N-RNDÍ60) 
20 FOR M-0 TO 31 
30 LET ORND{9)-l 
40 SET (N.M.C) 
15 NEXT t 



60 GOTO 10 



10 FOR n-0 TO 21 
20 FOR n>-0 TO 31 
30 INK RND*7+1 
40 PRINT at n,m : "i 
45 NEXT m 
50 NEXT n 
60 GOTO 10 



Da mesma forma, o ZX-81 não tem 
cor. Para rodar o programa, retire a li- 
nha 30 e use apenas letras minúsculas, 
quando digitá-lo. 

Para o TK-90X, tente ainda a seguin- 
te variação do programa. O que acon- 
tece de diferente? 
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Pur-do-sol, df autoria do laço FOR... NEXT para e TK-2000 



20 R-RND ( -TIME) 

30 FOR N-0 TO 191 STEP 4 

40 FOR M-0 TO 255 STEP 4 

50 LET C-HND(1)*15 

60 PSET(M.N) .C 

65 NEXT M 

70 NEXT N 

80 GOTO 30 



que irradiam desse foco. 

A segunda parle desenha uma série 
de linhas na metade inferior do vídeo, 
parlindo de pontos fixos no "horizon- 
te". Isso cria um belo efeito de perspec- 
tiva que pode ser aproveitado cm pro- 
gramas futuros. 



HE 



10 GR 

20 LET N - RN D (1) * 40 

30 FOR M - 0 TO 39 

40 COLOR- RN D (1) * 15 

50 PLOT M.N 

60 NEXT « 

80 GOTO 20 

Antes de ir adiante, aqui esta uma pe- 
quena experiência que você deveria ten- 
tar — apenas no TK90X e no CP400. 
Apague a linha 45 dos dois primeiros 
programas e rode-os novamente com a 
seguinte modificação: 



55 NEXT M 



Você descobriu mais i 
nportante dos 



■aracteris- 
laços FOR... 
NEXT: quando sc tem dois ou mais la- 
ços no mesmo programa, estes devem fi- 
car ou "aninhados" um no outro ou se- 
parados. Sc eles se cruzam, o programa 
não funciona. 



Este programa usa um laço FOR... 
NEXT para criar um padrão dc "pôr- 
do-sol". A primeira parte do programa 
define um ponto no meio da tela. Em 
seguida, ele desenha linhas luminosas 



20 PMODE 3 , 1 
30 PCLS 3 
40 COLOR 2 
50 SCREEN 1,0 
60 FOH N-l TO 80 

70 LINEU27,95)-(256-RND(256) ,9 
6-RNDI96) ) , PSET 
80 NEXT N 
90 COLOR 4 

100 FOR N-95 TO 191 STEP 12 
110 LINE (127, 95)-(0. N] , PSET 
120 LINE (127, 95)- (255, N) .PSET 
130 NEXT N 

140 FOR N=0 TO 255 STEP 10 
150 L INE ( 127 , 95 ) - (N . 191 ) , PSET 
160 NEXT N 
170 GOTO 170 



5 BORDER 0: PAPER 0: INK 6: 
CLS 

10 FOR n-l TO 80 
20 PLOT 127.75 

30 DRAM INT (RND*250) - 1 25 . INT 

(RND*97) 
40 NEXT n 
45 INK 5 

50 FOR n-75 TO 0 STEP -15 
60 PLOT 127,75 

70 DRAU -127, -n: PLOT 127,75: 
DRAW 12 7, -n 

80 NEXT n 
100 FOR n--127 TO 127 STEP 20 
110 PLOT 127,75 
120 DRAW n.-75 
130 NEXT n 



20 SCREEN 2 

30 CLS 

40 COLOR 11 

50 R-RND(-TIME) 

60 FOR N-l TO 80 

70 LINE (127.95)-(256-RND{l) 

6,96-RND(l)"96) 

80 NEXT N 

90 COLOR 6 

100 FOR N-95 TO 191 STEP 12 
110 LINE (127,95}-(0,N> 
120 LINE (127,95)-[255,NÍ 
130 NEXT N 

140 FOR N-0 TO 255 STEP 10 
150 LINE (127,95)-(N,191) 
160 NEXT N 
170 GOTO 170 



3] 53 



10 HGR 

20 HCOLOR- 5 

30 FOR I - 1 TO 80 

40 HPLOT 139,79 TO RN D (1) * 

279, RND (1) * 79 

50 NEXT I 

60 HCOLOR- 6 

70 FOR I - 79 TO 159 STEP 10 

60 HPLOT 139.79 TO 0,1 

90 HPLOT 139. 79 TO 279, I 
100 NEXT I 

110 FOR I - 0 TO 279 STEP 20 
120 HPLOT 139,79 TO 1,159 
130 NEXT I 



Finalmente, temos um programa es- 
petacular que funciona em quatro de 
nossas máquinas. 



D 



mu 




No TK-80X o Caleidoscópio e mais grus.se 



9 SCREEN 1,0 

10 FOR L-0 TO 255 STEP 2 
15 COLOR RND (4) 

20 LINE[0,0)-(L,191) , PSET 

30 LINE <255,0)-(255-L.191) ,PSE 



10 FOR n=0 TO 255 STEP 3 

15 INK RND* 8 

20 PLOT 0,0: DRAW n.175 

30 PLOT 255,0: DRAW -n.175 

40 PLOT 0.175: DRAW n,~175 

50 PLOT 255,175: DRAW -11,-175 




USE O LAÇO CERTO 

Existem muitas oportunidade 
usar os comandos FOR... NEXT 
ços. mas também mui 
ue você não deve empregá-los. 
Quando você quiser, por exemplo, 
forçar o programa a realizar um núme- 
fixo de repetições, sem interrupção 
n quaisquer fases do processamen 
, use um laço FOR... NEXT 
Em contrapartida, se você quiser 
ie uma sequencia de programa seja 
executada até que uma determinada 
condição seja atingida, para em segui- 
da "sair" de dentro do laço, use uma 
declaração diferente, no lugar de 
FOR... NEXT, O comando mais reco- 
mendável em casos assim é o GOTO, 
em BASIC. 



3 R-RND [ -TIME ) 
6 CLS 

9 SCREEN 2 

10 FOR L-0 TO 255 STEP 2 
15 COLOR RND (1) *15 

20 LINE (0,0)-(L,191) 

30 LINE (255,0)-(255-L.191) 

40 LINE (0, 191) - (L,0) 

50 LINE (255,191)-(255-L.O) 

60 NEXT L 

70 GOTO 10 



10 HGR 

20 FOR N - 0 TO 279 STEP 5 

30 HCOLOR- RND (1) * 6 + 1 

40 HPLOT 0,0 TO N, 159 

50 HPLOT 279,0 TO 279 - N.159 

60 HPLOT 0,159 TO N,0 

70 HPLOT 279,159 TO 279 - N,0 

80 NEXT N 

90 GOTO 20 

Cada um dos qualro segmemos des- 
ses padrões começa com um ponto em 
um eanlo do vídeo. O que o laço FOR... 
NEXT faz é contar até o outro lado do 
vídeo, enqiianio um padrão de linhas é 
desenhado cnlre os dois pomos criados 
dessa forma. 

A explicação exala de como os grá- 
ficos funcionam está em um capítulo 
posterior, mas apague as linhas 30 e 40 
e você lerá uma idéia geral do que 
acontece. 

Você pode experimentar, ainda, di- 
giiando algumas das linhas responsáveis 
pelo desenho, variando as cores, mu- 
dando os STFP na linha 10 e excluin- 
do o GOTO na linha final. Em minuios 



você pode criar centenas de padrões di- 
ferentes, um verdadeiro caleidoscópio 
de formas e cores. 

Ao fazer tudo isso, você não estará 
só criando belas imagens no vídeo. Vo- 
cê estará também se familiarizando com 
uma das mais úteis "ferramentas" do 
programador. 




Como devo proceder para manter 
um registro de todas as variáveis usa- 
das em meus programas, sem me per- 
der entre tantos Xs e Ys? 

Uma forma de evitar o uso desorde- 
nado de variáveis em um programa é 
dar-lhes nomes que lembrem o que elas 
representam (nomes mnemónicos). Por 
exemplo, se uma variável é usada pa- 
ra armazenar o número de espaçona- 
ves abatidas em um jogo, podemos 
"batizá-la" de NAVES, 

É fácil manter um registro de variá- 
veis num programa curto. No caso de 
programas mais longos, convém expli- 
citar mais claramente certas funções. 
Assim, utilize FOR LINHA = ... e FOR 
COLUNA - ... (se você estiver colo 
cando coisas na telal em vez de FOR 
X - ... e FOR Y = ... 

Alguns computadores, como o 
TRS-80 e o Apple If, reconhecem ape- 
nas as duas primeiras letras de uma va- 
riável, descartando as demais. Neste 
caso, lente utilizar iniciais que funcio 
nem como abreviaturas adequadas, co- 
mo T para "tempo", RC para "recor- 
de", L para "linha", e assim por diante. 



COMO O COMPUTADOR É CAPAZ 
DE REPETIR TRECHOS DE UM PROGRAMA 



i capacidade de repetir deforma 
controlada o mesmo trecho de um 
programa pode ser encontrada em io- 
das as linguagens de programação. 
No BASIC, a programação de laços 
é muito facilitada pelos comandos 
FOR, 5TEP e NEXT, explicados nes- 
ta lição; porém eles não são es- 
senciais. 

Ê possível programar laços de re- 
petição de outro modo, simplesmen- 
te usando-se uma variável contado- 
ra c uma tinha com a declaração (ou 



t omando) IF. 

Dessa forma, a programação dire- 
ta de repetições exemplifica de mo- 
do mais claro e objelivo a maneira 
que o computador usa, internamen- 
te, para repetir trechos de um 
programa. 

Suponhamos que o programador 
queira imprimir dez vezes a mesma 
mensagem na tela, usando o coman- 
do PRINT. Inicialmente, é preciso 
definir e igualar a 0 uma variável con- 
tadora (por exemplo, NA Em segui- 



da, a cada repetição do laço, essa va- 
riável é incrementada, somando-se o 
número 1 ao valor anterior (este nú- 
mero corresponde, no caso, ao valor 
STEP no comando FOR;. Finalmen- 
te, uma linha adicional do programa 
deve testar se esse-Malor de N é maior 
do que 10. Se não for, o laço será re- 
petido por meio de um comando GO- 
TO e enviará o programa para Irás. 
Se for maior do que 10, o programa 
terminará ou prosseguirá para outro 
trecho. 



Illllll 
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Os videogames para microcomputa- 
dores, como o Sjpece Invaders, não le- 
n nenhuma graça se a movimentação 
e os disparos do canhão laser não pu- 
dessem ser controlados pelo jogador si- 
multaneamente com o desenrolar do jo- 
go. Esse tipo de controle através do te- 
clado ou do joyslkk é uma característi- 
ca de iodos os jogos de açào, mesmo os 
mais simples. 

O elemento mais importante dessa 
técnica de programação é como fazer 
! o computador perceba auto- 
maticamente quando uma tecla qual- 
quer é pressionada, sem que seja neces- 
sário acionar todas as vezes as teclas 
<ENTER> ou < RETURN > . Feito 
isso, o programa pode tomar decisões 
sobre que gráfico animar, que "disco 
voador" destruir, etc. Outro aspecto es- 
sencial é que, enquanto o jogador não 
acionar os controles de jogo, o compu- 
tador poderá se dedicar à movimenta- 
ção contínua de gráficos e figuras sobre 
■ a tela, usando as técnicas aprendidas na 
I última lição de programação de jogos. 



o mesmo método para detectar se uma 
tecla foi pressionada. Mas, como os co- 
mandos do BASIC para essa função não 
foram padronizados, há uma grande va- 
riabilidade enire os diversos tipos de 
computadores. 



QQ! 



Para a maioria dos computadores 
que utilizam o interpretador da lingua- 
gem Microsoft BASIC (adoiada nos mi- 
cros da linha TRS-80, Sinclair e MSX), 
a função utilizada para detectar se uma 



tecla foi pressionada ehama-se 1NKEYS. 
Ao encontrar essa função em um pro- 
grama, o computador executa uma 
"varredura" do teclado, para ver se al- 
guma passou do estado de desligada pa- 
ra ligada, e retorna o caractere ao pro- 
grama alravés da função INKEVS. Se 
nada foi pressionado, a função volta 
com um valor "vazio". 
Por exemplo: 



... 1 PROGRAMAÇÃO Dl JOGOS 




QQ 



■ APRENDA A DETECTAR SE 


■ 


CONSTRUA BLOCOS GRÁFICOS 


UMA TECLA FOI PRESSIONADA 




UcoInUM U IIMIIvllOU 


■ DISPARE SEU MÍSSIL 


■ 


BASES DE MÍSSEIS 


■ COMO CONTROLAR UMA 


■ 


A AUTO-REPETICAO 


FIGURA EM MOVIMENTO 


■ 


COMO MONTAR ALVOS MÓVEIS 




20 CLS 

30 LET AS-INKEYS:IF AS-" 
GOTO 30 

40 PRINT 6269, "OPA!" 



20 CLS 

30 IF INKEYS" " " THEN 
40 PRINT AT 11 , L4 ; "Al 



20 CLS 

30 LET A$-INKEYS:IF AS- 
GOTO 30 

40 LOCATE 18.11:PRINT "I 



Execute o programa e pressione qual- 
quer (ecla, à exceção de <CAPS 
SHIFT> ou < SYMBOL SHIFT 1> 
(nos Sinclair), < BREAK > ou 
<SH1FT> (nos TRS-80) ou <CTRL 
STOP> ou < SHIFT > (no MSX). O 
computador vai exibir um "grito de 
dor" no meio da tela. O programa fun- 
ciona da seguinte maneira: 

A linha 20 limpa a tela. A linha 30 
faz com que o computador espere até 
que uma tecla seja acionada para conti- 
nuar o programa. Note que não há es- 
paços entre as aspas. Por causa disto, 
a linha 30 quer dizer: "Se 
INKEYS = nada, ou se nenhuma tecla 
está sendo pressionada, cheque nova- 
mente". É muito importante ter o 
IF...THEN GOTO 30 porque de outra 
forma o computador verificaria apenas 
uma vez o teclado e só por uma fração 
de segundo. 

Assim que uma tecla é acionada, 
INKEYSé igualado à tecla. Por exem- 
plo, se "3" é pressionado, então 
INKEYS = "3". Isso basta para que a 
linha 40 imprima "AÍ!" na tela. 

Na maioria dos jogos você deve pres- 
sionar uma tecla para mover um tanque, 
uma míssil, etc. Se você mudar a linha 
40, verá como isto é feito (no TK-85 use 
um "D" maiúsculo): 



D Q 

40 IF AS-" 

UM, ISSO E 
9, "OPA ! ' 



40 IF INKEY$-"d" 1 
AT 11,9; "Hum. ias 
STOP 

50 PRINT AT 11,14 



20 CLS 

30 LET AS-INKEYS:IF AS-"" THEN 
GOTO 30 

40 IF A$-'D" OR AS-"d" THEN LOC 
ATE 10,11:PRINT "idm... íbbo é 
bom ! " : END 

50 LOCATE 1S,11:PRINT "Ui I" 

A linha 40 agora verifica se a tecla 
"D" foi pressionada, ou seja, se 



INKEYSé iguala "D" ou a "d". Senão 
for, o programa para os micros da linha 
Sinclair, que não têm a declaração EL- 
SE, vão ignorar a linha 40 e passar pa 
ra a linha 50. Qualquer outra tecla di 
ferente de "D" mostrará, quando pres- 
sionada, a segunda mensagem de "rea- 
ção emocional". Nos micros de outras 
linhas, o IF... THEN. ..ELSE permite 
programar em uma única linha as duas 
alternativas. 

Existem mais duas exigências impor- 
tantes nesse programa. A primeira é que 
o "D" ou "d" precisa estar entre aspas, 
ou o computador o interpretará como 
uma variável. A segunda vale apenas pa- 
ra o TK-90X: nessa linha de micros, 
deve-se usar um "d" minúsculo: caso 
contrário você deve pressionar < CAPS 
SHIFT> e "d" para que o programa 
funcione. 

Tanto nesse programa quanto no an- 
terior é possível notar que todos os com- 
putadores utilizam exatamente a mesma 
técnica de investigação do teclado. Ape- 
nas a maneira de colocar uma mensa- 
gem no meio da tela c diferente para ca- 
da um. 



Agora você verá que a partir da de- 
tecção do pressionamento de uma tecla 
usando o IF INKEYS = "tecla" é mui- 
to fácil disparar um míssil ou mover 
uma base de fogueies. Este programa 
dispara um míssil de uma base quando 
a tecla "F" é acionada: 



20 CLS 

30 PRINT ê397,"Mt" 

40 LET K$-INKEY$:IF KS-" "THEN G 

OTO 40 

50 IF K$-"F" THEN LET M-334 ELS 

E GOTO 40 

60 PRINT 6M, " I " 

70 PRINT 6M+32. " " 

80 LET M-M-32 

90 IF M>0 THEN GOTO 60 

100 GOTO 20 



30 KS=INKEYS 



"" GOTO 30 
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40 IF K-T- THEN M=374 

GOTO 30 
50 PRINT eM.CHRS(94); 
60 PRINT eM+64. " " : 
70 M-M-64 
80 IF M>0 GOTO 50 
90 GOTO 10 



Para rodar também no ZX-81, digi- 
te o programa abaixo apenas com letras 
maiúsculas: 
20 CLS 

30 PRINT AT 21,14;" dh " 

40 IF INKEY$="" THEN GOTO 40 

50 IF INKEYS<>"E" THEN GOTO 40 

55 LET y-20 

60 PRINT AT y . 1 5 ; " I " 

70 LET y-y-1 

75 PAUSE 1 

80 PRINT AT y + 1 , 15 ; " " 
90 IF Y>0 THEN GOTO 60 



20 CLS 

30 LOCATE 17.20:PRINT " Jb " 
40 LET KS e INKEYS : IF KS-"" THEN 
GOTO 40 

50 IF KS-"F" OR KS-"f" THEN LET 

M-20 ELSE GOTO 40 
60 LOCATE 18,11: PRINT" " 
70 LOCATE íe.M+liPRINT " " 
80 LET M-M-l 
90 IF M>0 THEN GOTO 60 
100 GOTO 20 

A linha 30 imprime uma base de mís- 
seis Formada de três símbolos (no Sin- 
clair e no MSX, três símbolos gráficos), 
na parte mais baixa da tela (última 
linha). 

Na linha 40, LET K$ = INKEYS é 

muito importante, visto que você quer 
checar se a tecla foi pressionada várias 
vezes durante o programa. Esta não fun- 
cionaria sem essa declaração. O compu- 
tador se recorda do valor de 
INKEYS apenas por uma f ração de se- 
gundo e, se você não checar 
INKEYS suficientemente rápido, ele po- 
de esquecer que a tecla foi pressionada. 

Mas, vocc pode lambem fazer com 
que ele se lembre do que foi teclado dan- 
do um nome, K$, à tecla que foi pres- 
sionada e checando mais tarde (versão 
para a linha TRS), ou dando um novo 
comando INKEYS. 

A linha 50 verifica se "F" foi pres- 
sionado. Se não, o programa volta à li- 
nha 40 e continua a varrer o teclado. 
"M" é a posição do míssil depois de ter 
sido disparado. 

A linha 60 imprime o míssil na leia 
e a linha 70 se encarrega de apagá-lo de 

I suas posições anteriores. 

[ A linha 80 faz o míssil se deslocar pa- 
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ra cima na teia, e a linha 90 evita que 
o computador tente imprimir o míssil 
numa posição fora do vídeo, o que pro- 
vocaria uma mensagem de erro. A pri- 
meira posição de leia tem o número 0, 
e o computador não pode imprimir na- 
da em uma posição de número menor 
que 0. Quando M = 0 o programa é rei- 
niciado. A técnica a ser utilizada para 
fazer o míssil subir vai depender, ago- 
ra, do formato da tela do computador 
utilizado. 



DQ 



A linha 80 subtrai um número cons- 
tante N da posição anterior do míssil 
(variável M), de maneira que ele avan- 
ça uma linha em direção ao topo da te- 
la a cada vez que é impresso. Esse nú- 
mero vale 32 para os micros compatíveis 
com o TRS-Color, pois há 32 colunas 
na tela do computador. Já para o 
TRS-80, o número é 64. 



A linha 80 subtrai 1 da posição ante- 
rior do míssil, pois o comando de posi- 
cionamento utilizado, o PRINT AT, 
identifica as coordenadas (linha, colu- 
na) onde serão exibidos os gráficos. As- 
sim, a coluna é mantida constante, pa- 
ra o míssil subir "reto", na coluna 15. 
e o que varia è Y, ou a altura dele (lem- 
bre-se de que Y = 0 está no topo da te- 
la, e não embaixo. 



70 IF KS-"D" THEN LET P=P+l:GOT 
O 90 

80 GOTO 50 

90 IF P<384 OR PM11 THEN GOTO 
50 

100 GOTO 40 

A linha 30 determina a posição ini- 
cial da base, e a linha 40 coloca o míssil 
naquela posição. 

A linha 50 verifica o teclado, fazen- 
do o computador esperar até que uma 
tecla seja pressionada. 

A linha 60 investiga se "L" foí pres- 
sionado. Se foi, ela move a base uma 
posição para a esquerda, subtraindo I 
do número que determina a posição da 
base. A linha 70 confere se "R" foi 
pressionado e nesse caso muda a posi- 
ção da base adicionando 1 à coordena- 
da. A linha 90, finalmente, verifica se 
o programa está dizendo ao computa- 
dor para colocar a base fora da tela — 
em caso afirmativo, o programa retor- 
na à linha 50. 



D 



O comando dc posicionamento é o 
LOCATK, que dá as coordenadas para 
posicionamento. A linha 80 tem por 
função diminuir em 1 o valor anterior 
do míssil (variável M), para que ele se 
desloque para cima, na mesma coluna 
(constante 18). 



MOVIMENTOS SOBRE A TELA 



Da forma que está, o programa da 
base de mísseis é bastante limitado pa- 
ra um jogo de "artilharia", mas, impri- 
mindo movimento lateral à base conse- 
guiremos melhorá-lo um pouco. Veja- 
mos como fazer 



20 CLS 

30 LET P-397 

40 PRINT @P .CHRS C 143) +CHRS (140) 
+-CHRS (128) +CHRS (140) +CHRS (143) 
50 LET KS-INKEY$:IF KS=" " THEN 
GOTO 50 

60 IF K$-"E" THEN LET P-P-l:GOT 
O 90 



20 CLS 
30 P=797 

40 PRINTeP,CHRS(32)+CHRS!184)+ 
CHRSU91)+CHRS(180)+CHR$<32) 
50 KS= INKEYS : IF KS="" GOTO 50 
60 IF K5="L" THEN P = P-1 
70 IF KS="R" THEN P=P+1 
BO GOTO 50 

90 IF P<767 OR P>828 GOTO 50 
100 GOTO 40 

O programa para o TRS-80 funcio- 
na de modo idêntico ao programa para 
o TRS-Color. Note que os caracteres 
gráficos têm símbolos diferentes, bem 
como as coordenadas de posicionamen- 
to dos comandos PRINT f 



Para rodar também no ZX-81, digi- 
te o programa abaixo apenas com letras 
maiúsculas. Além disso, ponha os co- 
mandos LET da linha 80 em duas linhas 
separadas. 

30 CLS 

40 LET x-15 

50 LET y-13 

60 PRINT AT y.x;" <*<■ " 

70 IF INKEYS" " " THEN GOTO 70 

80 LET lx-x: LET ly-v 

90 PRINT AT ly,lx;" 
100 IF INKEYS="q" THEN STOP 
110 IF INKEYS-"w" THEN LET y- 



IF INKEY$-"z" THEN LET y- 
IF INKEY$-"a" THEN LET X- 
IF INKEYS-"s" THEN LET x- 




Posso escolher qualquer tecla para 
operar os controles de um jogo no mi- 
crocomputador? 

Sim. Tudo o que você tem a fazer 
é mudar os caracteres nas linhas do 
programa que testam qual foi a tecla 
pressionada e detectada por INKEYS. 
Mas cuidado; o que parece ser bastan- 
te lógico na teoria às vezes funciona 
mal na prática. Por exemplo, usar as te- 
clas E, D, C, B para representar esquer- 
da, direita, em cima e embaixo, dificul- 
ta as ações do jogador. Por isso, 
costumam-se usar as teclas de movi- 
mentação do cursor, principalmente 
nos computadores onde elas estão 
aglomeradas no mesmo ponto do tecla- 
do, ou presentes em pares complemen- 
tares. Outra dica é usar A e Z, para mo- 
vimentar para cima e para baixo, e K 
e L para direita e para esquerda, pois 
ocupam posições opostas no teclado. 
Já a barra de espaços é muito boa pa- 
ra efetuar disparos, pois o polegar po- 



150 IF X<1 OR X>29 THEN LET x 
-lx 

160 IF y<l OR y>20 THEN LET Y 
-lY 

170 GOTO 60 



As linhas 40 e 50 esiabeleeem a posi- 
ção inicial da base de mísseis, na 13." li- 
nha da (ela, e quinze espaços á esquer- 
da. A linha 60 mostra a base na tela. 

A linha 70 faz o computador esperar 
até que alguma tecla seja impressa. Se 
foi, a base é movida. 

As linhas 80 e 90 "perseguem" a ba- 
se de mísseis em movimento, colocan- 
do três espaços em branco sobre sua úl- 
lima localização; de modo a apagá-la. 
Como a linha 60 está deniro do laço de 
repetição e sempre vem antes da linha 
90, a base c sempre impressa em sua no- 
va posição antes que a posição antiga se- 
ja apagada. 

A linha 100 termina o programa se 
a letra Q (de quit, em inglês, que signi- 
fica abandone) for pressionada. 

A linha 1 10, por sua vez, verifica se 
a tecla "W" foi aeionada, subtraindo 
1 do valor de "Y" em caso afirmativo. 
O efeito disso é a movimentação da ba- 
se uma linha para cima. 

As linhas 120 a 140 operam de for- 
ma similar. A linha 1 20 move a base pa- 
ra baixo se "Z" é pressionado. 

A linha 130, move para a esquerda, 
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caso "A" seja acionado, e a 140 para 
a direita, ao se pressionar ",S". A linha 
150 evita que a base seja colocada fora 
das laterais da tela. 

A linha 160 impede que a base saia 
por cima ou por baixo da tela. Neste ca- 
so, fazer V = LY resolve o problema. A 
linha 170 fecha o laço, reiniciando to- 
do o processo. 



FM 



30 CLS 

40 LET X-17 

50 LET Y-20 

60 LOCATE X.Y:PRINT * " 
70 AS-INKEYS:IF AS""" THEN GOTO 
70 

80 LET LX-X:LET LY-Y 
90 LOCATE LX , LY : PRINT" 
100 .IF AS-CHRS<27) THEN END 
110 IF AS-CHRS (28) THEN X-X+l 
120 IF AS-CHRS ( 29) THEN X-X-l 
130 IF AS-CHRS (30) THEN Y-Y-l 
140 IF AS-CHRSOl) THEN Y-Y+l 
150 IF X<0 OR X>36 THEN X-LX 
160 IF Y<0 OR Y>20 THEN Y-LY 
170 GOTO 60 

O programa para a linha MSX c bas- 
tante compacto e elegante. A linha 60 
coloca a base em posição inicial (três ca- 
racteres gráficos), que é definida nas li- 
nhas 40 e 50, ou seja, na linha 20 e na 
coluna 17 (no meio da última linha da 
tela). A linha 70 detecta se alguma tecla 
foi pressionada. 

Se alguma tecla foi pressionada, o 
programa arma/ena em LX e LY as 
coordenadas da última posição da base 
(X e Y), para usá-las posteriormente (li- 




Por que o meu programa "bomba 
listo é. falhai se. num jogo qualquei 
a figura que está sendo movimentada 
atinge a borda da tela? 

Provavelmente porque um dos va- 
lores que controlam o posicionamento 
da impressão do gráfico na teta tornou 
se muito grande ou muito pequeno, 
cedendo os limites da teta. Portanto, 
verifique 6e novo as linhas que fazerr 
essa tarefa, caso você obtenha algume 
mensagem de erro do computador, 
neste sentido. Por precaução, é sem 
pre recomendável testar os valores de 
posicionamento antes de imprimir algu 
ma coisa na tela: se eles excederem os 
limites, podem ser corrigidos para fica 
rerh dentro da tela. 



nha 80). e apaea a base nessa posição, 
por meio da linha 90. 

As linhas 100 a 140 detectam se a te- 
cla apertada foi uma das seguintes: fle- 
cha para cima, flecha para baixo, flecha 
para esquerda c flexa para direita (teclas 
de controle do cursor), que são identi- 
ficadas pelos seus códigos respectivos 
(29, 28, 30 e 3 1 ). O jogo termina quan- 
do a tecla CLKAR (código 26) tiver si- 
do pressionada. 

As linhas 150 e 160 verificam se as 
bordas da tela foram ultrapassadas. Se 
foram, retornam à posição da base pa- 
ra as últimas coordenadas (LX e LY). 

Finalmente, a linha 60 faz o ciclo sc 
repetir, para a próxima pressão à tecla. 



20 CLS 

30 FOR N-l TO 100:NEXT N 
40 LET PO-430 

50 LET B$-CHRSU43)+CHRS(140)+C 
HRS (128) +CHRS (140) +CHRS (143) 
60 LET A-RND(30)+64 
70 PRINT 6A, -*" 
80 LET LP-PO 
90 PRINT «PO.BS 

100 IF PEEKO40J-247 THEN LET P 
O-PO-1 

110 IF PEEK(338)-247 THEN LET P 
O-PO+1 

120 IF RO<415 OR PO>444 THEN LE 
T PO-LP 

130 LET KS-INKEYS 

140 IF KS-"F" THEN LET M-PO-30 

ELSE GOTO 60 

150 PRINT êti, "T" ; 

160 PRINT êM+32," "; 

170 LET M=M-32 

180 IF M-A THEN GOTO 20 

190 IF «>0 THEN GOTO 150 ELSE P 

RI NT 3M+32." 

200 GOTO 80 



D 



20 CLS 

30 FOR N-l TO 100:NEXT N 
40 PO-800 

50 BS=CHRS(32)+CHRS(184) 
CHRSU91)+CHRS(180) 
CHRS (32) 

60 A=RND (60) +2 

70 PRINT3A, "*" ; 

80 LP=PO 

90 PRINT6P0.BS: 



100 IF PEEK (14344) 00 THEN PO = 

PO-1 

110 IF PEEK(14368)<>0 THEN PO= 
PO+1 

120 IF PO<767 OR PO>B28 THEN 

PO=LP 
130 KS-INKEYS 

140 IF KS="F" THEN M=PO-62 ELSE 

GOTO 80 
150 PRINTeM,CHRS(94) : 
160 PRINTêM+64 . " " i 
170 M=M-64 
180 IF K=A GOTO 20 
190 IF M>0 THEN GOTO 150 ELSE 

PRINT «M+64, " " ; 
200 GOTO 80 



Agora você já tem alguns blocos a 
partir dos quais podem ser montados vá- 
rios jogos. O exemplo abaixo mostra co- 
mo usá-los para desenvolver um jogo 
bem simples, em que um canhão móvel 
dispara mísseis em direção a um alvo 
(uma estrela): 



Para rodar também no ZX-81, digi- 
te o programa abaixo apenas com letras 
maiúsculas: 

20 CLS 

30 PAUSE 25 

40 LET x-15: LET Y-21 

50 LET BS-" JB» " 

60 LET a-INT (RND*28)+2 

70 PRINT AT 2. a;"*" 

80 LET xx-X 

90 PRINT AT y.x;BS 

100 IF INKEYS-"z" THEN LET X- 
x-1 

110 IF INKEYS--X - THEN LET x- 
x+1 

120 IF x<0 OR x>27 THEN LET x 

140 IF INKEYSO"f" THEN GOTO 
80 

145 LET m-y-1 

150 PRINT AT n,x+2;"T- 

160 PRINT AT m+l.x+2;" " 

170 LET m-m-1 

180 IF m-2 AND x+2-a THEN 

GOTO 20 

190 IF mOl THEN GOTO 150 
195 PRINT AT m+l,x+2;" " 
200 GOTO 80 



FM 



20 CLS 

40 LET X-17:LET Y-20 

50 LET B3-" JU - 

60 LET A-INT(RND(l)*36)+2 

70 LOCATE A, 0 : PRINT "*" 

80 LET XX-X 

90 LOCATE X . Y : PRINT BS 

95 LET AS-INKEYS:IF AS-" THEN 

GOTO 95 

100 IF AS-CHRS (28) THEN LET X-X 
t-1 

110 IF AS-CHRS (29) THEN LET X-X 

-1 

120 IF X<0 OR X>35 THEN LET X-X 
X 

130 IF ASO " " THEN GOTO 80 
140 LET M-Y-l 

150 LOCATE X+2.M:PRINT "I" 
160 LOCATE X+2,M+1:PRINT " " 
170 LET M-M-1 

180 IF M-0 AND X*2-A THEN GOTO 
20 
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as teclai; por isso o programa dado aci- 
ma não necessita qualquer modificação: 
basia ficar pressionando a lecla de co- 
mando para baixo, que a base se move 
automaticamente. 

Já para os computadores que não dis- 
põem desses recursos, temos que nos sa- 
tisfazer com o INKEYS, mesmo. Mas é 
difícil programar movimentos contínuos 
usando INKEYS. 

Um modo de se resolver esse proble- 
ma é ilustrado a seguir. 



Q 



190 IF MOO THEN GOTO 150 
200 LOCATE X+2 ,M+1 : PRINT" * 
210 GOTO 80 

Quando você executar o programa, 
verá uma estrela perto do topo da (ela. 
As teclas Z e X movem a base de fogue- 
tes para a esquerda e a direita, e a tecla 
F dispara o míssil para destruir a estre- 
la em sua posição. 

Pense no programa como tendo três 
partes: uma, ate a linha 70; outra, da 80 
até a 120; e a última, da 130/140 até a 
200. 

As linhas que vão de 130/140 até 200 
são similares ao programa anterior que 
dispara o míssil. 

As variáveis e os GOTO foram mu- 
dados, mas a única linha adicionada foi 
a 180. Ela verifica se o míssil e a estrela 
estão no mesmo lugar. O programa re- 
começa em caso positivo. 

A porção central, da linha 80 a 120, 
é uma versão compacta do programa 



"Movimentos Sobre a Tela". Os PEEK 
no programa para o CP400 verificam se 
Z ou X foram acionados e alteram PO 
de maneira apropriada. 

A primeira parte do programa tem 
várias funções. A linha 30 provoca uma 
pequena pausa antes que o programa 
continue. Isso é importante quando a li- 
nha 180 fecha o laço no fim do progra- 
ma. As linhas 40 e 50 determinam a po- 
sição inicial da base e definem sua 



MELHOR MOVIMENTAÇÃO 



Pressionar a tecla que move a base 
para a direita ou para a esquerda toda 
vez que se precisa deslocar figuras é bas- 
tante cansativo. Então, usualmente 
montamos um mecanismo de auto- 
repetição. 

Alguns micros, como os da linha 
MSX, possuem auto-repetiçâo em todas 



20 CLS 

30 LET BLS=CHRS(128) 
40 LET P0=238 
50 PRINT ePO.BLS 
60 LET LP-PO 

70 IF PEEK(340)=247 THEN LET PO 
-PO-l:GOTO 120 

80 IF PEEK(338)=24? THEN LET PO 
-P0+1 :GOTO 140 

90 IF PEEK(338)-251 THEN LET PO 
=P0-32:GOT0 150 

100 IF PEEK(342)-253 THEN LET P 
0-PO+32:GOTO 150 
110 GOTO 70 

120 IF(LP AND 31)=0 THEN LET PO 
-LP 



-LP 

150 IF PO>510 OR PO<0 THEN LET 

P0-LP:G0T0 70 

160 PRINT «LP. - *; 

170 PRIMT EPO.BLS; 

180 GOTO 60 



PO" 



20 CLS 

30 BLS=CHRS(191J 
40 PO=540 
50 PRINTePO.BLS; 
60 LP = PO 

70 IF PEEKU43441 O0 THEN 

PO+l:G0TO 120 
80 IF PEEK (14368 ) <>0 THEN 

PO-l:GOTO 140 
90 IF PEEK (14352)00 THEN PO= 

PO-64:G0TO 150 
100 IF PEEK(14400)O0 THEN PO- 

PO+64:GOTO 150 
110 GOTO 70 

120 IF (LP AND 63)-0 THEN PO=LP 
130 GOTO 150 

140 IF (PO AND 63J-0 THEN PO=LP 
150 IF PO>1022 PR PO<0 THEN P0= 

LP: GOTO 70 
160 PRINT8LP." * ; 
170 PRINTEPO.BLS; 
160 GOTO 60 

Ao executar este programa você terá 
um bloco posicionado no centro da te- 
la. O programa permite que você o mo- 
va para cima e para baixo, para a direi- 1 
ta e para a esquerda. 



Illllllll 
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Os computadores contam em binário, 
como se tivessem milhões de mãos com 
um dedo só. Para aprender a programar 
em código de máquina, você deve 
conhecer esse sistema. 



Um dos problemas de se aprender có- 
digo de máquina é que você precisa en- 
tender um pouco da teoria dos números. 
Não é uma tarefa tão difícil quanto po- 
de parecer. Se você sabe contar até 16, 
não terá qualquer dificuldade. Mas, ini- 
cialmente, é preciso aprender a contar 
até 2. 



Mesmo a pessoa mais avessa a mate- 
mática não tem qualquer dificuldade pa- 
ra dizer as horas ou acompanhar o re- 
sultado de uma partida de futebol. O 
uso dos números faz parte do dia-a-dia 
de tal forma que nunca nos preocupa- 
mos com a maneira com que eles fun- 
cionam. 

No mundo ocidental usamos habi- 
tualmente um sistema numérico basea- 
do no número 10. Isto significa que co- 
meçamos uma contagem usando os nú- 
meros de 0 a 9. Se precisarmos de uma 
grandeza maior do que 9 (por exemplo, 
10). usamos os dígitos disponíveis. As- 
sim, colocamos o 1 na "casa" da es- 
querda e o 0 à sua direita. 

Este é chamado um sistema de nume- 
ração de base 10 ou decimal, porque o 
vaíor do dígito é multiplicado por 10 a 
cada posição que contamos, a partir da 
direita. Por exemplo, o número 3275 va- 
le 5 + 7x 10 + 2x 10 x 10 + 3x 10 x 
10 x 10 ou seja í + 10+200 + 3000. Ca- 
da dígito multiplica seu valor absoluto 
por 10 a cada vez que é movido uma po- 
sição mais à esquerda. Todo sistema que 
usa esse método para representar núme- 
ros é chamado de posicionai. 

Tudo isso parece óbvio porque faze- 
mos esses cálculos todos os dias, sem 
pensar muito neles. Entretanto, existem 
outros sistemas de numeração, diferen- 
tes do decimal, como por exemplo, os 
que são usados nos modernos micros. 



SISTEMAS ANTIGOS Ê NOVOS 



Os antigos babilónios tinham um sis- 
tema de numeração baseado no núme- 
ro 60. Os vestígios disso podem ser vis- 
tos nas nossas medidas de tempo e de 

I ângulos: existem 60 segundos em cada 
minuto, 60 minutos em cada hora, as- 



sim como 60 minutos de arco em um 
grau e 6 vezes 60 graus — ou seja, 360 
— num círculo completo. 

Você pode contar até 59 segundos, 
mas, se adicionar mais um segundo a es- 
se número, terá um minuto e recomeça- 
rá a contar os segundos do 0. E quando 
tiver 59 minutos e 59 segundos, um se- 
gundo a mais fará uma hora, sendo ze- 
rados os minutos e segundos. 

Resquícios de numeração em outras 
bases podem ser encontrados em velhos 
sistemas de medidas da Inglaterra. Exis- 
tem 8 pintas em cada galão, 12 polega- 



das em cada pé e 16 onças em cada li- 
bra. Outra base que ocorre com fre- 
quência é o número 12. Temos 12 pole- 
gadas em um pé, 12 unidades em uma 
dúzia e 12 dúzias em uma grosa. A base 
12 era muito usada tanto para dinheiro 
como para bens, devido à facilidade 
com que se divide por 2, 3, 4 ou 6. Cer- 
tas coisas tinham que ser divididas en- 
tre várias pessoas, e a base 12 tornava 
as transações muito mais simples. O nú- 
mero 10, ao contrário, só é divisível por 
2 e 5. Vemos, portanto, que muitas ve- 
zes é conveniente usar outra base que 
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O SISTEMA DECIMAL 



OUTRO S S ISTEMAS NUMÉRICOS 
COMO CONTAR EM BASE 9 



CONTAS E M DIFER E NTES BASES 
CONVERSOR PARA 



TODAS AS BASES 



O SISTEMA BINÁRIO 



BITS E BYTES 



COMO O COMPUTADOR 




não 10. Uma libra dc peso, por exem- 
plo, pode ser dividida em onças por su- 
cessivas divisões ao meio. 



CONTANDO COM NOVE DEDOS 



Não há nenhuma razão que impeça 
o uso de um sistema baseado em qual- 
quer número escolhido ao acaso. Se ti- 
véssemos nascido, lodos, com 1 dedo a 
menos em uma das mãos, provavelmen- 
te usaríamos um sistema "nonário" ou 
seja, de base 9. Contaríamos normal- 



Os dez dedos das mãos levaram 
o homem a conlar usando a base 10. 
Auxiliares de cálculu simples, como n 
ábaco, ou contador, são um 
modelo mecânico de* nossos dedos. 



mente até 8 e, para obter o número se- 
guinte, colocaríamos o 1 numa posição 
mais à esquerda e o 0 na posição à di- 
reita. Ou seja, o decimal 9 seria repre- 
sentado no sistema nonário pelo núme- 
ro 10. 

Da mesma forma, se somássemos 1 
a 18, teríamos 20; e 100 se somássemos 
1 a 88. 

Como se pode ver pelo exemplo aci- 
ma, as regras da aritmética se aplicam 
sempre, não importando qual seja a fa- 
se do seu sistema de numeração. Você 
pode tentar operações simples num sis- 
tema de base 7 ou 8, e assim por diante. 
Qualquer que seja a base, as regras ma- 
temáticas são sempre válidas. 

No nosso sistema nonário, a cada ca- 
sa para a esquerda que o número deslo- 
ca, seu valor absoluto é multiplicado por 
nove. Dessa forma, 3275 em nonário é 
igual a5 + 7x9 + 2x9x9 + 3x9x 
9x9, ou seja, 2417 em decima!. Você 
deve ler notado que não existe o núme- 
ro 9 no sistema nonário. Ele é represen- 
tado por 10. Assim, seria correio dizer 
que, em nonário, 3275 é igual a 5 + 
7x 10 + 2x lOx 10 + 3x lOx lOx 10. 

Com um pouco de agilidade mental 
você pode fazer alguns cálculos simples 
em nonário. Por exemplo: 99x9 dá 891 
em decimal. Em nonário, o número 99 
é representado por 1 20; isto é: 1x9x9 
+ 2x9, ou 81 + 18. E 9 é 10. 

Assim, em nonário, 99x9 se traduz 
por 120 x 10 ou 1200, queé 1 x9x9x9 
+ 2x9x9, 891 em decimal. 

Qualquer adição, subtração, multi- 
plicação ou divisão de números noná- 
rios funcionará normalmente. Confira 
você mesmo. Só é preciso um pouco de 
cautela. Lembre-se que 16 em decimal 
é 17 em nonário. 



do que vimos até agora. Para manejá- 
los mais facilmente, temos que inventar 
novos números. 

Dessa maneira, se você quisesse em- 
pregar um sistema de base 12, teria de 
inventar números para representar o 10 
e o 11. Em duodecimal, 10 representa 
1 X 12, ou 12. E 11 significa 1 x 12 + 1, 
ou seja, 13 em decimal. 

O modo mais fácil de aumentar a fai- 
xa dos números é utilizar o alfabeto. O 
10 pode ser A, e o 1 1 , B. A2 seria, as- 
sim, 122; e BA, 142. 



UM PROGRAMA PARA TODAS AS BASES 



Fazer contas em bases de numeração 
que não sejam decimais pode ser bastan- 
te difícil e cansativo. Assim, apresenta- 
mos aqui um programa que faz contas 
em qualquer base até 36. Quando você 
rodá-lo, ele vai perguntar em que base 
quer trabalhar. Você deve responder em 
decimal. 

A seguir, ele pede um número. Este 
deve ser digitado na base que você sele- 
cionou. Se foi a base 8, não deve haver 
nenhum número acima de 7. E se você 
escolheu uma base acima de 10, os nú- 
meros acima de 9 deverão ser digitados 
por meio das letras do alfabeto, sempre 
maiúsculas. 10 será A, U, B, 12, C, e 
assim por diante. 

Então, o computador perguntará que 
operação você deseja ( + , - , * ou / re- 
presentando respectivamente soma, sub- 
tração, multiplicação e divisão). Após 
isso, você deverá digitar outro número, 
na mesma base do anterior. Se a sua 
operação é divisão, e a resposta não é 
um inteiro, o computador lhe dirá que 
a operação não será realizada. "Divisão 
não exala", será a mensagem no vídeo. 
Se não; a operação e seu resultado apa- 
recerão na leia na base que você esco- 
lheu para operar. 



ÍIO 



PROBLEMAS DAS BASES ACIMA 0E 10 



Lidar com sistemas numéricos de ba- 
se maior que 10 é um pouco mais difícil 



10 CLS 

20 INPUT"BASE (ATE 36) ";B 

30 INPUT" NUMERO (INTEIRO) 

40 INPUT-SINAf- " : SS 

50 INPUT"NUMERO(INTEIRO) 

60 PS-AS:GOSUB 210 

70 XS-STRS (DE) 

80 PS-BS:GOSUB 210 
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90 YS°STRS<DE) 

100 IF SS="*" THEN X=VAL (XS) "VA 
L(YS) 

110 IF SS-"/" THEN X=VAL(XS)/VA 
L(Y5) 

120 IF SS-"+" THEN X-VAL (XS ) +VA 

L(YS> 

130 IF 88*"-" THEN X-VAL (XS) "VA 
L(Y$) 

140 IF XOINT(X) THEN NS-"IMF0S 
SIVEL" :G0T0 190 

150 U-B*INT (X/B) : IF X-U>9 THEN 

NS-CHRS (55+ (X-U) ) +NS:G0T0 170 

160 N$=MIDS(STHS(X-U)+NS.2) 

170 X-INTIX/B) 

180 IF X>0 GOTO Í50 

190 PRINT #257 , AS+" "+SS+" "+BS 

;■- ":NS 

200 END 




UM MODELO PARA NÚMEROS EM 
DIFERENTES BASES 

As vezes é muito difícil visualizar co 
10 funciona um sistema de numeração 
de base diferente ao de base 10. Afi- 
nal, não é fácil ter que cortar fora al- 
guns dedos, ou fazer crescer dedos adi - 
s mãos, de modo que você 
parece obrigado a se satisfazer com o 
i! Mas seria possível, por exem- 
plo, grudar dois dedos um no outro com 
fita adesiva, para contar na base 9, ou 
r dois palitinhos extras de conta- 
gem, para trabalhar na base 12. 

solução mais inteligente seria 
o seu próprio ábaco, ou cal- 
culadora de continhas, similar àqueles 
mostrados nas fotos que acompanham 
esta lição. Um ábaco convencional 
(mesmo aqueles de brinquedo, para 
criancal pode ajudar e agilizar as 
le base 10: assim 
cê pode criar um ábaco com tantas bo 
linhas em cada vareta da moldura quan 
er. Não é necessário nem mes 
a moldura cheia de 
mes, mas simplesmente arranjar uma 
série de sulcos paralelos, para conter 
s bolinhas e fazè-las rolar para cima 



Não se esqueça de que < 
'a file' 



a é um a me- 
nos do que a base em que você quer 
trabalhar Assim, na base 10, você pre- 
e ape- 
nas uma. Nenhuma bolinha equivale ao 
número zero, em qualquer sistema de 
numeração. Uma bolinha afastada das 
demais significa o número 1, e assim 
por diante. Quando a operação exigir 
"s de 9 bolinhas no sistema decimal, 
zere a fileira de volta, e suba uma boli- 
nha na fileira seguinte (é a operação de 



"VttH 



"1 



210 DE'0 
220 IN-0 

230 Y-ASC (RIGHTS (PS , 1) > 

240 IF Y<58 THEN D=Y-48:G0T0 26 

0 

250 D-Y-55 

260 DE-DE+D*B* IN 

270 PS-LEFTS(PS.LENÍPS)-l) 

280 IN-IN+1 

290 IF LEN(PS)>0 THEN GOTO 230 
300 RETURN 

Este programa, como está, roda ape- 
nas nos compatíveis com o TRS-Color. 
Para rodá-lo nos modelos TRS-80, mo- 
difique a linha 190 para: 



190 PRINTê513,AS+" 
+ BS+ " ;NS 



+S5 



10 POKE 23656,8 
20 INPLIT "Ba3e (ate 36) ";b 
30 INPUT "Numero (inteiro) 
LINE aS 

40 INPUT "Sinal "; LINE sS 
50 INPUT "Numero (inteiro) 
LINE bS 
60 CLS 

70 LET p$-aS: GOSUB 180 

80 LET xS-STRS dec 

90 LET pS-bS: GOSUB 180 

95 LET yS-STRS dec 
100 LET zS-xS+sS+yS: LET X-VAL 
zS 

110 IF xOINT X THEN LET nS-" 
Imposs í vel realizar a operação 
. " : GOTO 160 
120 LET nS-"" 

130 LET u-INT (x/b): LET u-u*b 

: IF x-u>9 THEN LET nS-CHRS ( 

55+(x-u) )+nS: GOTO 140 

135 LET nS-STRS (x-u)+nS 

140 LET X-INT (X/b) 

150 IF K>0 THEN GOTO 130 

160 PRINT AT 10.0;aS+sS+b$;"- 

*;n3 

170 STOP 

180 LET dec-0 

190 LET indice-0 

200 LET y-CODE pS(LEN pS) 

210 IF y<58 THEN LET d-y-48: 

GOTO 220 

215 LET d-y-55 

220 LET dec-dec+d*b" índice 

230 LET p$-p$(l TO (LEN pS)-l) 

240 LET indice-indice+1 

250 IF LEN pS>0 THEN GOTO 200 

260 RETURN 



110 IF SS-"/" THEN X-VAL(XS)/VA 
L(YS) 

120 IF SS-"+" THEN X-VAL(.XS>+VA 
L(Y$> 

130 IF SS-"-" THEN X-VAL(XS)-VA 
L (YS> 

140 IF XOINT(X) THEN NS-"Opera 

c3o impossível " :GOTO 190 

150 U-B*INT(X/B) :IF X-U>9 THEN 

NS-CHRS (55+ (X-U> ) +NS :GOTO 170 

160 NS-MIDS (STRS (X-UÍ+NS. 2) 

170 X-INT(X/B) 

180 IF X>0 GOTO 150 

190 LOCATE 0.12:PRINT AS*" "+S3 

+" *+BS+" "+"-"+" "+NS 

200 END 

210 DE-0 

220 IN-0 

230 Y-ASC(RIGHTSÍPS.D) 

240 IF Y<58 THEN D=Y-48:G0T0 26 

0 

250 D-Y-55 

260 DE=DE+D*B" IN 

270 PS-LEFTS(P$,LEN(PS)-1) 

280 IN-IN+1 

290 IF LEN(P$)>0 THEN GOTO 230 
300 RETURN 



10 CLS 

20 INPUT "BASE (ATfi 36) ";B 

30 INPUT "NUMERO (INTEIRO) ";AS 

40 INPUT "SINAL " ; SS 

50 INPUT "NUMERO (INTEIRO) ";BS 

60 PS-AS:GOSUB 210 

70 XS-STRS(DE) 

80 PS-BS:GOSUB 210 

90 YS-STRS (DE) 

100 IF SS-"*" THEN X-VAL (XS) *VA 
L(YS) 
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190 HTAB 10: VTAB 15: PRINT AS 



iSS; 1 



;NS 



10 HOME 

20 INPUT "BASE (ATE 36) ->";B 

30 INPUT "NUMERO (INTEIRO) •> 

iM 

40 INPUT "OPERAÇÃO (+.-,"./) 
>" ;S3 

50 INPUT "NUMERO (INTEIRO) -> 



60 PS - AS: 
70 X - DE 
80 PS - BS: 



GOSUB 210 
GOSUB 210 



90 Y ' 



DE 



110 



• "*" THEN X 
"/" THEN X 
■ "+" THEN X 
"-" THEN X 
> INT (X) 
GOTO 190 
INT (X / b: 
9 THEN NS - CHHS 
X - U) ) + NS: GOTO 170 
160 NS - STHS (X - U) - 
170 X - INT (X / B) 
180 IF X > 0 THEN 150 



IF SS • 
IF SS : 
IF SS • 
IF SS ' 
140 IF X < 
- "NAO DA" 
150 U - 1 



» X + 

- x - 

THEN 1 



200 END 
210 DE - 0 
220 IN - 0 

230 Y - ASC ( RIGHTS (PS, D) 
240 IF Y < 58 THEN D - Y - 18: 

GOTO 260 
250 D - Y - 55 
260 DE - DE + D * B ~ IN 
265 IF LEN (PS) - 1 THEN RET 

IAM 

270 PS - LEFTS (PS. LEN (PS) - 
1) 

280 IN - IN + 1 
290 GOTO 230 
300 RETURN 

Se você acha que fazer comas em di- 
versas bases é mais do que pretende sa- 
ber algum dia, note que o computador 
também trapaceia. O programa, na rea- 
lidade, converte os números que você di- 
gitou em decimais, executa a operação 
e reconverte o resultado para a base que 
você escolheu. Ao contrário da mente 




humana, o computador só consegue fa- 
zer cálculos em decimal, dentro de um 
programa escrito em BASIC, apesar de 
converter os números para binário, 
quando as instruções são traduzidas pa- 
ra código de máquina durante a execu- 
ção do programa. 



Para os computadores digitais, o sis- 
tema de numeração mais apropriado é 
o baseado no número 2. Isso acontece 
porque o computador é composto de 
circuitos eletrônicos que possuem dois 
estados evidentes: ligado e desligado. O 
estado "desligado" representa o núme- 
ro 0, e o "ligado", o número 1. E, na 
base 2, estes são todos os números de 
que você necessita para expressar qual- 
quer valor. 

O sistema de numeração de base 2 é 
conhecido como "binário". Ele é com- 
posto apenas por zeros e uns; todos os 
outros números foram abolidos. Dessa 
forma, se você começar a contar da ma- 
neira habitual, não vai passar de 1 . So- 
me 1 a 1 e terá o número 1 deslocado 
uma casa para a esquerda, enquanto a 
casa da direita é zerada. Assim, em bi- 
nário, 1 + 1 = 10. 

Contar de 0 a 8 resulta em 0, 1 , 10, 
11, 100, 101, 110. Ill, 1000. Novamen- 
te, estes números obedecem às leis da 
aritmética. Se você quiser somar 10+"1 1, 
deve primeiramente somar os dois nú- 
meros da direita, 0+ 1. A seguir, devem 
ser somados os dois da esquerda. 1 + 1 , 
o que dá 2; só que 2 em binário é 10. 
Assim 10+11 = 101; ou seja, 2 + 3 = 5. 

Subtração em binário é um processo 
tão direto quanto a soma. O único de- 
talhe a observar é o número que se "le- 
va" para a próxima casa. 

A multiplicação e a divisão são ex- 
traordinariamente fáceis, mesmo para 
seres humanos "normais". Na realida- 
de, é tão fácil que "até" um computa- 
dor pode fazer essas operações. No pri- 
meiro caso, tudo se resume a multipli- 
car 0x0. que dá 0; 0 x 1 , que também 
dá 0; ou Ixl, que dá 1. 

A divisão é igualmente simples: em 
cada operação, basta decidir se o divi- 
sor está dentro do dividendo uma vez ou 
nenhuma vez. 

Confira você mesmo como os proces- 
sos aritméticos funcionam cm binário. 
O painel das páginas seguintes dá exem- 
plos de operações para você fazer. 



Qualquer sistema de numeração pode se 
imitado por um modelo mecânico: 
o relógio, por exemplo, usa a base 60, 
enquanto o ábaco utiliza a base 10. 
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Os números binários refletem exata- 
mente o que acontece no computador. 
As instruções ou dados que você dá a 
ele são codificados em números biná- 
rios, que, por sua vez, são manipulados 
e armazenados pelos circuitos internos 
do aparelho. Assim, quando você come- 
ça a dominar o sistema binário, come- 
ça também a compreender como funcio- 
na o computador. 

Cada um dos dígitos de um número 
binário é representado eletronicamente 
dentro do computador por um circuito 
ligado ou desligado. Se está ligado, o va- 
lor é 1 . Se, pelo contrário, o circuito es- 
tá desligado, o valor é 0. Cada digito é 
conhecido como um bit. 

Esses circuitos são agrupados em uni- 
dades maiores, que representam núme- 
ros também maiores e mais úteis. Em 
quase todos os micros, os bits estão or- 
ganizados em grupos de oito, forman- 
do o que se conhece como um byte. Ca- 
da byte representa, assim, oito dígitos 
binários, de forma que pode armazenar 
qualquer número entre 00000000, ou ze- 
ro.e 11111111, ou 128 + 64 + 32 + 16 + 
8 + 4 + 2 + 1, que é 255. Números maio- 
res que 255 são representados por dois 
ou mais bytes. 



Todos os programas e exemplos da- 
dos até aqui manipularam números in- 



teiros. É possível, também, converter 
fraçòes em números binários. 

Por exemplo, 1/2 é 0.1 em binário; 
1/4 é 0.01 e 1/8 é 0.001 . Existe urnpa- 
drão determinado. Qualquer fração po- 
de ser formada a partir de l/2s, l/4s, 
l/8s, l/16s, etc, da mesma forma que 
qualquer número inteiro pode ser for- 
mado a partir de Is, 2s, 4s, 8s, etc. O 
problema é que é mais difícil trabalhar 
com frações binárias porque sempre te- 
mos uma infinidade de Os e Is! 

Quando você converte frações, é me- 
lhor pensar nelas como 0.5; 0,25 e as- 
sim por diante. Desta forma, você po- 
de manipular uma fração como 0.75 co- 
mo sendo 1 x 0.5 + I x 0.25, o que sig- 
nifica em binário 0.11. 

O próximo programa permite que vo- 
cê trabalhe com frações binárias sem 
grandes dificuldades: 
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10 CLS 

20 PRINT"CONVERSAO DE DECIMAL P 
/ BINÁRIO" 

30 PRINT:INPUT"DIGITE UM NUMERO 

ENTRE 0 E 1 ";tt 
40 IF N<-0 OR N>-1 THEN 30 
50 NS-'0." 
60 FOR T-l TO 30 
70 N-N*2 

80 NS-NS+CHRS(48+INT(N)) 
90 N-N-INT(N) 
100 NEXT T 

110 PRINT §257, "0 NUMERO BINARI 

O E : ' 

120 PRINT : PRINT NS:PRINT 



130 PRINT"OUTR0 NUMERO (S/N) ?" 

140 AS-INKEYS 

150 IF AS-*S" THEN 10 

160 IF ASO"N" THEN 140 

170 END 

O programa acima, como está, roda 
apenas nos compatíveis com o TRS- 
Color. Para os modelos tipo TRS-80, 
modifique a linha 110 para: 
110 PRINTg513,'0 NUMERO BINÁRIO 



10 CLS 

20 PRINT "Conversão de Decim 
al para Binário" 
30 INPUT "Digite um numero en 
tre 0 « 1*,N 

40 IF NO0 OR N>-1 THEN GOTO 
30 

45 FRINT '' "Decimal i "iN 
50 LET NS-"0." 
60 FOR T-l TO 16 
70 LET N-N"2+lE-9 
80 LET NS-NS+CHRS (48+INT N) 
90 LET N-N-INT N 
100 NEXT T 

110 print '""o numero binário 
120 PRINT NS 

130 PRINT Outro numero { 

S/N)?- 

140 LET AS-INKEYS 

150 IF AS-"S" OR AS-"9" THEN 

GOTO 10 

160 IF ASO"N" AND ASO"n" 
THEN GOTO 140 

Tal como está, o programa acima ro- 
da apenas no Sinclair Spectrum 



[adicao BINARIA 
11001 II 
+1OOO10 
10001001 



DECIMAL 
1100111 
100010 
103 + 34 
1O001O01 = 137 



UBTRACB0 BINARIA 
1011001 

-110011 
1001 10 



DECIMAL 
1O1IO01 = 89 

110011 
99 - 51 = 36 
1 OO ) 1 0 



A adição binaria funciona a partir da direita. 0 + 0 dá 0, 0 + 1 
dá 1, e I + 1 resulta cm 10, que é o 0 
com "vai -um" para o próxima digito. Observe como essas 
operações funcionam na soma real liada acima. 



A subtração binária é igualmente simples. 1 - 1 dá 0, 0 - I 
dá I. Agora, a operação 1 - 0 dá 0 e "vai-um" para o 
próximo digito à esquerda. Os resultados, portanto, não são todos 
exalamenle iguais ao da mesma operação no sistema decimal. 
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(TK-90X). Para rodar no ZX-81. subs- 
titua as linhas seguintes: 

30 PRINT "ENTRE UM NUMERO ENTRE 

0 E 1" 
35 INPUT N 

80 LET NS-NS+CHRS ( 2B+INT N) 



10 CLS 

20 PRINT TAB (7 ) ; "BINÁRIO » DEC 
IMAL" 

30 PRINT:INPUT " digite um nume 

ro entre 0 * 1 " ;N 

40 IF N<-0 OR N>-1 THEN 30 

50 NS-"0." 

60 FOR T-l TO 30 

70 N»N*2 

BO NS-NS+CHRS (48+INT tN) ) 
90 N-N-INT(N) 
100 NEXT T 

110 LO CATE 0.10:PRINT "O numero 
binário é : " 
120 PRINT : PRINT NS : PRINT 
130 PRINT "outro número {S/N) 7 

140 AS-INKEYS 
150 IF AS-"S" THEN 10 
160 IF ASO"N" THEN 140 
170 END 



HE] 



PRINT "CONVERSÃO DE 



Um ábaco binário utiliza uma C 
cada varela. No computador, 
essa disposição é substituída 
por pulsos elétricos. 




MULTIPLICAÇÃO BINARIA 
1101 



noi 

1101 

oooo 



1101 = 

toti - 



13 t 11 - 143 
10001 111 = 143 



\ 1 000 



UVISfiO BINARIA 

1 1001 ! 101 
1 

101. 101 
(H>0 
101 



DECIMAL 

11001 = 

101 - 
25 / 3 = 



Em cada fase da multiplicava» binária, você multiplica 0 por 
D, que da 0, uu 1 por 0, que também dá 0, ou ainda I por 1, 
que resulta sempre em 1. Veja como Isto se aplica no exemplo 
acima, onde é simulada uma operação ao vfdeo do computador. 



Na divisão binária, finalmente, é necessário verificar se o 
divisor cabe no dividendo pelo menos uma vez. Se isto 
acontecer, o resultado será I; caso contrário, será 0. 
Isso faz da divisão uma das operações binárias mais simples 
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CIMAL PARA BINÁRIO" 
30 PRINT : PRINT "DIGITE UM NU 
MERO": INPUT "ENTRE 0 E 1 ->" ;N 
40 IF N < - 0 OR N > -1 THE 
N 30 

50 NS - "0. " 

60 FOR T - 1 TO 38 

70 N - N * 2 

80 NS - NS + CHRS (48 + INT ( 
N) ) 

90 N - N - INT (N) 
100 NEXT T 

110 HTAB 1: VTAB 15: PRINT "O 
NUMERO BINÁRIO E : " 
120 PRINT : PRINT NS ! PRINT 
130 PRINT : PRINT "OUTRO NUMER 
O? " ; 

140 GET AS 



150 IF AS - "S" THEN 10 
160 IF AS < > "N" THEN 130 
170 END 

O programa aceita qualquer número 
entre 0 e 1 e imprime o seu equivalente 
binário. A linha 70 começa por dobrar 
o seu número e a linha 80 constrói o nú- 
mero binário. Inicialmente o computa- 
dor trabalha com o valor de INT(N), 
que será ou 0 ou 1. Então, a esse valor 
adiciona-se 48 para perfazer 48 ou 49, 
que são os códigos ASCII para 0 e 1. 
Tudo isto é feito de forma a transfor- 
mar os números em cadeias de caracte- 
res para que possam ser adicionados à 
variável N$. Na linha 90 tiramos a par- 



te inteira de N para deixar apenas a 
decimal. 

O programa no Sinclair Spectrum è 
um pouco diferente, porque enquanto 
INT 1 é I , como se espera, INT (.5 x 2) 
é 0. Isto acontece porque ele armazena 
.5x2 como .99999999... Assim, uma 
pequena f ração tem que ser adicionada 
a N na linha 70 para fazer com que INT 
funcione como deve. 

Nos modelos compatíveis com o 
ZX-81, a linha 80 usa outro número pa- 
ra somar ao valor inteiro de N (observe 
que essa máquina não usa o código AS- 
CII). O valor 28 corresponde ao carac- 
tere 0, o valor 29 ao caractere 1, etc. e 
assim sucessivamente. 



O LONGO TRAJKTO DO ÁBACO A ELETRÕNICA 



Os números hinários podem ser 
adicionados, subtraídos, multiplica- 
dos e divididos como qualquer núme- 
ro na base 10. Knlretanlo, eles foram 
escolhidos para utilização nos com- 
putadores digitais em virtude de uma 
propriedade singular: é fácil verificar 
se um determinado circuilo eléirico 
ou eletrônieo eslú ligado ou desli- 
gado. 

Os dígitos binários são represen- 
tados por circuitos de computador. 
Quando um circuito está desligado, 
ele representa o dígito 0, e quando 
cslá ligado, n dígito I. Nos circui- 
tos integrados do computador, o 
circuitos hinários são arranjados 
em grupos de 8, de lai íorma que 
valores binários de 8 hils podem 
ser representados. Isso dá uma 



gama de representação de OIIOINHKM) 
— ou 0 em decimal — a 1 1 1 1 1 1 1 1 — 




nu 255 em decimal. No manual do 
seu computador esse •■número mági- 
co" — 255 (ou 256, se você contar 
a partir de I , ao invés de 0) — apare- 
ce a lodo momento. 

As vezes são necessários núme- 
ros binários muito maiores, e duas 
locações de memória de 8 bils cada 
são junladas para obter um número 
hinário de 16 bits. O microproces- 
sador Zilog Z-80, evislenle em mui- 
tos computadores pessoais, como o 
TKS-80, os compatíveis com MSX, 
ele., pude irabalhurcum números de 
16 bits, c até mesmo lazer operações 
aritméticas com eles. Nesles casos, 
números hinários entre 
00(10000000000000 e 
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 , ou seja, 
Mitre II e 65.535, em decimal, 
podem ser manipulados. 



101 1 101 1-01001 101=01 101 1 10 



0111111 1 + 0000000 1 = 10000000 



1 100 ni 11101 1 110-0H101 10001 1 0011 = 0 i0i 1001 1010101 í 
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ESCOLHA 0 CAMINHO A 


SEGUIR 


■ 


DECISÕES MAIS COMPLICADAS 


■ 


APRENDA A UTILIZAR 0 


COMANDO IF...THEN...ELSE 



Embora não tenha cérebro, o computador 
tem capacidade para decidir de 
forma lógica. Aprenda a trabalhar com 
a instrução IF...THEN e ensine seu 
micro a tomar decisões corretamente. 



O que corna um computador infini- 
tamente superior a uma máquina de cal- 
cular é sua capacidade de tomar decisões 
baseadas em raciocínios lógicos. Um 
desses raciocínios é o comando 
IF...THEN. O computador reage a es- 
sa declaração de modo semelhante a um 
ser humano: SE (IF) isto é verdadeiro, 
ENTÃO (THEN) faça tal coisa. Eis um 
exemplo: 

IF A< 18 (ou seja, SE A é menor que 
18) THEN PRINT "menor de idade" 
(ENTÃO IMPRIMA "menor de idade") 

Ao encontrar a declaração FF, o com- 
putador verifica se a proposição que a 
segue é verdadeira. Se for, ele executa 
tudo o que estiver após o THEN. Se a 
proposição é falsa, ele ignora o resto e 
passa para a próxima linha do programa. 

Você verá como funciona tudo isso 
no programa a seguir. 

10 PRINT "Digite a lista das no 
tas" 

20 PRINT "Digite -99 para termi 
30 INPUT N 

40 IF N--99 THEN PRINT "Média - 

" ;T/C:STOP 
50 LET T-T+N 
60 LET C-C+l 

70 GOTO 30 

A mensagem no inicio do programa 
instrui o usuário a digitar primeiro uma 
lista de notas e por fim o número -99. 
As linhas 25 e 26 zeram o valor das va- 
riáveis do total (T) e do contador (C). 
A linha 30 dá entrada ao valor que vo- 
cê digita. A linha 50 adiciona esse valor 
ao total corrente, e a linha 60 conta 
quantos números você digitou, adicio- 
nando 1 à variável do contador cada vez 
que um novo número é dado. 

Enquanto você estiver digitando no- 
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tas reais, o computador ignorará a linha 
40 e seguirá em frente, mas, quando vo- 
cê digitar -99, a condição da linha 40 
N = -99 será satisfeita, e o computador 
imprimirá a média das notas (T/C). Nú- 
meros como -99 são chamados de fictí- 
cios, ou terminais, e são úteis para con- 
trolar o que acontece em um programa. 
Este é um recurso muito usado para in- 
terromper partes de um programa. 



UMA ESCOLHA COM TRES CAMINHOS 



E se você quiser escolher entre três ou 
mais alternativas, de modo a colocar o 
computador em diferentes cursos de 
ação? É simples: o computador sorteia 
um número que você tem de adivinhar; 
ao comparar o seu palpite com o núme- 
ro sorteado, ele elabora três alternativas: 
o palpite foi correto, foi muito baixo, 
ou muito alto. Tudo se passa, portan- 
to, como num jogo de advinhação. 



■ ■■■ 



5 CLS 

10 LET N»RND(20) 

20 PRINT " ACABO DE IMAGINAR UM 
NUMERO 

30 PHINT "TENTE ADIVINHA-LO!" 

140 INPUT G 
50 IF G-N THEN PRINT "MUITO BEM 



!*:FOR D-l TO 2000:NEXT D:GOTO 
10 

60 IF C<N THEN PRINT "ESTA BAIX 

O, TENTE OUTRA VEZ!" 

70 IF G>N THEN PRINT "MUITO ALT 

O! TENTE DE NOVO. " 

80 GOTO 40 



Atenção: digite o programa abaixo 
em maiúsculas, se quiser executá-lo nos 
compatíveis com ZX-81: 

5 CLS 

10 LET N-INT (RND*20)+1 

20 PRINT "Eu acabo de imagina 

30 PRINT "Tente adivinha-lo . " 
40 INPUT G 

50 IF G-N THEN PRINT "Muito 

bem!": PAUSE 100: GOTO 10 

60 IF G<N THEN PRINT "Esta b 

aixo; tente outra vez!" 

70 IF G>N THEN PRINT "Muito 

alto! Tente de novo." 

80 GOTO 40 



O programa abaixo, como está, ro- 
dará apenas nos micros tipo MSX. Pa- 



ra rodá-lo no Apple II e no TK-2000, 
elimine a linha 3 e substitua o comando 
da linha 5 por HOME. 

3 R-RNDi-TIME) 
S CLS 

10 LET N-INT(RNDU)*21) 

20 PRINT "Acabo de pensar e um 

30 PRINT "...aerá que voce cons 
egue advinhá-lo ?" 
40 INPUT G 

50 IF G-N THEN PRINT "Certo, DU 
ito bem!":FOR D-l TO 2000:NEXT 
D: GOTO 5 

60 IF G<N THEN PRINT "Muito bai 

xo, tente outra vez." 

70 IF G>N THEN PRINT "Alto d ema 

ia, tente outra vez." 

80 GOTO 40 

A linha 10 escolhe um número ao 
acaso entre 1 e 20, e as linhas 20 a 40 
convidam você a adivinhá-lo. Qualquer 
que seja sua resposta, o computador ve- 
rifica, nas linhas 50, 60 e 70, que pro- 
posição é verdadeira. 

Suponha que seu palpite seja um nú- 
mero abaixo do sorteado. Neste caso, o 
computador vai primeiro para a linha 
50; mas P = N é falso, de modo que ele 
ignora o resto da linha e passa para a 
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seguinte, a linha 60. Agora, a proposi- 
ção é verdadeira, visto que P<N. En- 
lào, ele imprime a mensagem ""Muito 
baixo, tente novamente". A seguir, ele 
passa assim mesmo para a próxima li- 
nha, onde a proposição é falsa, de for- 
ma que ele a ignora e vai para a 80, que 
leva você de volta para outra tentativa. 

Este programa funciona muito bem, 
mas tem uma desvantagem: ele continua 
a pedir um novo palpite ao jogador, sem 
se importar se este quer ou não conti- 
nuar jogando. Seria interessante fazer 
com que o computador preguntasse se 
você quer fazer uma nova tentativa. 

As próximas linhas fazem exatamente 
isso. O comando IF...THEN será nova- 
mente utilizado, só que desta vez o com- 
putador estará comparando letras e não 
números. 

Antes de entrá-las em adição ao pro- 
grama anterior, não esqueça de mudar 
a linha 50 para: 

50 IF G-N THEN PRINT "CERTO, 
MUITO BEMi":GOTO 100 
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100 PRINT "QUER JOGAR DE NOVO? ( 
S/NJ " 

110 LET AS-INKEYS:IF AS'" "THEN 
GOTO 110 

120 IF AS""S" THEN RUN 



100 PRINT "Voce quer tentar oi 
tra veifS/N)7" 

110 LET AS-INKEYS: IF ASO"S" 
AND ASO"N" THEN GOTO 110 
120 IF AS-"S" THEN RUN 



Atenção: para poder rodar o progra- 
ma abaixo em computadores tipo Ap- 
ple e TK-2000, substitua a linha 

lio GET AS 

100 PRINT .."Quer jogar outra v 
St (S/N)?" 

110 LET AS-INKEYS: IF AS-"" THE 
N GOTO 110 

120 IF AS-"S" OR AS-"s" THEN GO 
TO 5 

A linha 110 espera que você acione 
uma tecla. Caso seja o "S" maiúsculo, 
o programa continuará. Se qualquer ou- 
tra tecla for acionada, o programa ter- 
minará. 



Para fazer o computador testar duas 
ou mais condições, antes de decidir que 
caminho tomar, use palavras especiais 
chamadas operadores lógicos: 

100 IF D3="DOMINGO" AND H=20 
THEN PRINT " E ' HORA DO 
FANTAETICO" 

Quando você usa AND (a conjunção 
e, em inglês) entre duas condições, am- 
bas devem ser verdadeiras para que o 
computador execute o resto da linha. Se 
uma delas ou as duas forem falsas, ele 
passará para a próxima linha. Nesse 
exemplo é necessário que sejam 20 ho- 
ras de um domingo para que o compu- 
tador imprima mensagem. Veja outro 
exemplo: 

200 IF PS-"SAGU" OR 

PS-"TAPIOCA" THEN PRINT 
"NAO ESTOU COM FOME" 

Essa linha usa OR (ou, em inglês) e 
o computador imprimirá a mensagem 
no caso de pelo menos uma das compa- 
rações ser verdadeira. 

O teste pode vir a ser muito compli- 
cado se houver uma quantidade muito 
grande de condições para verificar. Se 
você tem vários AND e OR juntos, terá 
que usar parênteses para que o compu- 
tador saiba o que verificar primeiro. 

Uma linha de um jogo de aventuras 
pode se parecer com isto: 

2000 IF P = 14 AND (C3="E3PADA n 
OR CS="FACA") THEN PRINT 
"VOCE DESTRUIU 0 GREMLIN" 

Isso só é verdadeiro se você estiver na 
posição 14 E com uma espada OU uma 
faca. Mude os parênteses: 

2000 IF (P = 14 AND C$-"ESPADA") 
OR CS="FACA" THEN PRINT 
"VOCE DESTRUIU O GREMLIN" 

Agora ela será verdadeira se você es- 
tiver na posição 14com uma espada OU 
se estiver em qualquer lugar com uma 
faca. 



TIRE A SORTE GRANDE 



Agora, usando os conceitos que 
aprendemos, vamos programar um jo- 
guinho que simula uma máquina caça- 
níqueis. Ela faz um bom uso de AND 
e OR. Tente tirar a sorte grande! 



40 LET M-M-5 

50 IF M<0 THEN PRINT "DESCULPE . 

.. VOCE ESTA DURO!":END 

60 LET A-RND(12)+192 

70 LET B=RND(12)+192 

80 LET C-RI9DU2)+192 

210 PRINT §237 , CHRS t A) : PRINTÉ2 3 

9 , CHRS ÍB) : PRINT «241.CHRS<C) 

220 IF A"B AND B-C THEN PRINT # 

258 , "VOCE GANHOU S50!!!":LET M- 

M+50 

230 IF (A-.B OR B-C) AND AOC T 

HEN PRINT 6361 , "VOCE GANHOU S10 

!":LET M-M+10 

240 FOR D=l TO 500:NEXT 

250 PRINT 6323,"ÇjUER JOGAR OUTR 

A VEZ? (S/Nl ": PRINT 6361 . "VOCE T 

EM S";M 




OS OPERADORES LÓGICOS 

Se você náo está acostumado com 
os símbolos usados em matemática pa- 
ra expressar relações lógicas, como 
"maior que" e "menor que" — os cha- 
mados operadores — pode achá-los 
meio confusos, no início. 

Assim, pense neles como uma es- 
pécie de cunha. No símbolo > o lado 
mais aberto, à esquerda, é maior 
que o lado mais agudo <a ponta). No 
símbolo < o lado mais estreito, á es- 
querda, é menor do que o lado direito. 
Deste modo, a expressão A >B deve ser 
lida simplesmente: A é maior do que B. 
Colocar o sinal de igualdade ( - i ao la- 
do de um dos operadores prévios sig- 
nifica também que pode se' "maior ou 

Eis aqui a lista de todas as combi- 



A é maior ou igual a B 
A é, menor ou igual a B 
A< >B ; A é diferente de B 

Alguns computadores exigem que a 
ordem de digitação dos operadores 
compostos seja sempre a mesma. Por 
exemplo, não se pode digitar > = ou 
■ > indistintamente: eles nâo vão acei- 
tar. Em outros micros, o esquema é 

Nos computadores da linha Sinclair 
os operadores compostos são digitados 
atiavés de uma única tecla. Dessa for- 
ma, se você tentar entrar o sinal < se- 
guido do sinal =, por exemplo, a linha 
gera um erro de sintaxe. 

Finalmente, alguns computadores 
aceitam também o sinal # (sustenido), 
para significar "diferente de". 
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to boa, pois dificulta muito a compreen- 
são de como funciona um proclama e 
pode gerar erros lógicos. 

0 princípio básico da declaração 
IF...THEN é que o que vem depois do 
THEN na linha do IF, só será executa- 
do se a proposição for verdadeira. As- 
sim, na linha: 



70 IF Jt-Y THEN PRINT "NAVE 
DESTRUÍDA" : LET NAVES= 
NAVE5-1:G0T0 30 
Nenhuma das instruções após o 
THEN será executada, se X for diferen- 
te de Y. Mas, algumas vezes o IF com- 
posto pode ser útil: 

70 IF X'Y THEN PRINT "NAVE 

DESTRUÍDA": IF NAVES>0'THEN 
LET NAVES -NAVE S-l 



Note como os dois IFs na linha 70 
simplificam a programação. 



Por que ocorrem arros quando tento ro- 
dar programas digitados? 

Pode ser que existam falhas no pro- 
grama em si, mas os erros mais co- 
muns são de digitação, quando se está 
copiando. Eis alguns deles (lembre-se 
de checá-los um a um, quando estiver 
copiando programas): 

— Confundir a letra maiúscula I ou a le- 
tra L minúscula com o número 1; ou 
ainda a letra O maiúscula com o zero. 

— Confundir parênteses com os sinais 
de maior (> ) e menor |< ). Confundir 
o cifrão (SI com a letra S, ou omiti-los. 

— Omitir as aspas no começo ou no 
fim, em comando PfllNT ou LET. Omi- 
tir os dois pontos (:l entre instruções 

— Esquecer a virgula entre dois itens 
de uma declaração DATA, o que pode 
determinar um número muito grande 
para o computador, ou a falta de um 
item quando o computador chega ao fi- 
nal dos DATA. 

— Omitir um sinal de menos (em um 
programa que gera gráficos na tela, is- 
so pode resultar em uma tentativa de 
desenhar além dos seus limites). 

— Omitir um sinal de ponto e vírgula no 
final de uma linha PRINT ou colocar um 
número de espaços em branco maior 
ou menor do que o previsto. 



260 LET K$-INKEY$ : IF KS-"" THEN 

GOTO 260 
270 IF KS-"S" THEN GOTO 30 
280 END 



LET M - M - 5 

IF M < 0 THEN VTAB 22: PRI 
"DESCULPE, VOCE ESTA DURO" : 



60 LET A ■ 



70 LET B - INT ( RN D (1) 



20 LET M-50 

30 CLS 

40 LET M-M-5 

50 IF M<0 THEN PHINT "Deacul 
pe. . . Voce esta duro!": STOP 
60 LET A- INT (RND*12)+130 
70 LET B-INT (RND*12)+130 
80 LET C-INT (RND*12)+130 

210 PRINT PAPER 0; INK 4;AT 

10,14;CHRS A ; AT 10.16;CHRS B : 

AT 10,18;CHRS C 

220 IF A-B AND B-C THEN 

PRINT AT 13,2;"Voce ganhou S50 

! ! ! " : LET M-M+50 

230 IF (A-B OR B-C) AND AOC 

THEN PRINT AT 13,9;"Voce ganh 

ou S10 1 " : LET M-M+10 

240 PAUSE 25 

250 PRINT AT 15,6; "Quer jogar 

outra vez? (S/N)": PRINT TAP. 10 

; "Voce tem S" :M 

260 IF INKEYS-" " THEN GOTO 

260 

270 IF INKEY$-"n" THEN STOP 
280 GOTO 30 



20 LET M-50 
30 CLS 
40 M-M-S 

50 IF M<0 THEN PRINT "Desculpe, 

seu dinheiro acabou. ":END 
60 LET A-INT(RNDU)*5 + 66) 
70 LET B-INT (RND(l) *5+66) 
80 LET C-INT(RND(l)*5+66) 
90 LOCATE 17,10:PRINT CHR$(1)+C 
HRS(A);" ";CHRS(U+CHRS(B) i" "; 
CHRS(1)+CHRS(C) 

220 IF A-B AND B-C THEN LOCATE 

2,16:PRINT " VocS ganhou o preui 

lo máximo ... S50":LET M-M+50 

230 IF (A-B OR B-C) AND AOC TH 

EN LOCATE 10,16:PRINT "Voce gan 

hou S10* : LET M-M+10 

240 FOR D-l TO 500:NEXT 

250 LOCATE 5.18:PRINT " Quer te 

ntar outra vez 7 ÍS/N) " 

260 LOCATE 12,20:PRINT "Você te 

B $";M;"" " ; 

270 LET K3-INKEYS:IF KS-"" THEN 

GOTO 2 70 
280 IF K$-"3" OR K$-"S" THEN GO 
TO 30 
290 END 



DE 



Como o Apple II não tem caracteres 
gráficos pré- defini d os, a versão a seguir 
faz na tela blocos coloridos (símbolos do 
caça-níqueis): 



LET c ■ 
4) 



INT ( RN D (1) 



12 



VLIN 0 . 39 AT 16 
VLIN 0. 39 AT 18 
VLIN 0,39 AT 20 
B AND B-C THEN V 
VOCE CANHOU S50 



COLOR- 
COLOR- 
C0L0R- 
110 IF A ■ 
TAB 22: PRINT ' 
": LET M-M+50 
120 IF (A - B OR B - C) AND A 
< > C THEN VTAB 22: PRINT "VO 
CE GANHOU $10": LET M-M+10 
130 FOR I - 1 TO 500: NEXT I 
140 VTAB 22: PRINT "OUTRA VE2? 

(S/N)?": PRINT "VOCE TEM S";M 
150 GET AS 

160 IF AS - "N" THEN END 
170 GOTO 30 



El 



A versão para o TK-2000 usa os ca- 
racteres do teclado. Só as linhas que se- 
rão substituídas no programa acima 
aparecem abaixo: 

30 HOME 

60 LET A - INT ( RN D (1) • 12 

) + 222 

70 LET B - INT ( RN D (1) * 12 
) + 222 

80 LET C - INT ( RN D (1) * 12 

) + 222 

90 VTAB 10 

100 PRINT TAB ( 1B) ; CHRS (242 
); CHRS (A); TAB ( 209; CHRS (24 
2); CHRS (B) ; TAB ( 22); CHRS (2 
42) : CHRS (C) 

O programa usa várias linhas 
IF...THEN. A primeira, de número 50, 
checa se você tem dinheiro para jogar. 
Se você tem, a linha é ignorada, mas, 
sc não, uma mensagem é mostrada, e o 
jogo termina. 

As linhas 60 a 80 escolhem três nú- 
meros aleatórios, e a linha 210 converte 
esses números em caracteres (no caso 
dos computadores das linhas TRS- 
Color, Spectrum e MSX, naipes de ba- 
ralho) e os coloca no centro da tela. O 
Sinclair e o TRS-Color convertem esses 
números em caracteres. Os outros neces- 
sitam de ajustes. 

Na linha 220, se os três caracteres são 
iguais, você ganha o jack por (maior 
prémio) e seu dinheiro é aumentado em 
$50. Na linha 230 você ganha S 1 0'se dois 
caracteres adjacentes são iguais (A = B 
ou B = C), mas não ganha nada se os 
dois caracteres das extremidades são 
iguais. Se você não ganhar nada, o com- 
putador ignora as linhas 220 e 230 e pas- 
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sa para a 240, que provoca uma breve 
pausa. 

As linhas seguintes são uma outra 
versão da rotina "sim/não" que checam 
se você quer uma nova jogada. 



Em alguns computadores você pode 
escrever a instrução IF de uma forma 
muito mais poderosa, chamada de 
IF...THEN...ELSE. Veja um exemplo: 

10 INPUT IDADE 

20 IF I DAD E < 1 8 THEN PRINT 

"MENOR DE IDADE" ELSE PRINT 

"ELEGÍVEL" 

Esta linha faz exatamente o que diz. 
Se você tem menos de 18 anos, o com- 
putador imprime "MENOR DE IDA- 
DE", mas, se você tiver 18 ou mais, ele 
imprimirá "ELEGÍVEL" 

Dos computadores que apresentam a 
declaração IF... THEN. ..ELSE em seu 
repertório de BASIC apenas os das li- 
nhas TRS-80 e MSX estão ilustrados 
aqui. 

Com a instrução IF... THEN. ..ELSE 
o programa fica mais fácil de ler e es- 
crever. No entanto, ela não é essencial. 
Você pode escrever programas sem ela 
se o seu computador usa apenas 
IF...THEN. Existem duas maneiras de 
contornar o problema. Uma emprega 
IF...THEN seguido de GOTO para pu- 
lar para a parte requerida do programa: 

10 INPUT IDADE 

20 IF IDADE<18 THEN PRINT 

"MENOR DE IDADE" : GOTO 30 
25 PRINT "ELEGÍVEL" 
30 ...restante do programa 

Esse tipo de programação serve para 
os micros que permitem comandos múl- 
tiplos por linha, isto é, a colocação de 
mais de uma instrução na linha do IF. 
Os compatíveis com o ZX-81 não con- 
tam com essa possibilidade. A segunda 
solução do problema apóia-se num 
IF...THEN extra para assegurar que to- 
das as possibilidades sejam cobertas: 

10 INPUT IDADE 

20 IF IDADE<18 THEN PRINT 

"MENOR DE IDADE" 
25 IF IDADE >-18 THEN PRINT 

■ELEGÍVEL" 
30 . . .restante do programa 

Como dois IFs demoram mais tem- 
po do que um só para serem executados 
(e isso é importante quando o mesmo 
trecho de programa deve ser executado 
muitas vezes), outro estilo de programa- 
ção de alternativas é: 




10 INPUT IDADE 

20 IF IDADE>=18 THEN GOTO 25 
22 PRINT "MENOR DE IDADE" 

24 GOTO 30 

25 PRINT " ELEGÍVEL" 



Nas duas últimas programações, é 
mais difícil entender o fluxo de desvios 
do que o programa com apenas uma li- 
nha IF... THEN... ELSE. 
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ff^iF^ilh/ík Jogos com labirintos complicados 

/m~-hIi \v J/líwll exigem programas muito longos. 



LABIRINTO 



Mas você pode construir alguns 
bem simples com pouco mais do que 
um laço e declarações DATA. 



Jogos com labirintos exerceram sem- 
pre um grande fascínio sobre usuários de 
computadores, e variações do tão co- 
nhecido "Come-come" (PacMan) con- 
tinuam a aparecer constantemente no 
mercado. 

Este artigo lhe ensina a entrar na on- 
da e fazer um emocionante jogo de la- 
birinto. 

O labirinto, nesta primeira tentativa, 
não inclui "inimigos" ou obstáculos, 
que exigiriam um programa bem maior. 
Mas ele mostra como fazer para que os 
personagens do seu jogo não atravessem 
as paredes e inclui também cronometra- 
gem, manutenção de um placar e uma 
rotina de registro de recordes, para dar 
mais competitividade ao jogo. 



A maneira mais fácil de compreender 
como os jogos com labirinto funcionam 
nos micros da linha Sinclair Spectrum, 
como o TK90X, é ir por etapas: 

100 FOR n-3 TO 17 
110 READ ã$ 
120 FOR m-7 TO 21 
130 PRINT AT n.m;"." 
140 IF aS(m-6)-"p" THEN PRINT 
PAPER li INK 1;AT n , a ; " " 



150 NEXT m 
160 NEXT n 

9000 DATA "PPPPPPPPPPPPPPP" 
9010 DATA 
9020 DATA 
9030 DATA 
9040 DATA 
9050 DATA 
9060 DATA 
9070 DATA 
9090 DATA 
9090 DATA 
9100 DATA 
9110 DATA 
9120 DATA 
9130 DATA 
9140 DATA 



PP. 
P . PPP - 1 
P. . . 
PP.PPPP" 
P. . 



PPPPPPPPPPPPPPP 



As linhas 100, 120, 150 e 160, usan- 
do um par dos nossos já conhecidos la- 
ços FOR. ..NEXT, determinam os limi- 
tes do labirinto. A linha 130 imprime um 
ponto em cada posição da tela dentro 
desses limites. 

As linhas 1 10 e 140 lêem os dados das 
linhas 9000 a 9140 e substituem o pon- 
to por um espaço em fundo azul, onde 
o padrão dos dados mostrar um "p". 



Isto é possível porque o TK90X nunca 
coloca dois caracteres na mesma posi- 
ção; então, o último toma o lugar do 
primeiro. 



Um labirinto é inútil se não há nin- 
guém ou algo para andar dentro dele. 
Então execute o programa acima para 
ver como fica e depois acione as seguin- 
tes linhas: 

50 LET x-10 
60 LET y-14 
1000 PRINT PAPER 6; INK 2;AT x 

y . 

1010 LET XX-X 
1020 LET yy-y 

1030 IF INKEYS-" " THEN GOTO 10 
30 

1040 IF INKEYS-"W" AND ATTR (X- 

l,y)<>9 THEN LET x-x-1 

1050 IF INKEYS-"z" AND ATTR tX+ 

l,y)<>9 THEN LET X-X+l 

1060 IF INKEYS-"a" AND ATTR <X, 




k - - J 



I Labirinto no TK-90X: com um programa bem 
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CONSTRUA UM LABIRINTO 




PELO LABIRINTO 




COM LAÇOS E COMANDOS DATA 


■ 


FACA PAREDES 


■ 


CONTROLE 0 TEMPO 




INTRANSPONÍVEIS 



Y-l)<>9 THEN LET y-y-1 

1070 IF INKEYS-"3" AND ATTR (x. 

y+l)<>9 THEN LET y-y+1 

1080 PHINT INK 7 ; AT XX . YV ; " " 

1090 GOTO 1000 

í Como todos os personagens famosos 

: dos jogos, nosso amigo asterisco é po- 
sicionado em x,y e se movimenta, aos 
seus comandos, por uma série de linhas 
usando INKEYS. 

Aqui, no entanto, há uma determi- 
nada diferença vital: ele só pode mover- 
se para uma posição se esta não for azul. 
Ou seja, se ATTR não for igual a 9, sen- 
■ do 9 o valor numérico da cor com a qual 
você imprimiu as linhas do seu labirinto. 

No caso de você querer criar um la- 
birinto de outra cor, veja como chegar 
ao valor de ATTR: 

1. Tome o valor da cor do caractere 
(INK), como está no teclado do compu- 
tador — neste caso 1 . 

2. Tome o valor da cor da tela (PA- 
PER) — neste caso I — e multiplique 
por 8. Resultado, 8. 



3. Adicione 64 se a área em questão 
é clara (BRIGHT). Neste caso, resulta- 
do 0. 

4. Adicione 128 se a área está piscan- 
do (FLASH). No caso, resultado 0. 

Some então todos os números. O re 
sultado será o valor de ATTR. 

A função ATTR no TK90X tem, en- 
tretanto, outros usos além de impedir 
que o seu personagem atravesse paredes 
sólidas. 

Em um labirinto maior, você pode- 
ria usar a mesma idéia para fazer com 
que ele exploda ao entrar em uma zona 
proibida. Para um labirinto que use ca- 
racteres (INK) vermelhos sobre fundo 
(PAPER) vermelho, você necessitaria 
uma linha começando com: 

1F ATTR^IB THEN. . . 

As linhas 1010, 1020 e 1080 definem 
a posição que o personagem acabou de 
deixar e apagam o ponto que ele "co- 
meu", imprimindo um espaço. Estas 
são linhas úteis em qualquer jogo, mas 
note onde elas aparecem — as primei- 
ras linhas, antes das INKEYS, respon- 



sáveis pela ação, e a linha final, logo 
após estas. 

A linha 1090 ê temporária e será rees- 
crita depois. Seu propósito é permitir 
que você rode o programa e o teste. Sem 
fechar o laço, o caractere se moveria 
apenas uma vez. 



Para que esse jogo possa ser jogado, 
sem contar com "inimigos" que exigi- 
riam um programa muito complexo, o 
melhor é uma rotina de cronometragem 
e placar. 

Adicione estas linhas: 

10 LET bt-100000 

40 LET 8-0 
990 POKE 23672,0: POKE 23673,0 
1025 IF fl-110 THEN GOTO 2000 
1090 IF ATTR (x.Y)<>63 THEN LE 
T B-S+l: SOUND .005.10 




J PÍOGKAMAÇÃODCJOeOS 3 



2000 LET t-ÍPEEK 2 36 7 2+ 256* PEEK 

236731/50 
2010 PRINT AT l,6;t:" SEGUNDOS 

2020 IF t<bt THEN LET bt-t 
2030 PRINT AT 19,4; "Melhor temp 
o: ";bt;" segundoB" 

Acrescentando uma linha temporá- 
ria. Lembre-se de apagá-la depois: 

1100 GOTO 1000 

O placar é muito simples. A linha 40 
coloca a contagem inicial em zero. A li- 
nha 1090 adiciona 1 cada vez que o 
"Come-comc" devora mais um ponto, 
ou melhor, sempre que ele cruza um es- 
paço em que INK e PAPER são ambos 
brancos — ATTR novamente. 

E a linha 1025, que entra em açãc 
quando todos foram comidos, faz com 
que o computador verifique quanto tem- 
po o jogador levou para chegar a esse 
ponto. 

Já a cronometragem é um pouco 
mais complicada. Até que você com- 
preenda os comandos PEEK e POKE, 
que serão explicados num artigo próxi- 
mo, procure assimilar o procedimento 
que se segue. 

Em resumo, a linha 990 zera o reló- 
gio do TK90X ao jogar o valor 0 num 
endereço de memória apropriado. A li- 
nha 2000 conta o número de linhas for- 
madas pela tela desde que o jogo come- 
çou e então divide por 50 — o número 
de linhas por segundo em um televisor. 

Ao mesmo tempo, a linha 10 deter- 
mina o "melhor tempo" inicial em 
100000, muito mais que qualquer um le- 
varia, de forma que ele será batido. A 
linha 2020 compara o novo tempo com 



Para dar ao jogador a chance de ou- 
tra tentativa, use estas novas linhas. Pri- 
meiro, pressione <CAPS SH1FT> e 
<BREAK> e, então, <ENTER>: 

2040 PBINT AT 20 , 2 ; " Preasi one q 
ualquer tecla para jogar de n 

ovo . ■ ; 

2050 IF INKEYSO" " THEN GOTO 2 
050 

2060 IF INKEYS-"" THEN GOTO 20 
60 



OUTROS LABIRINTOS 



Se você quiser tentar outros labirin- 
tos do mesmo tamanho, pode fazê-lo, 
mudando o padrão de letras "p" das li- 
nhas DATA, da linha 9000 em diante. 
Se fizer isso, assegure-se de ter dados su- 
ficientes para completar o labirinto ou 
terá uma mensagem de erro antes que 
apareça na tela. 



Estas primeiras linhas formam o la- 
birinto propriamente dito: 

30 CLS4 

40 LET P-297 

1000 FOR N-0 TO 15 

1010 READ AS 

1020 PRINT #(N*32)+6.AS: 

1030 FOR M-0 TO 18 

1040 IF PEEK(1024+{N*32)+6+M)=6 

5 THEN POKE(1024+fN*32)+6+M) .17 



1060 NEXT N 

2000 DATA AAAAAAAAAAAAAAAAAAA 

2010 DATA A AAA A 

2020 DATA A.AA.AA AA.AA.A 

2030 DATA A. A AAA A. A 

2040 DATA A..-A.A A. A... A 

2050 DATA A. AAA. AA. A. AA. AAA. A 

2060 DATA A. . .A A. . -A 

Z070 DATA AAA. . .A. AAA. A. . .AAA 
20B0 DATA AAA. . .A. AAA. A. . .AAA 

2090 DATA A. . .A A. . ,A 

2100 DATA A. AAA. AA . A. AA. AAA. A 

2110 DATA A. ..A. A A.A...A 

2120 DATA A. A AAA A. A 

2130 DATA A.AA.AA AA.AA.A 

2140 DATA A ..... . .AAA A 

2150 DATA AAAAAAAAAAAAAAAAAAA 

A forma do labirinto está contida nas 
linhas de dados (DATA), de 2000 a 
2150. Nesse estágio os limites dele são 
representados por letras "A". 

Antes que os dados sejam lidos, a li- 
nha 30 limpa a tela e a coloca na cor ver- 
melha, cujo código é 4. A linha 40, por 
sua vez, coloca o asterisco na posição 
inicial. 

As linhas de 1000 a 1060 desenham 
o labirinto na tela. Ao mesmo tempo, 
sempre que o laço FOR.. .NEXT das li- 
nhas 1000 e 1060 é executado, o progra- 
ma lê a próxima linha de dados 
(DATA). 

A linha 1010 lê os dados e os chama 
de AS. A linha 1020 coloca-os na tela. 

A linha 1040 verifica a porção da me- 
mória da máquina que corresponde a 
cada posição de tela. Se o endereço de 
memoria contém o número 65, temos 
um "A" na tela, e ele é mudado para 
um bloco azul (código 175). As linhas 
1030 e 1050 fornecem o íoop com que 
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a linha 1040 verifica todas as posições 
da tela. 

Agora adicione essas linhas e você 
poderá deslocar um homenzinho pelo la- 
birinto. 

1080 PRINT #P. "*" ; 
1090 LET LP-P 

1100 IF PEEK ( 340) -247 AND PEEK ( 
1023+P)<>175 THEN LET P-P-l 
1110 IF PEEK ( 338) -247 AND PEEK ( 
1025+P)<>175 THEN LET P-P+l 
1120 IF PEEK (338) -251 AND PEEK ( 
992+P)<>175 THEN LET P-P-32 
1130 IF PEEK(342}-253 AND PEEK ( 
1056+P)<>175 THEN LET P-P+32 
1150 PRINT 6LP, " ' ; 
1170 GOTO 1080 

Esta parte do programa permite que 
você mova o seu caractere pelo labirin- 
to. Ela tem algumas particularidades. O 
homem só pode ser movimentado se o 
ponlo para onde se quer levá-lo não con- 
tém um bloco azul. A linha 1 100 verifi- 
ca o conteúdo de duas posições de me- 
mória: a que corresponde á tecla "Z" 
e a que corresponde à posição de tela em 
que o homem vai entrar. Se a tecla "Z" 
(código 223) está sendo pressionada e o 
endereço de tela não contém um bloco 
azul (código 175), então ele pode se mo- 
vimentar. 

As teclas para controle de movimen- 
to são as mesmas já utilizadas: "Z" pa- 
ra a esquerda, "X" para a direita, "P" 
para cima e "L" para baixo. Tente an- 
dar com o asterisco pelo labirinto de for- 
ma que os pontos sejam apagados. 
Acrescente estas linhas e marque o tem- 
po- necessário para "comer" os pontos: 



20 LET FA-999999 
50 RESTORE 
60 LET D-0 
1070 TIMEH-0 

1140 IF PEEK (1024 + P) -110 THEN P 
LAY "T80B" : LET D-D+l 
1160 IF D-153 THEN GOTO 1180 
1180 PRINT §P , " " ; 
1190 TI-TIMER/50 



1200 PRI1 

1210 PRI1 
1220 

1230 PRII 

1240 PRII 

1250 PB 

1260 PRII 

1270 PRII 

1280 PR 



IINT §52 , "TEMPO-" ; 
1INT §84 .TI ; "SEG " ; 

FA>TI THEN FA=TI 
ÍINT §212, "MELHOR TEMPO" ; 
II NT §244. FA; "SEG " ; 
UNT §340, "PRESSIONE" : 
1INT §372 . "<ENTER>" ; 
IINT §404."PAHA COMEÇAR"; 
ÍINT §436. "DE NOVO" ; 
1290 LET INS-INKEYS : IF IN$-"" T 
HEN GOTO 1290 

1300 IF INS-CHRS (13) THEN GOTO 
40 

1310 GOTO 1290 

Quando você executa este programa 
pode verificar à direita do labirinto o 
tempo gasto para remover os pontos e 
também o melhor tempo. 

Inicialmente, o melhor tempo é co- 
locado em 999999 segundos pela linha 
20. A linha 60 zera o placar, e a linha 
1070 zera o "cronometro". 

A linha 1 140 examina a posição em 
que o asterisco está, para ver se há um 
ponto. Em caso positivo, o comando 
PLAY é usado para emitir um "blip" 
enquanto o ponto é apagado. Ela tam- 
bém adiciona um ponto a D, que con- 
tém o número de pomos "comidos". 

A linha 1 160 verifica se não há mais 
pontos na tela. Se estes terminaram, o 
programa pula para a linha 1 180, que 



apaga o asterisco. 

A declaração TI = TIMER/50 na li- 
nha 1 190 pára o relógio e divide o que 
está sendo lido por 50, para transformá- 
lo em segundos. 

As linhas 1200e 1210 mostram o tem- 
po na tela. 

A linha 1220 checa se o melhor tem- 
po (FA) é maior que o obtido na última 
contagem. Se for, ele é igualado a este. 
As linhas 1230e 1240 mostram o melhor 
tempo, antes que uma mensagem oriente 
o jogador a teclar <ENTER> para re- 
começar 

A linha 1290 aguarda, até que uma 
tecla seja pressionada, e a 1300 verifica 
se foi < ENTER > . Neste caso o jogo 
recomeça. O RESTORE na linha 50 per- 
mite que os dados (DATA) possam ser 
lidos novamente. Se < ENTER > não 
foi teclada, o computador continua es- 
perando outra entrada. 

A tecla < BREAK > , finalmente, ter- 
mina o jogo. 



CONSTRUA SEUS PRÓPRIOS LABIRINTOS 



Use papel quadriculado para dese- 
nhar seus labirintos. Tenha sempre em 
mente o tamanho da leia do computa- 
dor: 32 por 16 caracteres. 

Desenhado o novo labirinto, altere o 
conteúdo das linhas DATA. Se o novo 
labirinto for maior ou menor que o an- 
tigo, você terá que modificar o tamanho 
do laço FOR...NEXT (linhas 1000 e 
1030). Conte quantas linhas o novo la- 
birinto ocupa e subtraia l . Coloque o re- 
sultado no lugar do último número da 
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linha 1000. Da mesma forma, taça a 
contagem do número de posições da pri- 
meira linha e subtraia 1. Coloque, em 
seguida, esse número no lugar de 18 no 
fim da linha 1030. 

Finalmente, conte quantos pontos 
existem no seu novo labirinto. Se encon- 
trar um número diferente de 153, altere 
a linha 1 160 também, substituindo 153 
pelo novo i 



Estas primeiras linhas constituem o 
labirinto propriamente dito: 

10 SCREEN ltCOLOB 1.3,3 

40 LET P-247 

70 VPOKE BASE(6)+5.26 

80 VPOKE BASE (6) +1 , 102 

90 LOCATE 0,3 

100 FOR N-0 TO 15 

110 READ AS 

120 PRINT TAB ( 4 ) .AS 

130 FOB M-0 TO 18 

140 IF VPEEK<BASE(5)+102+N*32+M 
)-65 THEN VPOKE BASE (5) +102+N*3 
2+M.B 

150 NEXT H 
160 NEXT N 

1000 DATA AAAAAAAAAAAAAAAAAAA 

1010 DATA A AAA A 

1020 DATA A.AA.AA AA.AA.A 

1030 DATA A. A AAA A. A 

1040 DATA A. . -A. A A. A. . . A 

1050 DATA A.AAA.AA.A.AA.AAA.A 

1060 DATA A. . . A A. . .A 

1070 DATA AAA . . .A. AAA. A . . .AAA 
1080 DATA AAA. . .A. AAA. A. . .AAA 

1090 DATA A. . .A A. . -A 

1100 DATA A.AAA.AA.A.AA.AAA.A 

1110 DATA A... A. A A. A. . -A 

1120 DATA A. A AAA A. A 

1130 DATA A.AA.AA AA.AA.A 



As linhas de dados (DATA), de 1000 
a 1150 encerram a forma do labirinto. 
Os limites deste são representados por 
letras "A". 

Antes que os dados sejam lidos, a li- 
nha 10 limpa a tela, introduzindo-a no 
modo gráfico de 32 colunas (comando 
SCREEN), e fixa a cor de fundo e de 
frente (comando COLOR). A linha 40 
define a posição inicial do "Come- 
come" (que será representado por um 
asterisco). 

As linhas de 100 a 160 desenham o 
labirinto na tela. Sempre que o laço 
FOR.. .NEXT das linhas 100 e 160 é exe- 
cutado, o programa lê a próxima linha 
de dados (DATA). A linha 1 10 lê os da- 
dos, denominando-os de A$. A linha 
120 coloca-os na leia. 

Todos esses pontos e letras "A" com- 
binados não formam, contudo, um la- 
birinto de verdade. Assim, a linha 140 
verifica a porção da memória da máqui- 
na que corresponde a cada posição de 
tela. Isso é feito com a função VPOKE 
BASE (5), que torna acessível a memó- 
ria dedicada de vídeo do MSX, na cha- 
mada página 5. Se o endereço de memó- 
ria contém o número 65 , isso quer dizer 
que temos um "A" na tela e ele é mu- 
dado para um bloco azul (código 8). As 
linhas 130 e 150 fornecem o laço que 
permite que a linha 140 verifique todas 
as posições da tela. 

Agora adicione estas linhas e deslo- 
que um homenzinho pelo labirinto. 



60 VPOKE BASE(6)+31.170 

160 VPOKE BASE(5)+P.ASC("*") 

190 LET LP-P 

195 KS-INKEYS:1F K$-"" THEN 195 
200 IF KS-CHRS(29) AND VPEEK (BA 
SE(5)+P-1)<>6 THEN LET P-P-l 
210 IF KS-CHRS(28) AND VPEEK (BA 
SE(5)+P+l)OB THEN LET P-P+l 
220 IF KS-CHRS(30) AND VPEEK (BA 
SE<5)+P-32)<>8 THEN LET P-P-32 " 
230 IF KS-CHRSOl) AND VPEEK (BA 
SE{5)+P+32)<>8 THEN LET P-P+32 
250 VPOKE BASE(5)+LP,255 
270 GOTO 180 

O movimento do caractere pelo labi- 
rinto só é possível se o ponto para onde 
se quer levá-lo não contém um bloco 
azul. A linha 200 verifica se uma tecla 
foi apertada e qual é o conteúdo de duas 
posições de memória: a que correspon- 
de à tecla de movimentação do cursor 
"flecha para baixo" e a que correspon- 
de à posição de leia em que o homem 
vai entrar. Se a tecla (código 29) está 
sendo pressionada, e o endereço de tela 
não contém um bloco azul (código 8), 
ele pode se movimentar. 

As teclas para controle de movimen- 
to são as usadas para a movimentação 
do cursor (marcadas com as flechas nas 
quatro direções). Experimente deslocar 
o asterisco e "comer" (apagar) os pon- 
tinhos. 

Adicione estas linhas e marque o tem- 
po para "comer" os pontos: 

20 FA-999999! 
30 RESTORE 
50 LET D-0 
170 TIME-0 

240 IF VPEEK(BASE(5)+P)-46 THEN 
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SOUND 7, 7: SOUND 6 . 0 : SOUND 8,15 
: SOUND 8.0: LET D-D+l 
260 IF D-153 THEN GOTO 280 
280 VPOKE BASE(5}+P,255 
290 LET TI-INTtTIME/50) 
300 LOCATE ?.1:PRINT "TEMP0-";T 
I : " SES " i 

310 IF FA>TI THEN FA-TI 

320 LOCATE 3,20:PRINT "MELHOR T 

EMPO-" : FA: "SEG " ; 

330 LOCATE 7,21:PRINT "Aperte R 

ETURN " ; 

390 LET KS-INKEYS:IF KS-"" THEN 

390 

400 IF KS-CHRS(13) THEN GOTO 30 
410 GOTO 390 

O tempo gasto para remover os pon- 
tos, assim como o melhor tempo, é mos- 
trado ã direita do labirinto, quando vo- 
cÊ executa este programa. De início, o 
melhor tempo é colocado em 999999 se- 
gundos pela linha 20. A linha 50 zera o 
placar, e a linha 170 zera o "cro- 
nometro" . 

A linha 240 examina a posição em 
que o asterisco está, para ver se há um 
ponto. Em caso positivo, o comando 
SOUND é usado para emitir um "blip" 
enquanto o ponto é apagado. Ela tam- 
bém acrescenta um ponto a D, que con- 
tém o número de pontos "comidos". A 
linha 260 verifica se não há mais pon- 
tos na tela. Se estes terminaram, o pro- 
grama pula para a linha 280, que apaga 
o asterisco. Acionamos aqui o coman- 
do VPOKE, como acima. 

A declaração TI = INT(TlME/50), 
agora na linha 290, pára o relógio e di- 
vide o que está sendo lido por 50 para 
iransformá-lo em segundos. A linha 300 
mostra o tempo na tela.. 

A linha 310, por sua vez, checa se o 



melhor tempo (FA) é maior que o tem- 
po obtido na última contagem. Se foi, 
ele é igualado a este último. A linha 320 
mostra o melhor tempo, antes que uma 
mensagem diga ao jogador para recome- 
çar, teclando < ENTER > . 

A linha 390 aguarda até que uma te- 
cla tenha sido pressionada, e a linha 400 
verifica se foi < ENTER >. Neste caso, 
o jogo recomeça. O RESTORE na linha 
30 permite que os dados (DATA) pos- 
sam ser lidos novamente. Se alguma te- 
cla diferente de < ENTER > foi pressio- 
nada, o computador continua esperan- 
do outra entrada. 

O comando < CTRL >< STOP > 
encerra o j 



Estas primeiras linhas formam o la- 
birinto propriamente dito: 

30 HOME : GR 
40 LET M • 18: LET N = 4 
1000 FOR I = 0 TO 15 
1010 RE AO AS 
1020 FOR J - 1 TO 19 
1025 IF MIDS (AS.J.D - "A" T 
HEN COLOR- 3: PLOT 2 * J . 2 * I 
: PLOT 2«J+1.2*I: PLOT 2 
* J.2 * I + 1: PLOT 2 * J + 1,2 
* I + 1 

1030 IF MIDS (AS.J.D - "." T 
HEN COLOR- 12: PLOT 2 * J.2 * 

I 

1050 NEXT J 
1060 NEXT I 

2000 DATA "AAAAAAAAAAAAAAAAAA 

A' 

2010 DATA 



2020 DATA "A.AA.AA AA.AA. 

A" 

2030 DATA "A. A AAA A. 

A" 

2040 DATA "A. . .A. A A. A. . . 

A" 

2050 DATA "A. AAA. AA . A. AA. AAA. 
A" 

2060 DATA "A. . .A A. . . 

A" 

2070 DATA "AAA. . .A. AAA. A. . .AA 
A" 

20B0 DATA "AAA . . .A. AAA. A . . . AA 
A" 

2090 DATA "A. . .A A. . . 

A" 

2100 DATA "A . AAA . AA . A . AA . AAA . 

A" 

2110 DATA "A. ..A. A A. A... 

A" 

2120 DATA "A. A AAA A . 

A" 

2130 DATA "A.AA.AA AA.AA. 

A* 

2140 DATA "A AAA 

A" 

2150 DATA " AAAAAAAAAAAAAAAAAA 
A" 

Os limites do labirinto são represen- 
tados, neste estágio, tal como em exem- 
plos anteriores, por letras "A". Da mes- 
ma forma, seus contornos estão conti- 
dos nas linhas de dados (DATA), de 
2000 a 2150. Portanto, o programa só 
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funcionará se forem adicionadas essas 
linhas. É relativamente fácil alterar a 
forma para um novo labirinto: basta 
modificar as linhas de 2000 a 2150. 

Antes que os dados sejam lidos, a li- 
nha 30 limpa a tela e a coloca num mo- 
do gráfico de baixa resolução. A linha 
40 coloca o asterisco na posição incial. 

As linhas de 1000 a 1060 desenham 
o labirinto na tela. A cada vez que o la- 
ço FOR...NEXT das linhas 1000 e 1060 
é executado, o programa lê a próxima 
linha de dados (DATA). A linha 1010 
lê os dados, e os chama AS. A linha 
1025 coloca-os na tela, na forma de qua- 
dradinhos coloridos (cor= 3 onde hou- 
ver a letra A, e cor= 12 em outros 
pomos). 

Agora adicione estas linhas e v 
derá deslocar, mais uma vez, i 
menzinho pelo labirinto. 

1080 COLOR- li PLOT 2 * M.2 * 
N: PLOT 2 * M ♦ 1,2 ■ N: PLOT 2 
« M.2 * N + 1: PLOT 2 * M + 1, 
2 * H + 1 

1090 LET PM - M: LET PN - N 
1100 IP PEEK t - 16384) - 218 
AND SCRN( 2 * (M - 1) .2 « N) 

< > 3 THEN LET M - M - 1 
1110 IF PEEK ( - 16384) - 216 

AND SCHN! 2 * (M + 11,2 * N) 

< > 3 THEN LET M - M + 1 
1120 IF PEEK ( - 16384) - 208 

AND SCRNÍ 2 *M,2 * (N- 1)) 

< > 3 THEN LET N - N - 1 
1130 IF PEEK ( - 16384) - 204 

AND SCBNÍ 2 • M, 2 * (N + 1) ) 

< > 3 THEN LET N - N + 1 
1150 COLOR' 0: PLOT 2 * PM, 2 * 

PN: PLOT 2 * PM + 1,2 * PN: PL 
OT 2 * PM, 2 * PN + 1 : PLOT 2 * 
PM + 1 , 2 * PN + 1 
1170 GOTO 1080 

Esta parte do programa dá a você a 
possibilidade de movimentar o caracte- 
re pelo labirinto. Para que haja movi- 
mento, porém, o ponto para onde se 
quer levar o caractere (nosso homenzi- 




nho) não deve conter nenhum bloco de 
cor 12. 

A linha 1100, por exemplo, verifica 
o conteúdo de duas posições de memó- 
ria: a que corresponde à tecla "Z" e a 
que corresponde à posição de tela em 
que o homem vai entrar. Se a tecla "Z" 
(código 218) está sendo pressionada, e 
o endereço de tela não contém um blo- 
co gráfico, então ele pode se movi- 
mentar. 

As teclas para controle de movimen- 
to são as mesmas já utilizadas anterior- 
mente: "Z" para a esquerda, "X" pa- 
ra a direita. "P" para cima e "L" para 
baixo. 

Marque o tempo necessário para 
"comer" todos os pontos, acrescentan- 
do estas linhas: 

20 LET FA - 99999 
50 RESTORE 
60 LET D - 0 
1070 LET TI - 0 
1140 IF SCRN< 2 • M, 2 * N> - 
12 THEN LET W - PEEK ( - 1633 
6) : LET D - D + 1 
1150 COLOR- 0: PLOT 2 * PM. 2 * 
PN: PLOT 2 * PM + 1,2 * PU: PL 
OT 2 " PM T 2 * PN + 1: PLOT 2 * 
PM + 1,2 * PN + 1 
1160 IF D - 153 THEN GOTO 118 
0 

1170 GOTO 1080 

1180 COLOR- 0: PLOT 2 * M,2 * 
N: PLOT 2*M+1,2*N: PLOT 2 
* M,2 * N + 1: PLOT 2 * M + 1, 
2 • N + 1 

1200 HTAB 9: VTAB 21: PRINT "S 
eu tempo foi de ";TI / 5;" seq" 
1210 IF FA > TI THEN LET FA - 
TI 

1220 HTAB 11: VTAB 22: PRINT " 
Melhor tempo: " ; FA / 5;" seg" 
1230 HTAB 6: VTAB 23: PRINT "P 
reaslone RETURN para cont inuar " 
1240 GET TS: IF ASC (TS) < > 

13 THEN GOTO 1210 
1250 GOTO 40 

De início, o melhor tempo é coloca- 
do em 999999 segundos pela linha 20. 
A linha 60 zera o placar e a linha 1070 
zerao "cronometro". A linha 1095 au- 
menta uma posição no cronometro. A 
linha 1 1 40 examina a posição em que o 
asterisco está. Ela também adiciona um 
ponto a D, que contém o número de 
pontos que foram "comidos". 

A linha 1 160 verifica se não há mais 
pontos na tela (em número de 153). Se 
estes terminaram, o programa pula pa- 
ra a linha 1 1 80, que apaga o asterisco. 



A linha 1200 mostra o tempo na tela 
(que é convertido para segundos 
dividindo-se FA por 50). 

A linha 1210 checa se o melhor tem- 
po (FA) é maior que o tempo obtido na 
última contagem. Em caso positivo, ele 
é igualado a este último. A linha 1220 
mostra o melhor tempo, antes que uma 
mensagem diga ao jogador para teclar 
<ENTER> para recomeçar (na linha 
1230). 

A linha 1 290 aguarda até que uma te- 
cla lenha sido pressionada, e a linha 
1300 verifica se foi <ENTER>. Neste 
caso, o jogo recomeça. O RESTORE na 
linha 50 permite que os dados (DATA) 
possam ser lidos novamente. Caso tenha 
sido acionada uma tecla que não < EN- 
TER > , o computador continua à espe- 
ra de outra entrada. A tecla <CTRL- 
C> termina o jogo. 




CONVERSÃO DO COLOR 
PARA O TRS-80 

Os micros TRS-80 e TRS -Color têm 
interpretadores BASIC simitares, no 
que diz respeito ao núcleo básico de co- 
mandos, funções e declarações. Por is- 
so, é fácil converter programas de um 
modelo para outro. As maiores diferen- 
ças residem nos comandos de alta re- 
solução gráfica, cor e som. Os 
comandos CLS (limpa telas), SET e 
POINT (pontos gráficos de resolução 
média) e PRINT@ são semelhantes nas 
duas linhas. As diferenças de sintaxe 
do TRS-80 em relação ao Color são: o 
CLS, o SET e o POINT não tém parâ 
metro indicativo de cor de fundo (tela 
de texto), e as locações de tela usadas 
com o PRINT@ produzem resultados 
diferentes. 

A tela do Color tem dezesseis linhas 
por 32 colunas, e a do TRS-80, dezes- 
seis linhas por 64 colunas. Como as po- 
sições de tela usadas pelo PR1NT@ são 
numeradas sequencialmente, um 
PRINT@ 162, por exemplo, escreverá 
na segunda coluna da sexta linha do 
TRS-Color, e na 32." posição da tercei- 
ra linha, no TRS-80. 

Há uma forma simples de converter 
comandos PRINT@ do Color para o 
TRS-80: se N for a locução de tela do 
Color, sua correspondente no TRS-80 
será 

INTÍN/32)*64+H-32 
para a segunda linha em diante (a que 
começa na posição 32 do Color), Se 
N < 32, não há necessidade da fórmu- 
la acima: a locução de tela do TRS-80 
será o próprio N. 
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COMO DESCOMPLICAR 

SAVEs E LOADs 



■ 


APRENDA A CONECTAR 


0 GRAVADOR 


■ 


COMANDO DE GRAVAÇÃO 


■ 


VERIFIQUE SUAS FITAS 


■ 


COMANDO DE LEITURA 



Qualquer criança é capaz de fazer 
funcionar um gravador. Quando 
se traia de conectá-lo ao computador, 
porém, as coisas podem se 
complicar. Saiba como sair dessa, 
começando por ajustar os controles. 



Alguns problemas podem surgir 
quando se quer gravar ou carregar pro- 
gramas com um gravador cassete. As 
causas desses problemas nem sempre são 
identificáveis. Mas é possível estabele- 
cer algumas rotinas que diminuam as 
margens de erro. 



SAIBA CONECTAR CORRETAMENTE 



Alguns micros empregam um grava- 
dor especial do tipo digital, que tem uma 
ligação única e direta com a máquina; 
essa característica elimina qualquer pro- 
blema na instalação. Mas a maioria dos 
computadores pode ser ligada a um gra- 
vador cassete, frequentemente utilizan- 
do mais que um tipo de cabo. Normal- 
mente, a ligação é feita por meio de um 
plugue do tipo DIN ligado a três plugues 
de pino {jaques), mas pode-se encontrar 
também um conector Dl D em cada uma 
das pontas, com ou sem jaques em pa- 
ralelo. Se você comprar um cabo ou usar 
um próprio para áudio, assegure-se de 
que ele é adequado: caso não seja, apa- 
recerão problemas como interferências 
em cabos não blindados. 

Se você usa o gravador com frequên- 
cia, é aconselhável deixar o cabo perma- 
nentemente ligado dos dois lados. 



AJUSTE OS CONTROLES 



O passo inicial e mais importante na 
adequação com o computador é ajustar 
os controles de volume, tonalidade e ou- 
tras características do gravador. Se vo- 
cê tem um gravador especial para com- 
putadores, siga as instruções que o 
acompanham. 

Se seu gravador é do tipo comum, co- 
mece desligando todos os controles es- 




peciais, como filtros c sistemas de redu- 
ção de ruído (Dolby), etc. Ajuste o con- 
trole de tonalidade para o máximo de 
agudos (a tonalidade é controlada ou 
por um dial numerado, ou por um in- 
terruptor de duas posições grave/agu- 
do). Deixe a tonalidade assim sempre 
que você usá-lo com o computador. Es- 
colha um volume médio (entre 50 e 60% 
do máximo) e tente carregar (com os co- 
mandos LOAD, CLOAD, etc, depen- 
dendo do computador) um programa já 
gravado, como por exemplo o da fita de 
demonstração que acompanha sua má- 
quina. Se o programa não carrega, au- 
mente o volume pouco a pouco e repita 
a operação, até conseguir um bom re- 
sultado. 

Se você alcançar o volume máximo 
ainda sem sucesso, volte o seletor até um 
ponto levemente abaixo daquele em que 
você começou e repita toda a operação, 
diminuindo o volume aos poucos. 

Caso o programa não carregue em 
nenhum nível de volume, verifique as 
conexões novamente. Tente outro cabo 
ou outra fita, ou peça emprestado um 



gravador adequado ao seu tipo de com- 
putador. Se, depois disso, ele continuar 
sem funcionar, procure o seu re- 
vendedor. 

Quando tiver encontrado um volume 
que permita o carregamento, observe a 
posição do controle, estabeleça os limi- 
tes superior e inferior com os quais vo- 
cê consegue carregar o programa e mar- 
que o ponto médio para uso posterior. 
Você pode usar o mesmo volume para 
gravação, mesmo porque muitos grava- 
dores têm um controle automático des- 
se volume. 

Para testar se o volume é adequado 
para gravação, limpe a memória do 
computador (digite NEW e pressione 
<ENTER> a seguir) e digite este pe- 
queno programa. 

L2M1MQQ55 

10 BEM TESTE DE GRAVAÇÃO 
20 REM 
30 REM 
40 REM 

50 REM FIM DO TESTE 
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EXTERMINADOR DE PROBLEMAS 

— Utilize um gravador cassete mo- 
noaural (isto ó, que não seja estéreo), 
de marca confiável e, se possível, 
reserve-o para uso exclusivo com o 
computador. Ligue-o sempre ã rede elé- 
trica. ao invés de usar pilhas, para as- 
segurar uma rotação uniforme do 

— Evite usar aparelhos estereofóni- 
cos, a não ser que todos os seus recur- 
sos especiais possam ser desligados. 

— Use fitas magnéticas para áudio 
de boa qualidade ou especiais para da- 
dos. Uma fita de má qualidade não re- 
sistirá por muito tempo a várias regra- 
vações. 

— Procure instruções especificas na 
tela; o gravador deve ficar com a tecla 
PLAV acionada até que a operação de 
carga esteja completada. 

s características de tona- 
lidade, volume e outros controles se a 
carga do programa não for bem-su- 
cedida. 

— Afaste o gravador da TV ou mo- 
nitor se um programa que já carregou 
uma vez não funcionar. Tente também 

a gravação do programa para 
ver se funciona. Em caso afirmativo, a 
primeira fita deve tef sido danificada. 

— Se for necessário ajustar o volu- 
me com frequência, de programa para 
programa, marque o volume adequado 
na etiqueta da fita. 

— Guarde suas fitas em lugar 
livre de poeira e longe de fontes eletro- 
magnéticas e do calor. 



Siga então a rotina para gravação no 
computador, acionando SAVE ou CSA- 
VE. Ao carregá-lo (comando LOAD ou 
CLOAD) e listá-lo (LIST) você obterá 
o programa de volta. 



0 COMANDO DE GRAVAÇÃO 



O comando de gravação de fita não 
é um comando padrão do BASIC, va- 
riando muito entre os computadores. A 
maneira correta de manipulá-lo é geral- 
mente explicada no manual que acom- 
panha o micro. Alguns passos iniciais, 
porém, são importantes. 

Antes de gravar qualquer programa, 
coloque uma fita de boa qualidade no 
gravador, tendo o cuidado de rodá-la 
um pouco para que a guia de plástico 
transparente, existente no começo (lea- 
der), não fique em contato com o ca- 
beçote. 

A seguir, escolha um nome adequa- 
do para seu programa. Os dados são ar- 
mazenados na forma de "arquivos" de 
um tipo ou outro, independentemente 
do método real de armazenamento. 
Mas, para gravações feitas em fita, no- 
mes especiais são empregados com o co- 
mando SAVE, de modo a identificar na 
fita qual o programa gravado (isso é útil 
para achar automaticamente o progra- 
ma, depois, através do comando 
LOAD). 

O nome do arquivo ou programa po- 
de ser qualquer combinação de caracte- 
res ou símbolos contidos no tamanho 



máximo permitido para uma linha no 
seu computador. Na maioria das máqui- 
nas, esse tamanho é de dez caracteres no 
máximo. Outros computadores, como o 
TRS-80, permitem apenas uma letra ou 
símbolo de identificação do programa: 
quando o nome é maior, os comandos 
CSAVE e CLOAD reduzem-no à pri- 
meira letra. 

SAVE "NOMEPROG01" 
SAVE "NomeProgOl" 
CSAVE "FI- 
DOS computadores considerados 
aqui, apenas os compatíveis com Apple 
II não exigem aspas. 

Os exemplos de comandos SAVE aci- 
ma são válidos, mas um deles usa letras 
maiúsculas e minúsculas. Se você 
misturá-las num nome de programa, de- 
ve fazer o mesmo quando quiser carre- 
gar o programa. 



SAVE "NOME . PROG" 
SAVE "NOME /PROG" 
SAVE "NOME { PROG) " 
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Se o seu computador está ligado ao 
controle remoto do gravador, ligue os 
controles para gravação, digite o nome 
do programa desejado após o comando 
SAVE e tecle < ENTER > ou <RE- 
TURN>. O computador assumirá o 
controle do gravador até que a opera- 
ção de gravação esteja completada. 

Se o controle é manual, digite o co- 
mando SAVE e o nome do programa, 
coloque o gravador em funcionamento 
e então tecle < ENTER > ou <RE- 
TURN > . Espere até que o sinal de 
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prontidão reapareça na tela e desligue 
o gravador. 

O (empo exigido para o carregamen- 
to de um programa depende de dois fa- 
tores: seu tamanho, em termos de uso 
de memória, e a velocidade do fluxo de 
dados entre o gravador e o computador. 
Esta é fixa em alguns equipamentos e 
variável em outros. 



Eis aqui dois tipos de 
cabo que você pode utilizar 
para conectar o seu computador 
a um gravador. Verifique em «eu 
manual a disposição correia 
pinos (canto inferior esquerdo). 




As gravações mais confiáveis são fei- 
tas na velocidade mais baixa. Altas ve- 
locidades usam menos fita e, obviamen- 
te, operam mais rápido. Nesse caso é im- 
portante usar fitas de alta qualidade. 



VERIFIQUE AS GRAVAÇÕES 



Uma maneira de verificar se um pro- 
grama foi gravado adequadamente é 
carregá-lo e executá-lo. Quando a gra- 
vação é imperfeita o programa que está 
na memória (e que você quer gravar) é 
substituído por aquele que está na fita, 
e a gravação se perde. Se esta tiver sido 
bem-sucedida, não haverá problemas. 

Muitos computadores contornam es- 
sa dificuldade fornecendo um comando 
verificador (por exemplo, VERIFY). O 
seu uso exige o rebobinamento da fita 
até o início do programa. Então 
executa-se o comando usando o mesmo 
nome que se deu ao programa ao gravá- 
lo. Por exemplo: 



VERIFY "NOMEPROG01" 

O computador lê o programa da fita 
e o compara com aquele que está na me- 
mória. Se houver falha, aparecerá na te- 
la uma mensagem de erro. 

Os computadores da linha TRS-Í 
usam o comando CLOAD? para a ta- 
refa de verificação. Outros micros, po- 
rém (como os compatíveis com o Sin- 
clair ZX-81), não têm qualquer função 
de verificação. Recorra, nesse caso, a 
programas de revistas especializadas ou 
vendidos à parte. 



0 COMANDO OE LEITURA 



Se você começar com programas pre- 
gravados, seus primeiros problemas 
rão com o comando de leitura (LOAD) 
Podem existir várias formas do coman 
do LOAD, mesmo para uma única má 
quina. Eis uma delas: 

LOAD "NOMEPROG01" 

Outros computadores utilizam a for- 
ma CLOAD (linha TRS-80), LOADA 
ou LOADT (TK-2000), etc. 

O comando LOAD deve reproduzir 
o nome utilizado para gravação (SAVE) 
e verificação (VERIFY). Para que o 
computador leia os sinais da fita mag- 
nética, basta digitar LOAD e pressionar 
a tecla PLAY do gravador. Ele procu- 
rará pelo nome do programa e mostra- 
rá todos que encontrar pelo caminho, 
até encontrar aquele que confere com o 



nome indicado juntamente com 
LOAD. Quando esse nome for e 
trado, os dados que o seguem p 
tomaticamente carregados na memória 
do computador. Em muitos tipos de 
computador, o processo de leitura po- 
de ser acompanhado na tela de vídeo por 
meio de indicadores. Na linha TRS-8" 
pio. aparece um asterisco pis- 
cando no canto superior direito da tela. 
Em outras, o número de bytes ou de blo- 
cos de bytes lidos é mostrado conti- 
nuamente. 

Se o gravador está ligado ao contro- 
le remoto, a fita estaca ao final do pro- 
cesso de carregamento, mas você ainda 
precisa apertar a tecla STOP no grava- 
dor. Se o controle é manual, simples- 
mente aperte STOP quando o cursor 
reaparecer na tela. Evite que a tecla 
PLAY fique acionada desnecessaria- 
mente, porque isso pode provocar o des- 
gaste prematuro ou deformação da po- 
lia tratora. 

Quando você usar o comando LOAD 
ou equivalente, o programa que for car- 
regado tomará o lugar de qualquer ou- 
tro que esteja na RAM (Memória de 
Acesso Randômico) do computador. 
Por isso, assegure-se de ter gravado o 
programa resistente na memória antes 
de carregar o próximo. 

Rebobine a fita até o início do pro- 
grama-teste que foi apresentado lá em 
cima, e tente carregá-lo (LOAD) usan- 
do o nome que você escolheu. Em caso 
de dificuldade, consulte o guia de reso- 
lução de problemas, neste artigo. 

Outras formas do comando LOAD 
são necessárias para tornar acessíveis da- 
dos em código de máquina (por exem- 
plo, BLOAD), para realocar programas 
e para juntar um programa a outro 
(MERGE). Seu primeiro contato com 
elas pode ter sido em instruções de jo- i 
gos comprados ao acaso. 
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Os circuitos internos dos computado- 
res utilizam, como vimos, apenas núme- 
ros binários para realizar operações arit- 
méticas. Ora, esse sistema de numera- 
ção, composto dos dígitos 0 e 1, cria 
uma série de dificuldades de compreen- 
são e manipulação para os operadores. 

Em primeiro lugar, os números biná- 
rios de oito e dezesseis bits (os mais usa- 
dos em microcomputadores) tornam-se 
confusos e difíceis de reconhecer, com 
tantos Os e ls. Digitá-los. no computa- 
dor é uma empresa difícil, sujeita fre- 
quentemente a erros e incorreções. 

A maneira de contornar esses proble- 
mas consiste em fazer com que o ope- 
rador ou programador em nível de má- 
quina passe a utilizar um sistema numé- 
rico com outra base, mas que ainda se- 
ja próximo, em concepção, ao sistema 
binário utilizado pelo computador. 

O sistema universalmente adoiado 
para isso é o hexadecimal (ou hexa), no 
qual os números utilizam a base 16. E 
por que o hexa funciona tão bem com 
computadores? 

Antes de mais nada, ele está suficien- 
temente próximo do decimal para ser to- 
lerado por nós, simples mortais. Mas, 
além disso, 16 é uma potência de 2 (co- 
mo 8 também o é, em outro sistema 
muito usado com computadores, o oc- 
tal). Isso significa que a conversão en- 
tre os sistemas — binários e hexa — , nos 
dois sentidos, é bem mais simples do que 
entre o primeiro e o sistema decimal. 

A única dificuldade é que um siste- 
ma com base maior do que 10 precisa 
criar novos algarismos, além dos que 
existem entre 0 e 9. No sistema hexade- 
cimal utilizam-se letras adicionais (sem- 
pre em maiúsculas). O 10 decimal é re- 
presentado por A, o 1 1 por B, o 12 por 
C, o 13 por D, o 14 por E e o 15 por F. 

Tudo se passa como se tivéssemos oi- 
to dedos em cada mão. Essa imagem po- 
de parecer estranha ou mesmo mons- 
truosa, pois dificilmente suportamos al- 
terações em nossa aparência física. Na 
prática, porém, é isso que acontece. 



COMO CONVERTER BINÁRIO EM HtXA 



[ A conversão de números binários de 
I oito bits (os mais utilizados em compu- 
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Se todos tivéssemos dezesseis dedos, 
o sistema numérico mais comum seria 
certamente o hexadecimal. Embora isso 
não aconteça, esse sistema é 
fundamental para o código de máquina. 



■ 


POR QUE 0 SISTEMA 




HEXADECIMAL 




HEXADECIMAL É UTILIZADO 


■ 


CONVERSÕES FÁCEIS DE 


■ 


CONTANDO DE 16 EM 16 




BINÁRIO PARA HEXA 


■ 


A RELACÁO ENTRE OS 


■ 


CONVERSÃO DE DECIMAL 




SISTEMAS BINÁRIO E 




PARA HEXA 



[adores pessoais) para o sistema hexa- 
decimal é bastante fácil. Primeiro, vo- 
cê divide o número binário em duas par- 
tes de quatro bits cada. Em seguida, ca- 
da uma dessas partes é transformada em 
um digito hexadecimal. O número hexa 
final é composto por esses dois dígitos. 
Da mesma forma, converte-se um nú- 
mero binário de dezesseis bits hexa 
dividindo-o em quatro segmenlos de 
quatro bits cada. 

Já a conversão de decimal para hexa 
é mais complicada, embora não seja tão 
difícil que você não possa realizá-la. Pa- 
ra se fazer isso, você precisa dividir o 
número decimal por 16, sucessivamen- 
te. Os restos dessa divisão formarão os 
dígitos do número em hexa. 

Quando se divide o decimal 1226 por 
16, o resto será 10. O 10 decimal é A em 
hexa. O resultado da divisão (76) é di- 
vidido, por sua vez, por 16, e dá 4, com 
resto de 12 (C em hexa). Finalmente, 4 
dividido por 16 dá zero, com 4 de res- 
to. Conclusão: 1226 em decimal é 4CA 
em hexa (note a sequência inversa à di- 
visão para os dígitos hexa). Para apren- 
der melhor como funcionam todas es- 
sas conversões, digite o programa 
abaixo. 



■ CLS 0 
PRINT #11."BIN.DEC.HEX"; 
PRINT £68 , "BINÁRIO" ; 
PRINT 8196, "DECIMAL" ; 
PRINT 0323 . "HEXADECIMAL" ; 
PRINT #355 , "4 + + - " ; 
PHINT «371 , "+ + + - " ; 
FOR J-l TO 15:P0KE 1040+32*J 
75: NEXT 

PRINT §450. "NUMERO HEX- 

110 PRINT 8227 . "+ + + + 



THEN 1 

THEN NO-NO+1 :N0- 
AND 255 :GOTO 170 

IF INS-"B" THEN NO-N0~l:NO- 
AND 255 :GOTO 170 
I GOSUB 3 70 

i GOSUB 190: GOSUB 270 
i 'GOTO 130 

FOR X-7 TO 0 STEP-1 

IFINO AND 2"X)THEN N-l ELSE 



N-0 

210 PHINT @125-XM,N; 
220 IF N-l THEN N= INT ( 2 * X ) : NS-S 
THS IN) :NS-MIDS (NS . 2 , LEN (NS) "D E 
LSE NS=RIGHTS<" 0".LEN<STP.S12- 

X) )-l) 

230 PRINT ê255-XM-LEN[NS) .NS; 
240 NEXT 

250 PRINT #279." - ";MID$(STHS( 
N0)+" '.2,3) ; 
260 RETURN 

270 FOR X-7 TO 4 STEP -1 

280 PRINT #374-X*3, STRS ( (NO AND 

2"X) 716) : 
290 NEXT 

300 PHINT #367.HEXS<NO/16) ; 

310 FOH X=3 TO 0 STEP -1 

320 PRINT #378-X*3.STP.$(NO AND 

2"X> i 

330 NEXT 

340 PRINT #383.HEXS(NO AND 15); 
350 POKE 1488.PEEKU391) : POKE 1 
489, PEEKU407) 
360 RETURN 

370 NU$-"":PRINT #439."?"; 
380 IN$-INKEYS:IF(INS<"0" OR IN 
S>"9") AND INSOCHRS (13) THEN G 
OTO 380 

390 IF INS-CHR$(13) THEN NO-VAL 
(NU$):IF NO>255 THEN 370 ELSE P 
RINT #439 , STRINGS (5 , CHRS ( 1 28) ) ; 
: RETURN 

400 IF INSOCHRSU3) AND LEN [N 
U$)>2 THEN 380 

410 NUS-NUS+INS:PRINT #441,MIDS 
(NUS+" ".1.3) ; :GOTO 3B0 



30 PRINT INVERSE 1 ;AT 0.8;" 
BIN.DEC.HEX " 

40 PRINT INVERSE 1 ; AT 4,2;" 
BINÁRIO : 

50 PRINT INVERSE 1 ; AT 9,2;" 
DECIMAL: 

60 PRINT AT 10.5:"+ ♦ + 

70 PRINT INVERSE 1 ; AT 17.2; 
HEXADECIMAL : " 

80 PRINT AT 18.4:"+ + + - 
90 PRINT AT 18.20;"+ + + 

100 LET no-0 
110 GOTO 150 

120 LET aS-INKEYS i IF aS-" 

THEN GOTO 120 

130 IF aS-" " THEN LET no-no 
1 ! IF no-256 THEN LET no-0 

135 IF a$-"b" then LET no-no 



HIIIIIIIHHMi^MMMHHIIIIIIIIIII 



1 i IF no— 1 THEN LET no-255 
140 IF aS-"b" OH aS-" " THEN 

GOTO 150 

145 INPUT "?";no 

150 GOSUB 170: GOSUB 250 

160 GOTO 120 

170 LET nu-no: LET c-128 

175 FOR X-0 TO 7 

180 LET n-0: IF nu>-c THEN 

LET n-1 : LET nu-nu-c 

190 LET C-C/2 

200 PRINT AT S.2+4*X;I) 

210 IF n-1 THEN PRINT AT 10,2 

+4"x;c* 2 

220 IF n-0 THEN PRINT AT 10,2 
+4"Jt;"0 " 
230 NEXT x 

235 PRINT AT 13,6;"TOTAL DECIM 
AL- ";n o;" 



260 LET lo- (no-hl*16) : LET 11- 

lo: IF lo>9 THEN LET lo-lo+7 

265 IF hi>9 THEN LET hi-hi+7 

270 LET hi-hi+48: LET lo-lo+48 

280 PBINT AT 18,14;CHRS hl j AT 

18,30; CHRS lo 

290 LET c-8 

300 FOR x-0 TO 3 

310 LET n-0: IF hh>-C THEN 

LET n-c : LET hh-hh-c 




Nos micros TRS-Color. TRS-80 
(com BASIC em disquete) e MSX, exis- 
tem funções especificas para conver- 
ter decimais em hexas. Essas funções 
são {d corresponde a um número ou ex- 
pressão em decimal): 

SOM 

HEXS Idl 

Se você quiser inclutr números em 
hexadecimal como parte de um progra- 
ma (por exemplo, dentro de declara- 
ções DATA), também não há problema 
para muitos computadores, Ao utilizar 
essas constantes em hexa para cálcu- 
los subsequentes, o computador os 
converterá internamente em decimal 
(ou. mais propriamente, em binário). 



Coloque &H antes do número. Exem- 
plo: &HF3 



315 LET m-0: IF 11>-C T 
LET m-c : LET 11-11-c 
320 LET C-c/2 
330 PRINT AT 18,2+x*3;n 



340 NEXT x 
400 PRINT AT 21,6; 
" ;CHRS hl ;CHRS lo 
500 RETURN 



8+X*3;M 

340 NEXT X 

400 PHINT AT 21.1 
;CHRS Hl; CHRS LO 

500 RETURN 



"TOTAL HEX- 



20 CLS 

30 PRINT AT 0,9:' 
40 PRINT AT 4,4;' 
50 PRINT AT 9.4;' 
60 PRINT AT 10,5 



TOTAL HEX- 



BIN , DEC , HEX" 
BINÁRIO: " 
DECIMAL : " 



ffU 



5 KEY OFF 
10 SCREEN0 
15 COLOR 1.9 
20 CLS 

30 LOCATE 10,0:PRINT" BIN, DEC. H 
EX" 

40 LOCATE 2.4: PRINT" BINÁRIO: 
50 LOCATE 2,9:PRINT" DECIMAL: 



70 PRINT AT 17,4;"HEXADECIMAL: 60 LOCATE 3,10:PRINT" 



Coloque S antes do número. 
Exemplo: $F6. 



80 PRINT AT 18,4;"+ + + -" 
90 PRINT AT 16,20:"+ + + -" 

100 LET NO-0 

110 GOTO 150 

120 LET AS-INKEYS 

125 IF AS-"" THEN GOTO 120 

130 IF A$<>"F" THEN GOTO 135 

131 LET NO-NO+1 

132 IF NO-256 THEN LET NO-0 

135 IF AS<>"B" THEN GOTO 140 

136 LET NO-NO-1 

137 IF NO — 1 THEN LET NO-255 
140 IF AS-"B" OR AS-"F" THEN GO 

TO 150 
145 INPUT NO 
150 GOSUB 170 
155 GOSUB 250 
160 GOTO 120 

170 LET NU-NO 

171 LET C-128 
175 FOR X-0 TO 7 
180 LET N-0 

185 IF NU>-C THEN LET N-1 

186 IF NU>-C THEN LET NU-NU-C 
190 LET C-C/2 

200 PRINT AT 5,2+4*X:N 
210 IF N-1 THEN PRINT AT 10,2+4 
*X;C*2 

220 IF N-0 THEN PRINT AT 10.2+4 



L- " ; NO ; " " 
240 RETURN 

250 LET HI-INT (NO/16) 
255 LET HH-HI 

260 LET LO- (NO-HI-16) 

261 LET LL-LO 
270 LET HI-HI+26 
275 LET LO-LO+28 

280 PRINT AT 18.14;CHR$ Hl ; AT 1 
8,30;CHRS LO 
290 LET C-8 
300 FOR X-0 TO 3 

310 LET N-0 

311 IF HH>-C THEN LET N-C 

312 IF HH>-C THEN LET HH-HH-C 

315 LET M-0 

316 IF LL>-C THEN LET M-C 

317 IF LL>-C THEN LET LL-LL-C 
320 LET C-C/2 

330 PRINT AT 18.2+X*3;N;AT 18,1 



70 LOCATE 2,17:.PRINT" HEXADECI 
MAL: " 

60 LOCATE 4,18: PRINT " + + + 

90 LOCATE 20,18:PRINT"+ + + 

100 LET NO-0 
110 GOTO 150 

120 LET AS-INKEYS:IF AS-"" THEN 

GOTO 120 
130 IF AS" " " THEN LET NO-NO+1: 
IF NO-256 THEN LET NO-1 
135 IF AS-"B" THEN LET NO-NO-1: 
IF NO — 1 THEN LET NO-255 
140 IF AS-"B" OR AS-" " THEN GO 
TO 150 

145 LOCATE 30,0; INPUT NO 
150 GOSUB 170:GOSUB 250 
160 GOTO 120 
170 LET NU-NO : LET C-128 
175 FOR X-0 TO 7 

180 LET N-0:IF NU>-C THEN LET fi 
-1 : LET NU-NU-C 
190 LET C-C/2 

200 LOCATE 2+4*X . 5 : PRINT USING 
"#" ;N; 

210 IF N-1 THEN LOCATE 4"X,10:P 

RI NT USING "III" ;C*2 

220 IF N-0 THEN LOCATE 4*X.10:P 

RINT USING "III" ;0 

230 NEXT X 

235 LOCATE 6,13:PRINT "TOTAL DE 
CIMAL-" ;NO; " 
240 RETURN 

250 LET HI-INT (NO/16) : LET HH-HI 

260 LET LO- (N0-HI*16) :LET LL-LO 

:IF LO>9 THEN LET LO-LO+7 

265 IF HI>9 THEN HI-HI+7 

270 LET HI-HI+48:LET LO-LO+48 

280 LOCATE 14,18:PRINT CHR$(HI) 

285 LOCATE 30,18:PRINT CHRS (LO) 

290 LET C-8 

300 FOR X-0 TO 3 

310 LET N-0:IF HH>-C THEN LET N 
-C : LET HH-HH-C 

315 LET M-0:IF LL>-C THEN LET M 
-C : LET LL-LL-C 
320 LET C-C/2 

330 LOCATE 2+X*3,18:PRINT USING 
"C" ;N? 
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335 LOCATE 18+X*3, 18: PRINT USIN 
G"#" ;M; 

340 NEXT LOCATE 

400 LOCATE 6.21: PRINT" TOTAL HEX 
- " ;CHHS (Hl) ; CHRS (LO) ; 
500 RETURN 



20 HOME 

25 POKE 34.22 

30 INVERSE ; HTAB 14: PRINT "B 
IN. DEC. HEX" 

40 VTAB 6; HTAB 5: PRINT "BINA 
RIO" 

50 VTAB 10: 
IMAL" 

60 VTAB 16: 
ADECIMAL" 

70 VTAB 22: HTAB 3; 
EBO HEX- 
80 VTAB 17: 



HTAB 5 : 
HTAB 5: 



PRINT "DEC 
PRINT "HEX 
PRINT "NUM 



90 VTAB 11: PRINT " + + 
110 GOTO 170 

120 VTAB 23: CALL - 958: HTAB 

30: GET INS 
130 IF INS - CHRS (32) THEN N 
0 - NO + 1: IF NO - 256 THEN NO 

- 0 

140 IF INS - CHRS (66) THEN N 
O - NO - 1: IF NO - - 1 THEN N 
O - 255 

150 IF INS < > CHRS (32) AND 
INS < > CHRS (66) THEN GOSU 
B 410 

170 GOSUB 190: GOSUB 270 
180 GOTO 120 

190 NU - NO:C - 128: FOR X - 7 
TO 0 STEP - 1 

200 N - 0: IF NU > - C THEN N 
■ 1 : NU - NU - C 
205 C - C / 2 

210 VTAB 7: HTAB ABS (X - 7) 
«5+1: PRINT " 

220 IF N - 1 THEN N - 2 " X:N$ 

- STRS (N) : GOTO 230 
225 NS - " 0" 

230 VTAB 11: HTAB ABS (X - 7) 
« 5 + 1 + (3 - LEN (NS) ) : PRI 
NT NS 
240 NEXT 

250 VTAB 13: HTAB 5: PRINT "TO 
TAL DECIMAL- ";NO;" ";: CALL - 

86B 
260 RETURN 

270 Hl - INT (NO / 16):HH - Hl 
280 LO - (NO - Hl * 16) :LL - LO 
: IF LO > 9 THEN LO - LO + 7 
290 IF Hl > 9 THEN Hl - Hl + 7 
300 Hl - Hl + 48: LO - LO + 48 
310 VTAB 17: HTAB 18: PRINT C 
HRS (Hl) ; : HTAB 38: PRINT CHRS 

(LO) 
320 C - 8 

330 FOR X - 0 TO 3 

340 N - 0: IF HH > - C THEN N 

- C:HH - HH - C 

350 M - 0: IF LL > - C THEN M 

- C:LL - LL - C 



360 C - C / 2 

370 VTAB 17: HTAB X * 4 + 2: P 
RINT N;: HTAB X • 4 + 22 : PRINT 

380 NEXT 

390 VTAB 22: HTAB 15: PRINT C 

HRS (Hl) : CHRS (LO) 

400 RETURN 

410 VTAB 23: HTAB 30: INPUT NO 

420 IF NO > 255 OR NO < 0 THEN 
410 



Uma vez digitado o programa, rode- 
o com o comando RUN. Aparecerão na 
tela três linhas: uma contendo os dígi- 
tos do número em binário; mais abai- 
xo, a linha do número em decimal; e, 
por último, os dois segmentos do núme- 
ro em hexadecimal. 

Inicialmente, todos esses números es- 
tão zerados. Ao pressionar a tecla de es- 
paçamento (a tecla F na versão para o 
ZX-81), o número binário no topo da 
tela será incrementado de 1 e seus equi- 
valentes em decimal e hexadecimal apa- 
recerão na parte de baixo da tela. O 
equivalente decimal é calculado 
somando-se os valores (potências de 2) 
correspondentes às posições onde um dí- 
gito binário é igual a 1. Exemplo: 



BINÁRIO: 

ooiooi : 



DECIMAL: 

0 + 0 + 32 + 0 + 0 + 4 + 2 + 0 = 38 

POTÊNCIAS DE 2: 
2'2 6 2 5 2 4 2 3 2 2 2 1 2° 

O mesmo método de conversão é uti- 
lizado para o sistema hexadecimal; ape- 
nas, neste caso, formam-se quatro gru- 
pos de quatro bits de cada vez. 

Pressionando a tecla < B > , você di- 
minuirá 1 do número registrado na te- 
la. Ao mesmo tempo, se você pressio- 
nar qualquer outra tecla, além da barra 
de espaços ou da letra B, poderá orde- 
nar rapidamente ao computador que 
converta para binário e hexadecimal um 
número qualquer em decimal entre 0 e 
255. Ao pressionar qualquer tecla, apa- 
recerá em um canto da tela um sinal de 
interrogação. Digite então o número de- 
sejado e acione <ENTER> ou < RE- 
TURN >. Ato contínuo, os números 
equivalentes em binário e hexa serão 
mostrados no vídeo. 

Note que o número máximo que po- 
de ser representado por um byte de oito 
bits em binário é 11111111. Isso equi- 
vale a 255 em decimal e a FF em hexa- 
decimal. Qualquer número armazenado 
em um byte na memória do seu compu- 
tador pode ser representado por um va- 
lor em hexa com dois dígitos. 

Com o tempo, você verificará que es- 
sas conversões não são tão difíceis quan- I 
to parecem a princípio. 



um 
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0 sistema hexadecimal parece difícil e 
complicado. Não seria possivel passar 

n ele? Afinal, é realmente necessá- 
rio aprendê-lo para operar em lingua- 
gem de máquina? 

Sim. Se você tem a intenção de 
aprender seriamente a programar em 
código de máquina, um bom conheci- 
lento sobre como trabalhar com o sis- 
jma hexadecimal é imprescindível. 

Existem programas prontos para ía- 
3r a conversão automática de códigos 
e operação em números binários (As- 
sembler) ou a conversão no sentido in- 
so (Disassemblerl. Além disso, eles 
!itam números expressos no siste- 
ma decimai. No entanto, mesmo nes- 
i casos, o programador precisa re- 
rer constantemente aos seus equi- 
valentes hexadecimais. Muitas vezes, 
certas listagens emitidas por tais pro- 
gramas (DUMP) contém apenas núme- 
s hexadecimais. E você não saberia 
trabalhar com eles se não conhecesse 
sistema de base 16. 
Em lições posteriores, aprendere- 
mos a fazer Assembly manualmente; o 
conhecimento do sistema hexadecimal 
será um pré requisito para entendê-las. 

Com o tempo e a prática, você verá 
que a dificuldade desse sistema é ape- 
nas aparente. Na verdade, ele é tão 
mpies e fácil quanto o sistema deci- 
mal ou qualquer outro. 

Como devo fazer para reconverter de 
hexa para decimal? 

Cada digito de um número em hexa 
vale 1 6 vezes o digito à sua direita. Pa- 
;onverter um número em hexa, co- 
mo F6DA, por exemplo, deve-se tomar 
cialmente o primeiro digito da direi- 
e convertê-lo para notação decimal. 
No exemplo, A equivale a 1 0. O próxi- 
mo digito à esquerda vale 16 vezes 
is; assim, convertemos D para de- 
íal (o que dá 1 31, e realizamos a ope- 
ração: 13 x 16 = 208. 0 próximo dí- 
gito ã esquerda vale 1 6 vezes mais; as- 
sim, multiplicamos 6 x 16 » 16 = 

1 536. O último dígito do exemplo pre- 
cisa também ser multiplicado por 16. 
F vaie 1 5, assim temos 1 5 x 1 6 x 16 

<16 = 61 440. Somando todos os va- 
lores obtidos temos 10 + 208 + 1536 
. 61440 = 63194, em decimal. 
Ou então use o programa listado 
aqui para converter o número hexa de 
dois em dois dígitos de cada vez, e de- 
s multiplique o par mais à esquerda 
por 256. 



NÚMEROS MAIORES 



Como um computador de oito bits 
representa números maiores do que 255? 
Simplesmente quebrando-os em duas 
partes de oiço bits cada e colocando-os 
cm duas memórias adjacentes. Assim, 
o computador armazena qualquer nú- 
mero até FFFF em hexa, ou 65 535 em 
decimal. 

O FFFF é um valor importante em 
computadores pessoais de oito bits, pois 
é o número máximo de posições ende- 
reçáveis de memória RAM. 

Números maiores ainda do que esses 
podem ser armazenados através do mes- 
mo estratagema: dividi-los em três, qua- 
tro ou até mais porções de oito bits. 

A maneira como esses bytes são or- 
ganizados depende do computador. A 
maior parte dos micros que usam o BA- 
SIC armazenam os bytes de menor va- 
lor (chamados LSB, ou leasl significam 
byte) nas memórias de endereço mais 
baixo, e os bytes de maior valor (MSB, 
ou most significam byte), nas memórias 
de endereço mais alto. 

Outros computadores, como os com- 
pativeis com o TRS-Color, fazem exa- 
tamente o contrário. 

Suponhamos agora que você queira 
encontrar o número decimal equivalen- 
te a dois hexadecimais armazenados em 
compartimentos vizinhos de memória 
(um número maior do que FF, quebra- 
do em dois). 

Nos microcomputadores das linhas 
Sinclair, TRS-80, MSX e Apple 11 bas- 
ta converter os dois hexadecimais (Hl 
e H2) para decimal (D) e depois fazer 
a seguinte operação: 




Veja como o programa de conversão 
enlre bases aparece na leia dos microcom- 
putadores. \ disposição da leia c battanle 
parecida a esta, nos micros de oulras li- 
nhas. Agora fica mais fácil entender co- 
mo o\ ires Sisternes numéricos funcio- 
nam, (guandu você manda executar o 
programa, as três linhas zeradas. 
Pressione a letra B para diminuir o valor 
de I na tela. e a linha de hinário ficará 
totalmente cheia de Is. l ogo abaixo, a li- 
nha decimal irá completar-se com Ioda» 
as potências de 2. Da direita para a es- 
<joerdn você lerá os valores: I (que ê 2), 
2 (que é 2), 4 (ou 2), etc. A linha hexade- 
cimal, mais abaixo, funciona da mesma 
forma, só que os dois digilos hexa são 
computados independentemente. 



D = Hl 



H2 



Nos micros compatíveis com o TRS- 
Color, a expressão usada é a mesma, 
mas a ordem de H 1 e H2 é inversa; ou 
seja, o byte de maior valor aparece an- 
tes do menor byte. 



O SISTEMA OCTAL 



Existem apenas quatro sistemas de 
numeração que podem ser utilizados 
com vantagem na programação e 
operação de computadores digitais. 
Você já conhece três deles: o sistema 
binário, que é o natural para um 
computador digital; o sistema deci- 
mal, espontaneamente utilizado pe- 
lo ser humano; e o sistema hexadeci- 
mal, cuja base (16) é uma potência de 
2. Essa correspondência facilita enor- 
memente sua utilização pelo pro- 
gramador. 

O quarto sistema de numeração 
que pode ser usado com computado- 
res digitais é o sistema oclal, ou se- 
ja, de base 8, que ê também uma po- 
tência do número 2. Apesar disso, o 



oclal está entrando em desuso, pois 
não foi universalmente adotado pe- 
los fabricantes de microcompu- 
tadores. 

O octal tem 8 dígitos; 0, 1 . 2. 3, 
4, 5,6, 7 e 8. O sistema de con versão 
de um numero em octal para decimal 
é semelhante ao usado com o hexa- 
decimal, só que o multiplicador é 8. 
Por exemplo: 



423 . 



: 64 + 2 : 



( + 3 i 



275 



Alguns computadores pessoais 
permitem representar constantes em 
oclal (&0), ou têm funções de conver- 
são (OCTS). 
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MARQUE ©TEMPO 
E OS PON 



■ 


0 JOGO DO CAMPO MINADO 


■ 


APRENDA A MONTAR UM 


PLACAR 


■ 


COMO INCORPORAR AO JOGO 



Todo jogo de ação realiza algum tipo 
de contagem de pontos ou de 
tempo, de modo a tornar a competição 
mais emocionante. Nesta lição 
você aprenderá como fazer isso com a 
ajuda de programas bem simples. 



Quase todos os jogos de computado- 
res precisam de alguma forma de mar- 
cação de pontos ou de cronometragem 
— ou ambos. Sem eles você não poderá 
saber se está se saindo bem no jogo, se 
está melhorando, ou quem é o melhor 
jogador. Além disso, são esses elemen- 
tos de medida de desempenho que dão 
graça aos jogos de computador. 

Seria possível, evidentemente, obri- 
gar alguém a sentar-se ao seu lado e fi- 
car contando os disparos que você faz. 
A melhor solução, no entanto, é progra- 
mar o computador para fazer isso por 
você. Umas poucas linhas a mais no 
programa darão cabo dessa tarefa, não 
imporia a complexidade do esquema de 
marcação de pontos. 

Da mesma forma, não existe neces- 
sidade de recorrer a um cronometro pa- 
ra marcar o tempo. Como se viu nos 
programas para o jogo de labirinto (pág. 
46 a 52), quase todos os tipos de com- 
putador têm um relógio embutido, que 
pode ser utilizado para melhorar seus jo- 
gos (a exceção é o Apple II, que precisa 
de uma placa especial). 



Para que você possa ver como mon- 
tar esquemas práticos de contagem e 
cronometragem, apresentamos a seguir 
um jogo adequado a todas as máquinas, 
com exceção das compatíveis com o 
ZX8I, e ao qual acrescentaremos pro- 
gressivamente todas as rotinas necessá- 
rias. Os esquemas são simples e podem 
ser colocados também em outros jogos. 

O jogo é chamado Campo Minado, 
e nele você é um comandante de tanque 
cuja missão é resgatar os pára-quedistas 
que estão pousando imprudentemente 
em um campo minado. Por onde quer 




4 PROGRAMAÇÃO Dl JOGOS 4 



que passe, o tanque corre o risco de de- 
tonar uma mina escondida ao acaso pe- 
lo computador. Assim como em campo 
de batalha real, as minas são invisíveis; 
portanto, mova-se com cuidado! 

O tanque (apenas um caractere #, 
infelizmente, pois você ainda não apren- 
deu tudo sobre combinar gráficos e mo- 
vimentos em um programa BASIC) exe- 
cuta movimentos por meio das seguin- 
tes teclas: Z para a esquerda, X para a 
direita, P para cima e L para baixo. O 
âmago do programa está na rotina de 
movimentação de um caractere na tela 
estudada numa lição anterior. 

Quando você digitar e rodar esta seção 
do jogo verá que ele ainda não está com- 
pleto, pois nada acontece depois que o 
pára-quedista é resgatado. Apenas o tan- 
que continua a vagar, sem rumo, através 
da tela. O programa deve ser interrompi- 
do pressionan d o-se as teclas <BRKAK> , 
< ESCAPE > ou < STOP > , ou você te- 
rá que esperar até que o tanque detone 
uma mina escondida ao acaso. Nesse mo- 
mento, o jogo terminará. Mas não se 
preocupe, essa situação melhorará tão lo- 
go você acrescenteas rotinas de contagem 
e cronometragem que se seguem. 
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50 LET PO=210 
60 CLS 

70 PRINT e256,STRINGS(32. n -") 

90 LET X=HND (2561-1 

110 IF XOPO THEN PRINT SX,"0"; 

ELSE GOTO 90 

120 PRINT @PO, "t" i 

130 LET LP-PO 

140 IF PEEK (340) =247 THEN LET P 
0=PO-l;GOTO 190 

150 IF PEEK{338)-247 THEN LET P 
O-PO+l:GOT0 210 

160 IF PEEKI338) '251 THEN LET P 
O-P0-32:GOT0 220 

170 IF PEEK(342)=253 THEN LET P 
O=P0+32:GOTO 220 
180 GOTO 140 

190 IF (LP AND 3U-0 THEN LET P 
O- LP 

200 GOTO 220 

210 IF (PO AND 311-0 THEN LET P 
O-LP 

220 IF PO>255 OR PO<0 THEN LET 

PO=LP:GOTO 140 

230 PRINT 6LP. " " ; 

240 PRINT #PO, "#" i 

250 LET M-RND (256) -1 

270 IF M=PO THEN PRINT 6PO." " : 

PRINT §130, "BOOM! M UOCE ACERTO 

U UMA MINA! " : STOP 

310 GOTO 130 



O movimento do tanque pela tela é 
controlado pelas linhas 140 a 170, que 
verificam quais foram as tecias pressio- 
'* nadas (veja a pág. 33, se não se lembra 



de como isso é feito). A linha 220 testa 
IF PO > 255... para manter o tanque no 
alio da parte central da tela. Ora, a últi- 
ma locação de tela no alto da parte cen- 
tral do vídeo é a 255; assim o IF... impe- 
de que o tanque avance abaixo da linha 
pontilhada, desenhada pela linha 70. 

Esta última (raça a linha através da 
tela, utilizando uma nova função — 
STRING$.OSTRING$(32,"-"),como 
aparece na linha 70, diz ao TRS-Color 
para desenhar um cordão {stríng, em in- 
glês) de 32 travessões (se você quisesse 
dez pontos de interrogação deveria uti- 
lizar STRINGSUO,"?"), e assim por 
diante). O lugar em que o pára-quedis- 
ta cai é escolhido por um número alea- 
tório na linha 90, e a linha 1 10 exibe o 
pára-quedas na tela se a posição esco- 
lhida já não esiiver ocupada pelo tan- 
que. Se estiver, a linha 90 escolherá ou- 
tra posição. 

Finalmente, a posição da mina escon- 
dida é escolhida pela linha 250. A linha 
270 checa então sê o tanque e a mina es- 
tão na mesma locação de tela. Se esti- 
verem, a mensagem de explosão será exi- 
bida, e o programa parará. 



50 LET tx-16: LET ty-5 
60 CLS 

70 PRINT AT 11.0; " 



90 LET px-INT (RND"30)+1 
100 LET py-INT (RNDM0) 
110 IF px-tx AND py-ty THEN 
GOTO 90 

120 PHINT AT py . px ; "O" ;AT ty, 
tx: "*" 

130 LET txx-tx: LET tyy-ty 

140 LET aS-INKEYS 

145 IF aS-"w" THEN LET ty-ty- 

1 

150 IF a$-"z" THEN LET ty-ty+ 

160 IF a5="a" THEN LET tx-tx- 

170 IF aS-"s" THEN LET tx-tX+ 
1 

190 IF ty<0 OR ty>10 THEN LET 
ty-tyy 

200 IF tx<0 OR tx>30 THEN LET 
tx-txx 

230 PRINT AT tyy, txx; " " 

240 PRINT AT ty , tx; " t " 

250 LET mx-INT (RND*30)+1 

260 LET my-INT IRND*10) 

270 IF mx-tx AND my-ty THEN 

PRINT AT my.mx;" PRINT AT 

8 . 0 ; "BOOM ! ! ! - Voce acertou um 

a Binai": GOTO 330 

310 GOTO 130 

No programa do Spectrum, a tela é 
dividida ao meio pela linha 70, que im- 
prime uma série de 32 travessões ao lon- 
go do vídeo. As linhas 145 a 170 con- 




trolam os movimentos do tanque. Uma 
explicação completa desse processo es- 
tá na página 31. 

As linhas 190 e 200 impedem que o 
tanque saia da área situada acima da li- 
nha (pontilhada) traçada pela linha 70, 
e impede que ele desapareça da tela. A 
posição de queda dos pára-quedistas é 
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escolhida aleatoriamente pelas linhas 90 
e 100. A linha 1 10 verifica se o tanque 
e um dos pára-quedistas ocupam a mes- 
ma locação de tela. Se isso ocorrer, uma 
nova posição de queda será escolhida, 
indo-se para a linha 90. As linhas 250 
e 260 escolhem um lugar para a mina. 
A linha 270 compara a posição da mina 



com a do tanque. Se eles estiverem no 
mesmo lugar, o tanque será exibido na 
tela e aparecerá uma mensagem de ex- 
plosão. Neste caso, o programa parará. 



50 LET PO-220 

60 CLS 

70 LOCATE 0,12: PRINT STRINGS < 39 

90 LET X-INT (RND { 1 ) "480 ) 

110 IF XOPO THEN VPOKE BASEIO) 

+X,ASC("0") ELSE GOTO 90 

120 VPOKE BASE (0) + PO , ASC ("#" ) 

130 LET LP-PO 

135 LET K$-INKEYS:IF KS-" THEN 

GOTO 135 
140 IF KS-CHRS(29) THEN LET PO- 
PO-l:G0T0 190 

150 IF KS-CHR$(28) THEN LET PO- 
PO+1:GOTO 210 

160 IF K$-CHR$|30) THEN LET PO- 
PO-40 :GOTO 220 

170 IF KS-CHHS(31) THEN LET PO- 
PO+40;GOTO 220 
180 GOTO 140 

190 I? (LP/40-INTUP/40) ) -0 THE 
N LET PO-LP 
200 GOTO 220 

210 IF (PO/40-INT (PO/40) ) -0 THE 
N LET PO-LP 

220 IF P0>479 OH PO<0 THEN PO-L 
P:GOTO 130 

230 VPOKE BASE(0)+LP,ASCÍ" ") 

240 VPOKE BASE (0) +PO. ASC ("*" ) 

250 LET M-INT (RND II) "480) 

270 IF M-PO THEN VPOKE BASE í 0) + 

P0,ASC(" "):L0CATE 5,4:PBINT "B 

OOM!!-VocS acertou numa mina":E 

ND 

310 GOTO 130 

O movimento do tanque pela tela é, 
como no caso anterior, controlado pe- 
las linhas 140 a 170, que verificam quais 
foram as teclas pressionadas. A linha 
220 tesla rF PO>479... a fim de restrin- 
gir o campo de ação do tanque à parte 
alta do meio do video. Agora, porém, 
a última locação de tela nessa posição 
é a 479; assim, O IF... impede que ela 
avance abaixo da linha pontilhada de- 
senhada pela linha 70. 

Também como no caso anterior a 
função STRINGS é empregada pela li- 
nha 70 para traçar a linha ao longo da 
tela. OSTRINGS09, '*—'*), como apa- 
rece na linha 70, diz simplesmente ao 
MSX para desenhar um cordão de 39 
travessões (veja na pág. anterior, abai- 
xo do programa para o TRS80 e o TRS 
Color, como fazer para obter dez pon- 
tos de interrogação). 

O lugar em que o pára-quedista cai 
é escolhido por um número na linha 90; 
a linha 1 10 mostra o pára-quedas na te- 
la se a posição escolhida já não estiver 
ocupada pelo tanque. Se estiver, a linha 
90 escolherá outra posição. Não se preo- 



cupe em entender, por enquanto, o co- 
mando VPOKE BASE, na linha 110. 
Ele serve para colocar um caractere co- 
mum (ou gráfico) em uma certa posição 
da tela, e é usado aqui por ser mais rá- 
pido que o LOCATE. 

A linha 250. escolhe a posição da mina 
escondida. A linha 270 verifica se o tan- 
que e a mina estão na mesma locação da 
tela. Sendo positivo, a mensagem de ex- 
plosão é exibida, e o programa termina.. 



50 LET TX - 20: LET TY - 10 
60 HOME 

70 FOR I - 1 TO 40 

74 HTAB li VTAB 13: PRINT 

78 NEXT I 

90 LET PX - INT ( RND (1) • 4 

0) + 1 

100 LET PY - INT ( RND (lí * 

12) + 1 

110 IF PX < > TX AND PY < > 
TY THEN HTAB PX : VTAB PY : PHIN 

T "O";: GOTO 120 

111 GOTO 90 

120 HTAB TX: VTAB TY : PRINT "| 

130 LET LX - TX: LET LY - TY 
140 LET K - PEEK ( - 163841 : 
POKE - 16368,0 

150 IF K - 208 THEN LET TY - 

TY - 1 

160 IF K - 204 THEN LET TY - 
TY + 1 

170 IF K - 218 THEN LET TX - 

TX - 1 

175 IF K - 216 THEN LET TX - 

TX + 1 

190 IF TX C 1 OR TX > 40 THEN 

LET TX - LX 
200 IF TY < 1 OR TY > 12 THEN 

LET TY - LY 
2 30 HTAB LX : VTAB LY : PRINT " 

240 HTAB TX: VTAB TY : PRINT "# 



LET «X - INT ( RND (1) 
1 

INT f RND (1) 



250 
40) 

260 LET MY 
12) + 1 

270 IF MX - TX AND MY - TY THE 
N HTAB MX: VTAB MY : PRINT " ": 
: HTAB 7: VTAB 7: PRINT "BOOM!! 
-Voce acertou uma mina";: GOTO 

330 

310 GOTO 130 

O movimento do tanque pela tela é 
controlado pelas linhas 140 a 170, que 
checam as teclas pressionadas (lembre- 
se da explicação da pág. 33). Os coman- 
dos PEEK e POKE da linha 1 40 são ne- 
cessários porque o Apple não tem uma 
função em BASIC, como o 1NKEVS, 
que serve para fazer a varredura do te- 
clado. A fim de restringir as manobras 
do tanque, as linhas 1 90 e 200 testam se 
as suas coordenadas (TX e TY) não ex 
cedem 40 c 12 posições, respectivamen- ' 
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le (margem direita da teia e posição de 
linha acima da linha pontilhada). 

As linhas 70 a 78 desenham uma li- 
nha pontilhada ao longo da tela. 

Um número aleatório nas linhas 90 
e 100 escolhe o lugar em que o pára 
quedista cai; a linha 110 exibe o pára 
quedas na tela se a posição escolhida ji 
não estiver ocupada pelo tanque. Se es< 
tiver, então a linha 90 escolherá uma ou- 
tra posição. Neste caso, a posição da 
na escondida é escolhida pelas linhas 250 
e 260. A linha 270 então verifica se o 
tanque e a mina estão na mesma loca- 
ção da tela. Se eles estiverem, será exi- 
bida uma mensagem de explosão, e o 
programa se deterá. 



Em jogos do tipo videogame, a con- 
tagem normalmente é aumentada quan- 
do as posições de tela de dois objetos são 
iguais. Os objetos podem ser um míssil 
e, o seu alvo, o "come-come" e um 
monstrinho, um tanque e um pára- 
quedista, um cavalo e o poste de chega- 
da, ou qualquer outra coisa. 

Assim, acrescente esias linhas ao seu 
programa, para ver como um mecanis- 
mo de contagem funciona na prática. 



D 



330 PRINT €295 , S; " PARAOUEDISTAS 



40 LET s-0 
280 IF px-tX AND py-ty THEN 

LET a-a-t-1 : GOTO 90 
330 PRINT AT 14.8;a;" PARAQUED 
ISTAS" 



fffà 



3 30 LOCATE 8.16: PRINT S:' 



270 IF M = PO THEN PRINT gPO," " 
PRINT § 

130 , "BOOM! ! ! VOCE ACERTOU UMA 1 
INA! " :G OTO 330 



270 IF mx-tx AND my-ty THEN 
PRINT AT ray.irix; " ! " : PRINT AT 8 
,3;*BOOM!!! - VOCE ACERTOU UMA 
MINA! " : GOTO 310 



270 IF M-PO THEN VPOKE BASE(0)+ 
PO. ASCI" " ) : LOCATE S,4:PRINT "B 
OOM!!-Voc6 acertou numa mina":G 
OTO 330 



40 LET S-0 

280 IF PX - TX AND PY ■ TY THE 
N LET S - S + 1: GOTO 90 
330 HTAB 12: VTAB 15: PRINT S: 
" PARAQUEDISTAS" : 

Você precisará substituir o STOP ou 
i END na linha 270 por GOTO 330. A li- 
i nha 270 deverá ficar assim, agora: 



270 IF MX - TX AND MY - TY THE 
N HTAB MX: VTAB MY : PRINT " "j 
: HTAB 7: VTAB 7: PRINT "BOOM!! 
-VOCE ACERTOU NUMA MINA" r : GOTO 
330 

A linha 280 è a mais importante. Ela 
checa se o tanque e o pára-quedista es- 
tão na mesma locação da tela. Se esti- 
verem, então o placar será incrementa- 
do de 1 ponto. 

A linha 40 volta o placar para zero, 
antes de o jogo começar, e a linha 330 
exibe a contagem. Ao modificar-se o fi- 
nal da linha 270, o computador exibe a 
contagem depois que a mina tiver sido 
detonada. 

O jogo funciona assim: o jogador re- 
cebe continuamente pára-quedistas pa- 
ra resgatar. Quando um é resgatado, ou- 
tro pára-quedista cai do céu. 

O jogo termina quando o tanque em 
movimento passa sobre a mina, provo- 
cando uma explosão. 



Acrescentar um dispositivo de regis- 
tro do recorde de pontos no jogo não 
é difícil. Tudo o que você precisa é de 
uma variável para armazenar o recorde, 
e algum modo de atualszá-la assim que 
este for quebrado. Fora isso, é necessá- 
ria ainda uma rotina de exibição do re- 
corde. Estas são as linhas que você de- 
ve acrescentar para aumentar a capaci- 
dade de registrar e exibir recordes no jo- 
go "Campo Minado": 



D 



30 LET HS-0 

350 IF S>HS THEN LET HS = S 
370 PRINT ê424. "RECORDE-";! 




30 LET ha=0 
350 IF 9>h3 THEN LET hs-3 
370 PRINT AT 18.8; "RECORDE- " 



30 LET HS-0 

350 IF S>HS THEN LET HS-S 
370 LOCATE 12,20:PRINT "He< 



DE 



30 LET HS-0 

350 IF S > HS THEN LET HS-S 
370 HTAB 12: VTAB 20: PRINT "R 
ecorde-" ; HS ; 

Primeiro o programa deve introdu- 
zir a variável contendo o recorde com 
um valor o mais baixo possível. Assim, 
a linha 30 iguala HS a zero. Quando o 
jogo termina, a linha 350 compara o úl- 
timo escore (S) com o recorde (HS). Se 
o escore for maior do que o recorde, en- 
tão HS será atualizada, recebendo o va- 
lor em S. Finalmente, a linha 370 exibe 
o recorde na tela. 

Pode-se pensar que essas linhas serão 
suficientes para incorporar sempre no- 
vos recordes ao jogo. Infelizmente isso 
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não é verdade. Sempre que o programa 
é rodado, o computador zera automa- 
ticamente o valor de HS registrado no 
jogo anterior, assim como os valores de 
todas as outras variáveis. Para manter 
o valor de HS entre uma partida e ou- 
tra do jogo, você precisa acrescentar li- 
nhas de programa para perguntar ao jo- 
gador se ele quer jogar outra vez, como 
as que foram usadas em jogos ante- 



a 



390 FOH F-l TO 1000:NEXT F 
400 PRINT 8130 

410 PRINT 6135, "OUTRA VEZÍS/N)? 

420 LET KS-INKEY:IF KS""" THEN 
GOTO 420 

430 IF KS-"S" THEN GOTO 40 
440 IF KS-"N" THEN END 
450 GOTO 420 



390 PAUSE 100 

400 PRINT AT 8.3; TAB 31 

410 PRINT AT 8,7;"Quer jogar 

e novo (S/N)?" 

420 LET aS-INKEYS 

430 IF aS-"a" THEN GOTO 40 

440 IF aS-"n" THEN STOP 

450 GOTO 420 



390 FOR F - 1 TO 1000: NEXT F 

400 FOR I - 1 TO 40: HTAB I: V 

TAB 7 : PRINT " " ; : NEXT I 

410 HTAB 11: VTAB 8: PRINT "Ou 

tra veí? (S/N) " ; 

420 GET AS 

430 IF AS - "S" THEN GOTO 40 
440 IF AS - "N" THEN END 
450 GOTO 420 

Isto é o que a linha extra faz: 
Cria-se um pequeno retardo de tem- 
po, introduzido pelo laço FOR.. .NEXT 
na linha 390, nos programas para todos 
□s computadores, exceto para o Spec- 
trum, que usa o comando PAUSE. A li- 
nha 400 limpa uma parte da tela, de mo- 
do a prepará-la para que a mensagem 



"MAIS UMA VEZ? (S/N)" seja im- 
pressa pela linha 410. 

A rotina que pergunta ao jogador se 
quer jogar de novo e colhe a sua respos- 
ta está nas linhas 410 a 450 (a linha 430 
reiniciará o programa na linha 40 se S 
for pressionado, e a linha 440 parará o 
programa se N for pressionado). A ii- 
nha 450 assegura que qualquer outra te- 
cia será ignorada. Como agora não exis- 
te necessidade de digitar RUN cada vez 
que você desejar jogar de novo, o valor 
de HS é preservado. 



COMO FAZER A CRONOMETRAGEM 



Do jeito que está, o jogo depende 
muito da sorte — o jogador simples- 
mente continua andando com o tanque, 
até encontrar uma mina escondida. 

Podemos, entretanto, introduzir no- 
vos elementos no jogo, transformando- 
o, se quisermos, em uma corrida con- 
tra o relógio. Um desses elementos po- 
deria ser, por exemplo, um dispositivo 
interno para marcar o tempo gasto em 
resgatar dez pára-quedistas. 



D 



410 PRINT TAB(10) ; "Outra vez? ( 
S/N) " 

420 LET KS-INKEYS;IF KS""" THEN 

GOTO 420 
430 IF KS-"S" OR KS-"3" THEN GO 
TO 40 

440 IF KS-"N" OR KS-"n" THEN EN 

D 

450 r-oTO 420 



300 IF S=10 THEN GOTO 320 
320 LET T=TIMER 

330 PRINT 6295 . S ; " PARAQUEDISTAS 



10 LET t-0 

80 POKE 23672.0: POKE 23673.0 
290 IF a<10 AND p*=tx AND py=t 
y THEN GOTO 90 
300 IF 9-10 THEN GOTO 320 
320 LET t-PEEK 23672+256*PEEK 
23673 

340 IF s-10 THEN PRINT AT 16. 
B ; "EM "it/50;" SEGUNDOS" 



300 IF S-10 THEN GOTO 320 
320 LET T=TIME 

340 IF S-10 THEN LOCATE 10,18:P 
RINT "em "iT/50;" segundos" 

O relógio existente em cada um dos 
tipos de micros acima corre durante to- 
do o tempo em que o computador esti- 
ver ligado. 

Para iniciar a cronometragem do jo- ■ 
go, você precisa apenas zerar uma va-| 
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riáve! de [empo. A linha que coloca em 
zero o cronometro é a linha 80 — você 
notará que para zerar o cronometro do 
TRS-Color e do MSX basta fazer Tl- 
MER = O. No Spectrum é mais com- 
plicado: a linha do programa zera duas 
locações específicas na memória de tra- 
balho do micro, através de POKE 23 
672,0 e POKE 23 673.0. 

O relógio é "parado" pela linha 320. 
Na verdade, ek não se detém; assim, vo- 
cê simplesmente instrui a máquina a 
"lembrar-se" do valor de tempo mar- 
cado em um determinado momento — 
quando dois objetos coincidem na tela, 
por exemplo. 

Nesses programas, a variável que 
contém a leitura do relógio é chamada 
de T — no MSX e no TRS-Color, isso 
é feito com a linha LET T = TIMER, 
e no Spectrum, com LET T = PEEK 
23672 + 256*PEEK 23673. 

O comando PEEK, como aprendere- 
mos em uma lição posterior, "olha" os 
valores numéricos contidos nas mesmas 
locações de memória zeradas no início 
do programa. 

A locação 23672, como qualquer lo- 
cação de memória em um micro de 8 
bits, pode conter números inteiros en- 
tre 0 e 255. A locação 23673 é incremen- 
tada de 1 , toda vez que esse número for 
excedido na locação 23672. 

Assim, para calcular o valor total do 
tempo em que o cronometro do Spec- 
trum esteve correndo, você deve multi- 



plicar o valor da locação 23673 por 256 
e acrescentar o valor armazenado na lo- 
cação 23672. Esta é a razão da expres- 
são numérica na linha 90, na versão pa- 
ra o Spectrum. 

O relógio deve ser parado quando o 
jogador tiver resgatado dez pára- 
quedistas; assim, a linha 300 checa se es- 
te valor foi atingido c salta para a linha 
320, que "pára" o cronometro. 

Se o total de resgatados for menor 
que dez, a linha 290 manda outro pá- 
ra-quedista para ser salvo peio jogador. 

A linha 340 só exibirá o tempo total 
de jogo se os dez pára-quedistas tiverem 
sido recuperados. A leitura do cronome- 
tro é dividida por 50 no programa. As- 
sim, o tempo exibido será expresso, 
aproximadamente, em segundos. 

QE 

80 LET T - 0 

290 IF S < 0 AND PX ■ TX AND P 
¥ - TY THEN GOTO 90 
300 IF S - 10 THEN GOTO 330 
340 IF S - 10 THEN HTAB 12: V 
TAB 16: PRINT "em ";T / 6;" seg 
undoa" ; 

A contagem de tempo na versão do 
programa para os microcomputadores 
da linha Apple é feita de forma inteira- 
mente diferente das outras máquinas, 
pois eles não têm relógio interno. 

Neste caso, definimos uma variável 
denominada TIME, que conterá o va- 



lor cronometrado, e uma variável T, que 
é incrementada de 1 a cada ciclo de var- 
redura do teclado. Esie é um truque 
muito fácil de ser implementado, e que 
serve para qualquer computador que 
não tenha relógio interno. 

A variável relógio é zerada na linha 
80 e recebe o valor do tempo gasto na 
linha 320. Para calcular o valor do tem- 
po em segundos, divide-se o conteúdo 
de T por 6. 



RECORDE DE TEMPO 



Da mesma forma que adicionamos o 
registro de recordes de pontos ao pro- 
grama anterior, poderíamos agora 
acrescentar um registro do recorde de 
tempo (no caso, o menor tempo gasto 
para salvar dez pára-quedistas). O prin- 
cípio geral de registro de recordes de 
tempo pode ser aplicado em muitos ou- 
tros jogos. 

Estas são as linhas a serem acrescen- 
tadas ao programa: 

D 

20 LET LT-999999 

360 IF T<LT AND S-10 THEN LET L 
T-T 

380 PRINT #452 , "MENOR TEMP0=";L 
T/50;" SEGUNDOS" 




20 LET lt-999999 
360 IF t<lt AND 3-10 THEN LET 
lt-t 

380 PRINT AT 21.4;"MEN0R TEMPO 
-"ilt/50i" SEGUNDOS" 

Hfi 

20 LET LT-99'P999! 

360 IF T<LT AND S-10 THEN LET L 
T-T 

380 LOCATE 6,22:PRINT "Melhor t 
empo: "itT/50j" segundos" 

£ 

20 LET LT - 99999 

360 IF S - 10 AND T < LT THEN 

LT-T 

380 HTAB 12: UTAB 21: PRINT "e 
m " ; LT / 6;" segundos" ; 

Inicialmente, devemos inicializar a 
variável usada para armazenar o menor 
tempo (LT). Esse valor, ao contrário do 
usado para introduzir a variável de re- 
corde de pontos, deve ser bem alio, no 
começo. A linha 20, incorporada ao pro- 
grama, iguala a variável LT a 999999. 

A linha 360 compara o último tem- 
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Existe algum limite máximo para □ pe- 
ríodo de medida de tempo? 

Sim. existe — embora normalmen- 
te seja ião longo que, na prática, não 
faz diferença. O relógio interno da 
maioria dos computadores domésticos 
corre a velocidades semelhantes. O fa- 
tor limitante, portanto, é o número má- 
ximo de impulsos de relógio que o com- 
putador pode armazenar. As linhas 
TRS-Color e MSX utilizam dois bytes; 
por isso podem contar até 65 535 im- 
pulsos de relógio, um a cada 1/50 de 
segundo. Isso dá uma capacidade má- 
xima de temporização de cerca de 22 
minutos. Já os micros da linha Spec- 
trum usam 3 bytes, o que lhes dá cer- 
ca de quatro dias de medida contínua 
de tempo! 

Como funciona o cronometro interno 
de um microcomputador? 

Todo microcomputador tem um dis- 
positivo interno para sincronização das 
3tividades da Unidade Central de Pro- 
cessamento, que é chamado de relógio 
ou clock. Esse relógio interno tem por 
função gerat pulsos elótricos repetidos 
a uma frequência constante para cada 
micro: essa frequência é chamada de 
velocidade de relógio, e seu valor va- 
ria conforme a marca do computador. 

Por exemplo, o Apple íl tem relógio 
de I MHz (megahertz, ou seja. um mi- 
lhão de "batidas" de relógio por segun- 
do); o TRS-BO tem 2.7 MHz, e assim 
por diante. Mas esse temporizador in- 
terno não pode ser aproveitado para 
medir o tempo como um verdadeiro 
cronâmetro. 



po de jogo registrado com o menor tem- 
po, armazenado em LT. Se aquele for 
menor ainda do que o último recorde de 
tempo, passará a ser o novo recorde, 
transferindo-se o seu valor para LT. 

Finalmente, a linha 380 exibe o recor- 
de de tempo, em segundos. O valor da 
variável LT é dividido por 50 ou 1 por 100, 
para que isto se torne possível. 



TEMPO DE REAÇÃ0 



Até agora, você viu como medir o 
tempo com auxilio do relógio interno do 
computador, dentro de um programa 
que checa, por exemplo, as posições de 
dois objetos na tela. 

Outra aplicação interessante para esse 
modo de aferição de tempo é utilizar o 
teclado para medir a velocidade de rea- 
ção do jogador a algum tipo de ação 
contrária. 

Você já sabe como utilizar a função 
INKEYS (em caso de dúvida, veja na 
pág. 28). Ela pode servir não só para 
controlar a movimentação de objetos na 
tela, mas também para iniciar e parar 
contagens de tempo. 

Eis aqui um jogo da variedade "rá- 
pído-no-gatilho" , que ilustra muito bem 
esse tipo de aplicação. O programa mos- 
tra na tela: "SAQUE!", e o jogador 
deve reagir o mais rapidamente que 
puder, pressionando qualquer tecla no 
teclado. 

20 CLS 

30 LET N=RND(900) 
40 FOR F-0 TO N 
50 NEXT F 

60 PRINT 6269, 'SAQUE! ! " 
70 TIMER-0 

80 IF INKEYS" " "THEN GOTO 80 

90 LET T=TIMER 

100 PRINT €269. "BANG! !! " 

110 FOR F-l TO 300 

120 NEXT F 

130 LET M-RND{25) 

140 IF T<M THEN PRINT 6264, "VOC 
E SOBREVIVEU" 

150 IF T>« THEN PRINT §266, "VOC 
E ESTA MORTO" 

160 IF T-M THEN PRINT 6264 , "VOC 
ES ESTÃO AMBOS MORTOS" 




20 CLS 

30 LET N-INT (RND*400)+1 
40 PAUSE n 

60 PRINT AT 11 ,14:"SAQUE! i " 
70 POKE 23672,0: POKE 23673,0 
80 IF INKEYS- " " THEN GOTO 80 
90 LET T*PEEK 236?2+256*PEEK 



100 PRINT AT 11,14; "BANG ! ! " 
110 PAUSE 50 

130 LET m-INT (RND«35)+1 

140 IF t<m THEN PRINT AT 11,9 

;"V0CE SOBREVIVEU" 

150 IF t>m THEN PRINT AT 11,9 

;"VOCE ESTA MORTO" 

160 IF t-m THEN PRINT AT 11,9 

; "VOCÊS ESTÃO AMBOS MORTOS" 

m 

20 CLS 

30 LET N-RND(1)*900 
40 FOR F-l TO N 
50 NEXT F 

60 LOCATE 17,11:PRINT "SAQUE!" 
70 TIME-0 

80 IF INKEYS-"" THEN 80 
90 LET T-TIME/6 

100 LOCATE 17,11:PRINT " BANG ! ! " 

110 FOR F-l TO 300 

120 NEXT F 

130 LET M-RNDU)*25 

140 IF TCM THEN LOCATE 13,11:PR 

INT "Você sobreviveu" 

150 IF T>M THEN LOCATE 13,11:PB 

INT "Você está morto" 

160 IF T-M THEN LOCATE 13,U:PR 

INT "Ambos morreram" 

EU 

20 HOME 

30 LET N - RND (1) - 2000 
40 FOR F - 1 TO N 
50 NEXT F 

60 HTAB 17: VTAB 13: PRINT "SA 
QUE ! I " 

70 LET T - 0 

80 X - PEEK < - 16384): POKE 
- 16368.0 

81 IF X ) 127 THEN GOTO 100 
85 LET T - T + 1 

90 GOTO 80 

100 HTAB 17: VTAB 13: PRINT "B 
ANG! ! " 

110 FOR F - 1 TO 1000 
120 NEXT F 

130 LET M - RND (1) * 20 
140 IF T < M THEN HTAB 12: VT 
AB 13: PRINT "VOCE SOBREVIVEU" 
150 IF T > M THEN HTAB 12: VT 
AB 13: PRINT "VOCE ESTA MORTO" 
160 IF T - M THEN HTAB 12: VT 
AB 13: PRINT "AMBOS MORRERAM " 

O programa é muito simples. Após 
a linha 20 ter limpado a tela, uma pau- 
sa aleatória é introduzida pelas linhas 30 
a 50. A linha 60 exibe "SAQUE!", eo 
cronômetro é acionado imediatamente 
pela linha 70. A linha 80 faz com que 
a máquina espere até que uma tecla se- 
ja pressionada. A linha é exatamente 
igual à que foi utilizada nos programas 
de jogos com controle pelo teclado (ve- 
ja pág. 28). 

Assim que qualquer tecla tenha sido 
pressionada, o programa continua pa- 
ra a linha 90, que pára efetivamente o 



cronômetro, armazenando o seu valor 
naquele momento na variável T. A linha 
100 exibe "BANG!!". 

Existe uma pausa introduzida pelas 
linhas 1 10 e 120 (a linha 1 10 somente no 
Spectrum) antes que um novo retardo 
inicial de tempo seja sorteado pelo pro- 
grama. Isto é feito pela linha 130 do 
programa. 

Em seguida, o computador sorteia 
uma variável aleatória M, que conterá 
o tempo levado pelo computador para 
"sacar" sua arma. As linhas 140 a 160 
comparam os valores T {do jogador) e 
M (da máquina) e declaram quem foi o 
vencedor do duelo (ou se ambos os due- 
listas morreram!). 
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ORGANIZE AS 
SUASCOLECÕES 



Seu caderninho de endereços está uma 
bagunça? Sua coleção de discos 
tem mais problemas do que discos? Eis 
aqui um programa que o ajudará A 
a colocar ordem nesse caos. ^^^0^ 



As pessoas que nunca utilizaram um 
computador pessoal sempre perguntam 
que tipo de aplicações domésticas ele po- 
deria ter. As respostas dadas, porém, ra- 
ramente são convincentes. 

Neste artigo apresentamos um pro- 
grama que pode ser útil para muitas pes- 
soas. Ele é um programa de banco de 
dados, ou seja, de organização e recu- 
peração de qualquer tipo de informação 
que possa ser fichada. E um sistema de 
arquivamento tão flexível que pode en- 
contrar dezenas de aplicações no seu 
dia-a-dia. Ele é muito útil, por exemplo, 
para armazenar os nomes e os endere- 
ços de amigos ou membros de um clu- 
be, ou tomar notas dos aniversários da 
família e dos amigos, ou armazenar de- 
talhes sobre suas coleçòes de moedas, 
borboletas, discos ou receitas, ou até 
mesmo organizar melhor a sua crescen- 
te coleçào de jogos de computador. 

O único limite para o que se pode fa- 
zer com esse programa está no tamanho 
da memória RAM do seu micro. Na 
maioria das vezes, o mínimo necessário 
para aplicações práticas é uma máqui- 
na com 32K. 

Seja como for, é necessário lembrar 
sempre o seguinte: como as memórias 
dos computadores domésticos são pe- 
quenas, em comparação com as das má- 
quinas profissionais, quanto menos vo- 
lumosa a informação a ser mantida pe- 
lo computador, melhor. 



Assim que você rodar o programa pe- 
la primeira vez, através do comando 
RUN, o menu principal será imediata- 
mente impresso na tela. Ele consiste nu- 
ma lista de coisas que se pode fazer com 
o arquivo, como "entrar um registro", 
por exemplo, ou "pesquisar o arquivo". 



Os computadores necessitam de de- 
talhes precisos do que se quer, antes de 
qualquer operação. Para abrir um no- 
vo arquivo é necessário primeiro dizer 
ao computador o número de registros 
' que se quer e a extensão máxima que ca- 



da registro pode ter. "ABRIR UM AR- 
QUIVO" é a opção 1 do menu princi- 
pal; assim, para selecioná-la, você deve 
pressionar a tecla I: as palavras "VO- 
CÊ TEM CERTEZA?" aparecerão na 
tela. Essa reação da máquina é uma pre- 
caução contra o pressionamento aciden- 
tal da tecla I, pois chamar a rotina dm, 
"ABRIR UM ARQUIVO" quando o 
sistema de arquivamento já estiver ar-* 
mazenando dados pode comprometer 
todo o trabalho. 

Se você tiver certeza de que quer abrir 
um novo arquivo, pressione S. 
o arquivo já estiver armazenand 
e você não deseja apagá-los. 
qualquer outra tecla, e o pro] 
tornará ao menu principal. 



0 TAMANHO DOS CAM"0S 



Uma vez que você lenha pressiona- 
do o S para continuar, o computador 
perguntará quantos campos você quer. 
"Campos" são os itens dc informação 
que você quer armazenados em cada re- 
gistro. Por exemplo, se você quer regis- 
trar dados sobre os seus amigos, pode- 
riam ser definidos os seguintes campos: 
nome, endereço, cidade e número do te- 
lefone — quatro ao todo. 

Este programa só permite um núme- 
ro máximo de oito campos para um re- 
gistro individual; do contrário, ele não 
poderia exibi-los, todos, na tela ao mes- 
mo tempo. Uma vez fornecido o núme- 
ro de campos a pergunta seguinte do 
computador será: "Qual o nome do 
campo 1?". (No exemplo acima, a res- 
posta poderia ser NOME.) 

A seguir, o programa pede a exten- 
são do primeiro campo, isto é, o núme- 
ro máximo de caracteres que ele pode 
conter. 

A extensão máxima para qualquer 
campo permitida no programa é de de- 
zenove caracteres. Isso significa que, se 
a informação que se quer arquivar — 
um endereço, por exemplo — não cou- 
ber nessa extensão, é preciso dividir o 
campo em duas ou mais partes. No ca- 
so de um endereço isso pode ser feito 
por meio da definição de campos sepa- 
rados para a rua, número da casa, ci- 
dade, código postal, etc. 




De posse da informação sobre o pri- 
meiro campo, o computador fará a mes- 
ma pergunta sobre o segundo campo, o 
terceiro, e assim por diante. Obviamen- 
te, quanto menores forem os nomes dos 
campos e os números dos caracteres em 
cada campo, mais registros poderão ser 
retidos no arquivo. 

Isto feito, o computador calculará 
para quantos registros ele tem espaço na 
memória. Esse número será exibido na 
tela. No programa para o TK-90X, vo- 
cê deve especificar quantos registros 
quer armazenar, evitando que o compu- 
tador gaste tempo excessivo gravando 
ou lendo longos arquivos da fita. 
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- MANTENHA EM ORDEM AS 



MEMÓRIA DISPONÍVEL 



SUAS C OLEÇOES 



- UM PROGRAMA PRATICO DE 



~ ESTABELEÇA UM NOVO ARQUIVO 
- REVEJA SEU ARQUIVO 



ARQUIVAMENTO DISPONÍVEL 



- COMO ARMAZENAR E 



- UTILIZE EFICIENTEMENTE A 



"RECUPERAR INFORMAÇÕES 




COMO ENTRAR UM REGISTRO 



Terminado o processo de criação de 
um novo arquivo, o programa trará de 
volta o menu principal, onde você deve 
selecionar a opção 2 (tecla 2), para ini- 
ciar a entrada da informação em seus re- 
gistros. 

No alto da leia. o computador man- 
terá uma contagem dos registros que vo- 
cê já entrou, juntamente com o espaço 
total disponível na memória. Essa linha 
de informação dirá, por exemplo: "Vo- 
cê utilizou 10 dos 100 registros". 

Logo abaixo disso-, na tela, serão exi- 



bidos os nomes dos campos. O cursor 
aparecerá na última linha do vídeo, de 
tal modo que tudo que você escrever pe- 
lo teclado será registrado no campo exi- 
bido. Lembre-se de manter a informa- 
ção digitada tão curta quanto possível 
e dentro da extensão máxima de carac- 
teres que você estabeleceu para cada 
campo. 

Quando você pressionar a tecla < EN- 
TER> ou < RETURN > , a informação 
digitada será impressa próxima ao nome 
do campo. A linha inferior da tela será 
limpa e ficará pronta para o próximo 
campo. Esse procedimento começa com 
o primeiro campo no alto da tela e pros- 



segue por toda a tela cada vez que você 
digita uma informação e pressiona 
< ENTER > ou < RETURN >. Quan- 
do você tiver entrado o último campo do 
registro, o computador irá para o pró- 
ximo registro a ser entrado. Se você pres- 
sionar a tecla < ENTER > ou < RE- 
TURN > novamente, antes de começar 
a digitar o primeiro campo, o computa- 
dor trará o menu principal de volta. 



EXAMINE OS REGISTROS 



ra examinar os registros que voce 
selecione a opção número 3 do 
jncipal, "VER REGISTROS", 
do a tecla 3. O primeiro re- 
,então exibido na tela — não 
:nte o primeiro que você in- 
o primeiro de acordo com 
létodo de seleçào do 

is de arranjo dos compu- 
muito pouco. Mas, de 
iodo geral, eles selecionam os registros 
em ordem alfabética através do primei- 
ro campo, o qual, em muitos casos, se- 
rá "NOME". Para fazer isso, o com- 
putador examina a primeira letra do pri- 
meiro campo de todos os registros e os 
ordena alfabeticamente. Se mais de um 
registro tiver a mesma inicial, ele os or- 
dena em função da segunda letra, e as- 
sim por diante. 

Quando o primeiro campo contiver 
algarismos, o computador selecionará 
sempre um deles antes de qualquer le- 
tra; mas prosseguirá com o mesmo mé- 
todo de ordenação, dígito por dígito, 
quando estiver decidindo entre núme- 
ros, além de olhar para o número como 
um todo. Em outras palavras, se você 
colocar os números de 1 a 100 no pri- 
meiro campo, por exemplo, o compu- 
tador ordenará em primeiro lugar os nú- 
meros l, 10, 11, 12, 13, 14, 15, 16, 17, 
18, 19 e 100 antes de movimentar-se pa- 
ra o 2, 20, 21 , ele. A maneira de se con- 
tornar esse problema é evitar o empre- 
go de números no primeiro campo ou 
entrar os números com zeros à esquer- 
da, como, por exemplo: 001, 002 ,..010, 
011 ... até 100. 

Quando, por outro lado, se utiliza 
uma mistura de letras maiúsculas e mi- 
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núsculas, o computador escolhe primei- 
ro as maiúsculas. Assim, "ABC Limi- 
tada" poderá ser antes de "Aarão e 
Companhia". Dependendo do que o ar- 
quivo de dados contiver, pode ser que 
o mais conveniente seja você digitar to- 
das as informações apenas em letras 
maiúsculas, para resolver o problema. 
Se o seu computador aceitar caracteres 
acentuados, você poderá ter problemas 
na ordenação, pois na codificação bra- 
sileira para os caracteres (adotada, por 
exemplo, para os micros da linha MSX) 
as letras acentuadas aparecem depois 
das minúsculas, na ordem alfabética. 

Quando você pedir para ver os regis- 
tros, aparecerão as seguintes opções: 

PROSSEGUE RETORNA MENU 

escritas na parte inferior da tela. Se vo- 
cê pressionar a tecla P, o computador 
exibirá o registro seguinte; se você pres- 
sionar o R várias vezes, ele se movimen- 
tará rapidamente através de todo o ar- 
quivo, registro por registro. 

Uma pressão na tecla R traz de volia 
à tela o registro anterior ao exibido. As- 
sim, usando apenas o P e o R, você po- 
de percorrer o arquivo, registro por re- 
gistro, para a frente e para trás. Já a te- 
cla M provoca o retorno ao menu prin- 
cipal, qualquer que seja o ponto onde 
você estiver no arquivo. 

Embaixo da primeira linha de opções 
aparecerá uma segunda com as seguin- 
tes alternativas: 

CORRIGE APAGA IMPRIME 

Essas funções não constam do atual 
programa e serão explicadas no próxi- 
mo artigo desta série. Portanto, nada 
acontecerá se você tentar usá-las na pre- 
sente versão do programa. 



ARMAZENE ARQUIVOS NA MEMÓRIA 



À medida que você for entrando da- 
dos nos registros do seu arquivo, eles se- 
rão armazenados na memoria principal 
(memória RAM) do computador, den- 
tro do limite máximo no número de re- 
gistros, calculado pelo programa. É ne- 
cessário, portanto, armazenar esse ar- 
quivo em fita magnética, se você quiser 
desligar o computador; caso contrário, 
perderá toda a informação digitada. 
Posteriormente, quando você quiser 
modificar ou acrescentar dados, consul- 
tar ou listar o arquivo, poderá carregar 
de volta o arquivo para a memória 
RAM do computador, lendo-o em fita. 

Na maioria das versões do programa 
listadas abaixo, o menu principal ofe- 
rece as duas mencionadas opções ao 
usuário: gravar ou carregar o arquivo de 



dados. A única exceção é a versão para 
os micros da linha Sinclair, que gravam 
o programa juntamente com os dados 
contidos em memória. 

Quando você quiser salvar o seu ar- 
quivo nos micros das linhas TRS-Color 
ou MSX, pressione a tecla 5 para sele- 
cionar a opção de armazenamento no 
menu principal, e o computador lhe pe- 
dirá que dê um nome qualquer ao arqui- 
vo. Uma vez que você tenha teclado o 
nome do arquivo e pressionado <RE- 
TURN> ou <ENTER>, o computa- 
dor pedirá que você posicione o grava- 
dor para a gravação, apertando as teclas 
KECORI» e PLAY, e pressionando = 
<ENTER> em seguida. Enquanto gra- 
va, o computador mantém você infor- 
mado. O tempo de gravação depende do 
número de registros a ser armazenado. 

Nos micros da linha Sinclair, a fun- 



ção de gravação é atívada de forma di- 
ferente da anterior. Neste caso. selecio- 
ne primeiro a opção 7 (SAÍDA) no me- 
nu principal. Em seguida, usando o co- 
mando SAVE normal, digitado direta- 
mente pelo teclado, acione o gravador e 
grave o programa, dando-lhe um nome 
adequado. Os dados serão gravados con- 
juntamente, conforme já foi explicado. 

Posteriormente, quando quiser con- 
sultar o arquivo, você deve (nos micros 
das linhas citadas acima) carregar o 
computador em dois estágios. Inicial- 
mente, é necessário carregar o progra- 
ma, utilizando o comando normal 
LOAD (ou CLOAD) de sua máquina. 
Em seguida, deve-se mandar executar o 
programa, acionando o comando RUN, 
e selecionar a opção 6 no menu princi- 
pal, "CARREGAR ARQUIVO". O 
computador pedirá então o nome do ar- 
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quívo desejado. Quando você tiver te- 
clado o nome do arquivo e pressionado 

< RETURN > ou <ENTER>, a má 
quina ordenará: "POSICIONE 0 
GRAVADOR E PRESSIONE <EN- 
TER> ". Feito isto, ele dirá novamen- 
te: "COLOQUE O GRAVADOR NA 
POSIÇÃO PLAY E PRESSIONE 

< ENTER > " . 

Assim que a fita cassete começar a 
rodar, o computador a examinará alé 
encontrar o arquivo que você deseja, o 
qual será carregado (o que poderá de- 
morar aigum lempo). Concluída a ope- 
ração, ele dirá que o arquivo foi carre- 
gado corretamente. Se o arquivo que vo- 
cê quiser não estiver na fita, o compu- 
tador testará todos os arquivos que en- 
contrar nela, até o final. De qualquer 
maneira, no final, o programa fará re- 
tornar o menu principal. Só entào você 
poderá selecionar a opção 6 novamente 
e procurar outro arquivo para carregar. 

Nos micros da linha Sinclair, como é 
o caso do TK-90X, os dados e o progra- 
ma principal são carregados juntos. Uma 
vez que tiver carregado o primeiro arqui- 
vo utilizando o comando LOAD padrão, 
poderá carregar outros arquivos por 
meio da opção 6 no menu principal. 

A versão do programa para compu- 
tadores da linha Apple também lem fun- 
ções de menu iguais às dos micros já 
considerados. A única diferença é que 
o programa utiliza arquivos em disque- 
te, para armazenamento e recuperação 
de dados, pois não funciona satisfato- 
riamente com fita cassete. 

Os programas listados contêm gran- 
des intervalos em seus números de linhas 
— da linha 2000 à linha 6000. 

Todavia, isso foi feito intencional- 
mente. Digite os programas exatamen- 
tecomo estão, pois as linhas que faltam 
serão utilizadas para incorporar as par- 
tes responsáveis pelas funções de modi- 
ficação, apagamento, impressão e cru- 
zamento de informações dos registros. 

Os detalhes dessas opções estão no 
próximo artigo desta série. 



20 PCLEAR1 : CLEAR 1 1000 : RSS-" P R 

MCAI" :BS-CHRS (12B) 

30 CLS:PRINT632.STRINGS<8,BS) ;" 

MENU" ; STRINGS t 3 . " "); "PRINCIPAL 

";STRINGS(8,BS) 

40 PRINT 6164, "1-ABRIR UM ARQTJI 
VO" 

50 PRINT #196 , " 2- ENTRAR COM UM 
REGISTRO" 

60 PRINT ê228."3-VER REGISTROS" 
70 PRINT 6260, "4-0PCAO DE PROCU 
RA- 
BO PRINT 6292."5-SALVAR ARQUIVO 



90 PRINT 6324 , "6-CARREGAR ARQUI 



120 INS-INKEYS:IF IN$<"l"OR INS 
>"7" THEN 120 

130 IF INS <>"1" AND INS<>"6" A 
ND R-0 AND INSO"7"THEN 120 
140 SOUND 30,1: CLS : IN- VAL ( INS) 
150 ON IN GOSUB 1000,2000.6000, 
5000.7000.8000,9000 
160 GOTO 30 

1000 PRINT 641 . "ABRIR UM ARQUIV 
0" : PRINT 6231. "VOCE TEM CERTEZA 
(S/N) ?" 

1010 IN$-INKEY$:IF INS<>"S" AND 

IN$<>"N' THEN 1010 
1020 IF INS<>"S"THEN RETURN 
1030 IF R>0 THEN RUN 9200 
1040 CLS : PRINT 641 , "ABRIR UM AR 
QUIVO" 

1050 PRINT 6385 . "NUMERO DE CAMP 
OSÍl-8)"; :INPUT A: A-ABStlNT(A) 

) 

1060 IF A>6 OR A<1 THEN 1050 
1070 DIM A (A) ,NS (Ai 
1080 PRINT 6384."":PRINT 696."" 
:F0R N-l TO A 

1090 PRINT : PRINT "NOME DO CAMPO" 
;N: "7" ; : LINEINPUT NS (N) :NS{N) -L 
EFTS(NStN) ,10) 

1100 PRINT "COMPRIMENTO DO CAMPO 
" ;N: : INPUT A (N) : A (N ) -ABS { INT (A t 
N) ) ) 

1110 IF A(N)>19 OR A (N) <1 THEN 
1100 

1120 TS-TS+AIN) 

1130 NEXT:R-INT(11000/<S+5*A))- 
1 : PRINT" NUMERO MÁXIMO DE RÉGIS 
TROS-" ;R 

1140 DIM A5(H.A):FOR 1=1 TO 200 
0 : NEXT : RETURN 
2000 G-0 

2010 IF NR-R THEN 2180 
2020 NR-NR+1 

2030 CLSiPHINT 60 . "VOCE USOU "; 
NR-1;" DOS ";R;" REGISTROS DISP 
ONIVEIS" 

2040 FOR N-l TO A : PRINT #32*N+3 
2,NS(N)i" '":PRINT 6448,""íPRIN 
T 6416, "" 

2050 PRINT 6416. "(ATE ";A(N);"C 
ARACTERES) ";:LINE INPUT AS (NR 
. N) 

2060 IF AS (NR . N) - " " AND N-l TH 
EN N=A:G=1 : GOTO 20B0 
2070 AS (NR . N) -LEFTS (AS (NR , N) , A ( 
N)):PRINT #32*N+45,AS(NR.N> 
2080 NEXT 

2090 IF G-l THEN 2160 

2100 C-NR:FOR F-l TO 150:NEXT:I 

F NR-1 THEN 2150 

2110 IF AS(C.1)>-AS(C-1.1) THEN 
2150 

2120 FOR N-l TO A:XS-AS(C.N) :AS 
(CN)-AS(C-l.N) :AS(C-1.N)'XS:NE 
XT:C-C-1 

2130 IF C-l THEN 2150 
2140 GOTO 2110 
2150 GOTO 2010 
2160 NR-NR-1 
2170 RETURN 



2180 CL53:PRINT #235." ARQUIVO 
CHEIO ";:FOR G-l TO 5: SCREEN 0 
,1: FOR F*l TO 500:NEXT 
2190 SCREEN 0,0:FOR F-l TO 500: 

NEXT F.G: RETURN 
3000 RETURN : REM LINHA TEMPORARI 



4000 RETURN 



REM LINHA TEMPORARI 



REM LINHA TEMPORARI 



5000 RETURN 

A 

6000 D-l 

6010 IF NR<1 THEN 6170 
6020 GOSUB 8500 

6030 PRINT #451 . "PROSSEGUE r 
ETORNA ffiENU CORRIGE a PAGA 

IMPRIME" ; 
6040 INS C INKEYS:IF INS-"" THEN 
6040 

6050 IN-INSTRU.RS$,INS) 

6060 ON IN GOTO 6080,6080.6090. 

6100,6110.6120,6130 

6070 GOTO 6030 

6080 D-D+l:GOTO 6140 

6090 D-D-l :G0T0 6140 

6100 RETURN 

6110 GOSUB 3000:GOTO 6020 
6120 GOSUB 4000:GOTO 6010 
6130 GOSUB 10000:GOTO 6030 
6140 IF D>NR THEN D-l 
6150 IF D<1 THEN D=NR 
6160 GOTO 6010 

6170 CLS3 : PRINT6233. " ARQUIVO V 
AZIO " ; 

6180 FOR G-l TO 5 : SCREEN 0 . 1 : FO 




COMO TORNAR UM PROGRAMA 
LONGO MAIS FÁCIL DE DIGITAR 

Digitar um programa longo escrito 
por outra pessoa pode ser uma tarefa 
bastante trabalhosa e desanimado- 
ra, mesmo para os mais persistentes. 
Mas você pode torná-la mais fácil, e 
gratificante, digitando apenas uma cur- 
ta seção de cada vez e testando-a em 
seguida. 

Alguns programas estão estrutura- 
dos em seções ou módulos mais ou 
menos independentes, tais como sub- 
rotinas, procedimentos e laços, mas se 
você não conseguir identificá-los digi- 
te apenas seções curtas de 20 ou 30 
linhas. 

Quando nada se sabe de programa- 
ção BASIC, a chance de errar uma li- 
nha e não perceber é relativamente 
grande, pois a mudança de apenas um 
pequeno sinal ou letra já é suficiente 
para impedir que o programa funcione 
corretamente. 

Eis aí um bom incentivo para você se- 
guir também o curso de programação 
BASIC de INPUT, de modo sistemáti- 
co e desde o começo. 
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R F-l TO 300:NEXT:SCREEN 0 , 0 : FO 
R F-l TO 300:NEXT F , G : RETURN 
7000 AUDI00N:MOTOR0N: CLS: PRINT 
ê65 . "POSICIONE 0 GRAVADOR E PRE 
SSIONE <ENTER>" ; 

7010 INS-INKEYS:IF INSOCHRSU3 
) THEN 7010 

7020 MOTOROFF : PRINT 6129,"COLOQ 
UE O GRAVADOR EM POSIÇÃO ' REC ' 
E PRESSIONE <ENTER>"; 
7030 IN$-INKEYS:IF INSOCHR$(13 
) THEN 7030 

7040 PRINT: INPUT" NOME DO ARQUI 
VO ";FIS 

7050 CLS6:PRINT 6232 , "GRAVANDO 
*;FI3; 

7060 MOTORON : FOR 1-1 TO 1000:NE 
XT 

7070 OPEN"0",#-l.FI$ 

7080 PRINT|-1,FI$,R,A.NR 

7090 FOR N = l TO A:PRINT#-1,NS(N 

) , A (N) :NEXT 

7100 C-l 

7110 IF AS(C.1)="" THEN 7140 
7120 FOR N-l TO A : PRINT|-1 . AS (C 
,N) : NEXT 

7130 C-C+1:GOTO 7110 

7140 CLOSE#-l : RETURN 

8000 CLS :PRINT670 , "VOCE TEM CER 

TEZA (S/N)?" 

8010 INS-INKEYS : IF IN$<>"S" AND 

INSO-N" THEN 8010 
8020 IF INS-"N" THEN RETURN 
8030 AUDI0ON:MOTORON:CLS:PRINT 
665 . "POSICIONE O GRAVADOR E PRE 
SSIONE <ENTER>" 

8040 INS-INKEYS : IF INSOCHR$(13 
) THEN 8040 

8050 MOTOROFF: PRINT 6129,'COLOQ 
UE O GRAVADOR NA POSIÇÃO * PLA 
¥ - E PRESSIONE <ENTER> " 
8060 INS-INKEY$:IF INS<>CHRS(13 
) THEN B060 

8070 IF R>0 THEN RUN 9210 

8080 INPUT " NOME DO ARQUIVO" :F 

IS 

6090 CLS7:PRINT 6231 . " PROCURAND 

O "í 

8100 OPEN "I" . í-1 . FIS 

6110 INPUT l-l.FIS 

8120 PRINT §231." ACHEI ":FIS; 

6130 INPUT I - 1 . R . A , NR 

8140 DIM ACA) , NS (A) , AS (R ■ A) 

8150 FOR N-l TO A : INPUTi-1 . NS (N 

) . A (N) : NEXT 

8160 C-l 

6170 IFEOF (-1) THEN 8200 

8180 FOR N-l TO A: INPUT i-l.ASÍ 

C.N) 

6190 NEXT: C=C+1:GOTO 8170 
8200 CLOSE |-1:RETURN 
8500 CLS : PRINT60 , "NUMERO DO REG 
ISTRO";D:FOR N-l TO A : PRINT «32 
*N+32.NS(N) ;" :";TAB(13) ;AS(D.N 
) : NEXT: RETURN 

9000 CLS4 : PRINT 670. "VOCE TEM 

CERTEZA (S/N)?": 
9010 INS-INKEYS :IF INSO"S" AND 

IN$<>"N" THEN 9010 
9020 IF INS-"N" THEN RETURN 
90 30 CLS : END 

9200 GOSUB 1040:GOTO 9220 



9210 GOSUB 8060 

9220 BS-CHRS (128) :HSS-"P RMCAI" 
:GOTO 30 

10000 PRINT 6451," CHEQUE IMP 
RESSORA cONT * ; 
10010 PRINT 6460." 

10020 INS-INKEYS:IF INS-"" THEN 
10020 

10030 IF INS<>"C" THEN RETURN 
10040 FOR Y-0 TO A+4 : FOR X-0 TO 

31 : P-PEEK (1024+X+Y*32) : IFP>95 
AND P<127 THEN P-P-64 
10050 IF P>0 AND P<27 THEN P-P+ 
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96 

10060 IF P-0 THEN P-32 

10070 PRINT *-2,CHRS(P) ; : NEXT : P 

RINT#-2,CHRS(13) ; : NEXT 

10080 FOR N-l TO 3 : PRINf#-2 . CHR 

S (13) :NEXT 

10090 RETURN 



5 LET R-0: LET U-0 : LET V-l 
10 BORDER V: PAPER V; INK 7: 
POKE 23609,20: POKE 23658,8 
100 CLS : PRINT INVERSE V ; AT 
V,10; "MENU" 
110 PRINT AT 5,6;"1-Abrir um a 
rquivo" ' ' TAB 6;"2-Entrar com 
um registro" TAB 6;"3-Ver reg 
istro3"''TAB 6,"4-Opcao de pro 
cura" ' ' TAB 6; "6-Carregar argui 
VO""TAB 6;"7-Salda";#V;TAB 6; 
"-SELECIONE 0PCAO-" 
500 LET IS-INKEYS : IF IS-"" 

THEN GOTO 500 
510 IF IS<"1" OR IS>"7" THEN 

GOTO 500 
520 IF R-U AND 1S<>"1" AND 
IS <>"6" AND IS<>"7" THEN 

GOTO 500 
530 SOUND .1,10: CLS : GOSUB ( 
CODE IS -48)"1000: GOTO 100 
1000 PRINT AT 7,8i"Voce tem cer 
teza?": PAUSE U: IF INKEYS- T 
HEN GOTO 1000 

1010 IF INKEYS<>"S" THEN RETUR 
N 

1020 PRINT INVERSE V ; AT 10,5;" 

CRIAR UM NOVO ARQUIVO " 
1030 INPUT AT 0.0; "Numero de ca 
mposd-8)? ";A: IF a<l OR a>8 T 
HEN GOTO 1030 

1040 DIM AIA); DIM B (A+V) : DIM 
NS(A,10); LET T-U : FOR N-V TO A 
1050 INPUT AT 0,0;"Nome do camp 
o "; (N) ;" ? ": LINE NS (N) 
1060 INPUT AT V,0;"Comprimento 
do campo " ; (N) ; " ? " ;A(N) : IF A 
(N)>50 THEN GOTO 1060 
1070 LET B(N)-T: LET T-T+A (N) : 
NEXT N: LET B (N) -T 
1080 PRINT AT 16.2;"Egpaco para 
";INT ( ( [PEEK 23730+256*PEEK 2 
3731)-29500)/T) ;" registros" 
1090 INPUT "Quantos registros? 
";R: DIMASÍR.T): RETURN 
2000 LET C-V 

2010 IF A$(C,V)-" - THEN GOTO 
2100 

2020 IF C-R THEN GOTO 2500 



2110 FOR N-V TO A: PRINT INVER 
SE V;AT V+N*2.U;NS(N) ; INVERSE 
0;AT V+N*2.12; FLASH V:"?": INP 
UT "(ate ";(A(N));" caracteres) 
", LINE AS(C.B(N)+V TO B(N+V)): 
PRINT AT V+2"N.12;AS(C,B(N)+V 
TO B (N+V) ) : NEXT N 
2120 FOR F-V TO 150: NEXT F: IF 

C-V THEN RETURN 
2130 LET N-C 

2140 IF AS(C)>-AS(C-V) THEN RE 
TURN 

2150 LET XS-ASÍC): LET AS(C)"AS 
(C-V): LET ASIC-Vl-XS: LET C-C- 
V: IF C-V THEN RETURN 
2160 GOTO 2140 

2500 CLS : PRINT FLASH 1 ; AT 10 
,2;"ARQUIVO CHEIO 
": FOR F-V TO 400: NEXT F: RE TU 
RN 

3000 LET D-V: IF AS(V,V)-" " TH 
EN RETURN 

3010 IF D-U THEN LET D-V 
3015 IF D-V-R THEN LET D-D-V 
3020 IF AS(D.V)-" " THEN LET D 
-D-V 

3030 GOSUB 9500 

3040 IF OP-V THEN LET D-D+V: G 
OTO 3010 

3050 IF OP-2 THEN LET D-D-V : C 
OTO 3010 

3060 IF OP-3 THEN RETURN 
3070 IF OP-4 THEN GOSUB 8000 
3080 IF OP-5 THEN LET MD-V : GO 
SUB 9000: IF D-U THEN RETURN 

3090 GOTO 3030 

4000 RETURN : REM LINHA TÊMPORA 
RIA 

5000 INPUT "Digite o nome do ar 
QUÍVO "; LINE QS: IF LEN QS<V 
OR LEN QS>10 THEN GOTO 5000 
5010 SAVE QS LINE 10: RETURN 
6000 PRINT AT 8,U;"Digite o no» 
e do arquivo a sercarregado . 
ou somente <ENTER> para carrega 
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6010 INPUT LINE XS: IF LEN XS> 
10 THEN GOTO 6010 

6020 PRINT AT 1 3 . U ; "PRESSIONE P 
LAY NO GRAVADOR": LOAD XS 
7000 PRINT AT 10,B;"Voce tem ce 
rteza?": IF INKEYS-"" THEN GOT 
O 7000 

7010 IF INKEYS<>"S" THEN RETUR 
N 

7020 RAND USR U 

8000 RETURN : REM LINHA TÊMPORA 
RIA 

9000 RETURN : REM LINHA TÊMPORA 
RIA 

9500 PRINT AT U , U ; "Registro num 
ero ":D;" ": FOR N-V TO A: PRI 
NT INVERSE V;AT V+2*N , U ;NS (N) ; 

INVERSE U ; TAB 1 2 ; AS (D. B (N) +V T 
O B (N+V) ) : NEXT N 
9510 PRINT INVERSE V;AT 20, U;" 
P (rosaegue) R (e torna) M(enu) 
E(menda) A(paga) Idnprim 
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9520 IF INKE YS= " " THEN GOTO 95 
20 

9530 LET VS-INKEYS: IF MS'"!' T 
HEN COPY : LPRINT : LPHINT : L 
PRINT ; GOTO 9520 
9540 LET OP-U: IF VS-"P" THEN 
LET OP-V: LET E10-V 



9550 IF VS-" 
LET MO--V 
9560 IF VS-" 
9570 IF V5-" 
9580 IF VS-" 



THEN LET OP-2: 

THEN LET OP-3 

THEN LET OP-4 

THEN LET OP-5 



10 KEYOFF : HOTOHOFF 

20 CLS:CLEAR:RS-"P RMCAI" 

30 CLStLOCATE 5,1: PBINT" M E N 



U PRINCIPAL" 

40 LOCATE 9.5: PRINT" 1 : -ABRIR UM 

ARQUIVO" 
50 LOCATE 9.7:PRINT"2:-ENTRADA 
DE REGISTROS" 

60 LOCATE 9.9:PRINT"3;-LISTAR R 
EGISTROS" 

70 LOCATE 9,11:PRINT"4:-BUSCA D 
E INFORMAÇÕES" 

80 LOCATE 9,13: PRINT" 5 : -GRAVAR 
UM ARQUIVO" 

90 LOCATE 9,15: PRINT" 6 : -CARREGA 
H UM ARQUIVO" 

100 LOCATE 9.17:PRINT"7:-FIM DE 

PROGRAMA" 
110 LOCATE 14,19:PRINT"OPÇAO: " 

120 INS-INKEYS:IF INS<" 1 "ORINS> 
"7"THEN120 

130 IFINS<>"l"ANDINSO"6"ANDINS 
O " 7 "ANDR-0THEN 120 




140 PRINTCHRS17) : CLS : IN-VAL ( IN 

S) 

150 ON IN GOSUB 1000,2000.6000. 

5000.7000.8000,9000 

160 GOTO 30 

1000 LOCATE 7.0: PRINT"MONTAR UM 
NOVO ARQUIVO" : LOCATE 7,14:PRIN 

T"VocS tem certeza (S/N)?"; 

1010 INS-INKEYS : IFINSO"S"ANDIN 

$0"N"THEN 1010 

1020 IFINSO"S"THEN RETURN 

1030 IFR>0THEN RUN 9200 

1040 CLS: LOCATE 7,0: PRINT"MONTA 

H UM NOVO ARQUIVO" 

1050 LOCATE 4,2: PRINT "Número de 
campos (1-8) " : : INPUT A:A-ABS< 

INT(A) ) 

1060 IF A>8 OR A<1 THEN1050 
1070 DIM A (A) ,NS (A) 
1080 LOCATE 0 , 6 : FOR N-1TOA 
1090 PRINT : PHINT H Nome do campo 
";N:"7 "; : LINEINPUTNS (N) :NS(N)- 
LEFTSÍNS(N) ,10) 

1100 PRINT"Tamanho do campo ";N 
; :INPUTA(N) :A(N) -ABS ( INT {A (N) > ) 
1110 IFA<N)>25ORA(N)<lTHEN1100 
1120 TS-TS+A(N) 

1130 NEXT:R-INT(3000/(TS+3*A)) : 
PRINT : PRINT" Número máximo de re 



2000 G-0 

2010 IFNR-RTHEN2190 
2020 NR-NR+1 

2030 CLS : PRINTNR-1 ; " de ";R;" r 

2040 FORN-1TOA:LOCATEO,N*2+2:PR 
INTNS (N) i " : " :LOCATE0, 22:PRINTC 
HRS(5) ; :LOCATE0,23:PRINTCHRS (5) 

2050 LOCATEO,23:PRINT"Até ":A(N 
) ; " caracteres" ; 

2060 LOCATE 0 , 21 : PRINTCHRS (211 í : 
LINEINPUTAS (NR , N) 

2070 IFAS (NR . N) "ANDN- 1THENN-A 
:G-1 :GOTO209O 

2080 AS(NR.NI-LEFTS(AS(NR.N) .A( 
NI ) :LOCATE12,N*2+2:PRINTAS(NR,N 

2090 NEXT 

2100 IFG-1THEN2170 

2110 C-NR:FORF-1T0500:NEXT:IFNR 

-1THEN2160 

2120 IFAS(C,1)>-AS(C-1,1)THEN21 
60 

2130 F0RN-1T0A:SHAPAS(C.N) ,AS(C 

-1,N) :NEXT:C-C-1 

2140 IFC-1THEN2160 

2150 GOTO2120 

2160 GOTO2010 

2170 NR-NR-1 

2180 RETURN 

2190 CLS:LOCATE10,15:PRINT"ARQU 



IVO CHEIO 
2200 RETURN 
3000 RETURN 
k 

4000 RETURN 
A 

5000 RETURN 
A 

6000 D-l 



FORF-lTO1000:NEXT 



REM LINHA TEMPORARI 
REM LINHA TEMPORARI 
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2 APLICAÇÕES 2 



■MIM 



6010 IFNIK1THEN6170 
6020 GOSUB8500 

6030 LOCATE3,22:PRINT"[P]roaseg 
ue [Rletorna [M]enu [Cio 
rrige [Alpaga ( I Jmpr ime" 

6040 INS-INKEYS:1FINS-""THEN604 

0 

6050 IN-INSTR(1,RS.INS) 

6060 ON IN GOTO 6080,6090,6090. 

6100.6110,6120,6130 

6070 GOT06030 

6080 D-D+l :COTO6140 

6090 D-D-l :GOTO6140 

6100 RETURN 

6110 GOSUB3000:GOTO6020 
6120 GQSUB4000:GOTO6010 
6130 GOSUB10000:GOTO6020 
6140 IFD>NRTHEND-1 
6150 IFD<1THEND-NB 
6160 GOTO 6010 

6170 CLS:LOCATE10,15:PRINT"ARQU 
IVO VAZIO!" 

6180 FORF- 1TO5O0 : NEXT : RETURN 
7000 MOTOR ! CLS : LOCATE0 , 5 : PRINT" 
Posicione a fita e tecle [retur 
n]" 

7010 INS-INKEYS:IFINS<>CHRS(13) 
THEN701O 

7020 MOTOR : PRINT : PRINT: PB I NT "Co 
logue o gravador em modo de gra 
vaçâo e pressione [return]" 
7030 INS-INKEYS : IFINSOCHRS (13) 
THEN7030 

7040 PRINT:INPUT"Noine do arquiv 

o ";FLS : FS-"CAS: "+FLS 

7050 LOCATElQ,22:PRINT"Gravando 

7060 MOTOR:FORI-lTO1000:NEXT 
7070 OPEN FLS FOR OUTPUT A3#l 
7080 PRINT #1 , FLS ; " . " iR.A.NR 
7090 FORN=ilTOA:PRINT»l,NS(N) ; " , 
";A(N) : NEXT 
7100 C-l 

7110 IFAS(C.1)-""THEN?140 
7120 FOHN-lTOA;PRINT*l,AS(C,Nj 
NEXT 

7130 C-C+l :GOTO7110 
7140 CLOSE I 1 : RETURN 
8000 CLS : LOCATE1 0 .15: PBINT" Você 

8010 INS-INKEYS:IFINSO"S"ANDIN 

SO"N"THEN8010 

8020 IFINS-"N"THENRETURN 

8030 MOTOR:CLS:LOCATE0,3:PRINT" 

Posicione a fita e tecle [retur 

8040 INS-INKEY$:IFINSOCHRS ( 13) 
THEN8040 

8050 MOTOR : LOCATE0 , 7 : PRINT" Col o 

que o gravador em modo de repro 

duçag e tecle (return)" 

8060 IN$-INKEYS:IFINSOCHRSÍ13) 

THEN8060 

8070 IFR>0THENRUN9210 
8080 PRINT: INPUT"Nome do arquiv 
O ":FLS:FS-"CAS:"+FLS 0 \ 

8090 LOCATE10,22:PRINT"Procuran 
do. . . " 

8100 OPEN FS FOR INPUT AS#1 
8110 INPUT ( 1 . FLS 
, 8120 CLS:LOCATE 10 . 15 : PRINT" Ach 

ei ":FLS 



8130 INPUT»1.R,A,NR 

8140 DIMA{A) .NS (A) . AS (R.A) 

8150 FORN-lTOA:INPUT|l,NS!N) ,AI 

N) : NEXT 

8160 C-l 

8170 IFEOF tl) THEN8200 

81B0 FORN-1TOA: INPUT#1 . AS (C,N) 

8190 NEXT : C-C*l : G0TO81 70 

8200 CLOEEtl ■ RETURN 

8500 CLS : PRINT" Número do regiat 

TO ->" ;D: FORN-1TOA: LOCATE0 , N*2+ 

2:PRINTNS (N) ; " : " i : LOCATE1 3 : PRI 

NTAS(D.N) : NEXT : RETURN 

9000 CLS : LOCATE10 . 15 : PRINT"Voc8 

tem certeza? (S/N) " 
9010 INS-INKEYS : IFINSO " S" ANDIN 
SO"N"THEN9010 
9020 IFNS-"N" THENRETURN 
9030 CLS ! END 
9200 GOSUB1040:GOTO9220 
9210 GOSUB8080 
9220 RS-"P RMCAI" 
10000 CLS : LOCATE10 .15: PRINT"CHE 
QUE A IM PRESO RA" 

10010 PBINT : LOCATE1 2 : PRINT" AL IN 
HE O PAPEL" 

10020 INS-INKEYS : IFINKES* " "THEN 
10020 

10040 LPRINT : L PRI NT "Re o l s t r o nú 
mero "sD 

10050 FORX-1TOA: LPRINT : LPRINT N 

S(X) ;" :" :AS(D.X) : NEXT 

10060 LPRINT : LPRINT : LPRINT : LPRI 

NT 

10070 CLS : RETURN 



si 



20 TEXT : CLEAR : DS - CHRS [4 

) 

25 ONERR GOTO 11000 

30 HOME : VTAB 1: HTAB 6: INVE 

RSE : PBINT "MENU PRI 

N C I P A L " : NORMAL 

40 VTAB 5: HTAB 10: PRINT "1 

ABRIR UM ARQUIVO" 

50 PRINT : HTAB 10: PRINT "2 

ENTRADA DE REGISTROS" 

60 PRINT ; HTAB 10: PRINT "3 

LISTAR REGISTROS" 

70 PRINT : HTAB 10: PRINT "4 

BUSCA DE INFORMAÇÕES" 

80 PRINT : HTAB 10: PRINT n 5 

GRAVAR 0 ARQUIVO" 

90 PRINT .HTAB 10: PBINT "6 

CARREGAR UM ARQUIVO" 

100 PRINT ! HTAB 10: PRINT "7: 

-FIM DE PROCRAMA" 

110 VTAB 20: HTAB 15: PRINT "O 

pcAifrT /OlOJI 

120 GET tyF V"^ 

130 IF IN9 <Tl'l0R INS > "7" 

THEN ) ' a> \ J 

135 IF R - 0 AND INS < > "1" 

AND INS < > "6" AND INS < > * 

7" THEN 110 

140 PRINT CBR$ 17) : HOME : IN 

- VAL <INS) 

150 ON IN GOSUB 1000.2000.6000 
,5000 , 7000 , 8000,6520 

160 GOTO 3%,/V y, 
1000 HTAB 8: INVERSE : PRINT " 
MONTAR UM NOVO ARQUIVO ": VTAB 



15: HTAB 10: PRINT " VOCE CONF 
IRMA? (S/N) "; 
1005 NORMAL 

1010 GET IN$: IF INS < > "S" 
AND INS < > "N" THEN 1010 
1020 ÍF INS < > "S" THEN RET 
URN 

1030 IF R > 0 THEN CLEAR ! DS 
- CHRS [4):IN - 1: HOME : GOTO 
150 

1040 HOME : HTAB 8: INVERSE : 
PRINT " MONTAR UM NOVO AKQUIVO 
" : NORMAL 

1050 VTAB 3: HTAB S: PRINT "NU 
MERO DE CAMPOS (1-8): INPUT 
A 

1060 IF A > 8 OR A < 1 THEN 10 
50 

1070 DIM A (A) .NSÍA) 
1080 VTAB 7: FOB N - 1 TO A 
1090 PRINT "NOME DO CAMPO ";N; 
" ";; INPUT NS(N!:NS<N) - LEFT 
S (NS (N) , 10) 

1100 PRINT "TAMANHO DO CAMPO " 
:N|" " ! : INPUT A (N) :A(N) = ABS 

( INT (A(NÍ)l 
1110 IF A (N) < 1 OR A (N) > 25 
THEN 1100 

1120 TS - TS + AINÍ : PRINT 
1130 NEXT :R - INT (( FRE 10) 
- 5000) / (TS + 2 * A) ) : IF R 
> 4000 THEN R - 4000 
1135 R - 3: REM B ET IRAR ESTA L 
INHA! í!!!!!!!!!!!!!********""* 

1140 PBINT : PBINT "NUMERO MAX 

IMO DE REGISTROS: ";R 

1150 DIM AS(R.A): FOR I - 1 TO 

2000: NEXT : RETURN 
2000 G - 0 

2010 IF NR =* R THEN 2180: REM 

CHECK GOTO 
2020 NR - NR + 1 

2030 HOME : PRINT NR - li" DE 
";B;" REGISTROS EM USO" 
2040 FOR N - 1 TO A: VTAB N * 
2 + 2 : PRINT NS (N) ; " : " : VTAB 23 
: CALL - 958 

2050 VTAB 24: PRINT "ATE ";A(N 
);" CARACTERES" : : VTAB 23: HTAB 

1 : INPUT AS (NR.N) 
2060 IF AS (NR . N) - " AND N - 
1 THEN NR - NR - 1 : BETURN 
2070 AS (NR . N) - LEFTS (AS (NR . N 
),A(N)): VTAB N * 2 + 2: HTAB 1 
3: PRINT AS (NR , N) 
2080 NEXT 

2090 IF AS(NR,1) > - AS (NR - 
1,1) THEN 2150 

2100 FOR C - NB TO 2 STEP - 1 
2110 FOR N - 1 TO A:XS - AS(C. 
N):AS(C,N> - AS(C - 1,N):AS(C - 
l.N) - XS: NEXT 
*9120 NEXT 

' 2150 FOR F - 1 TO 1000: NEXT : 
QOTO 2010 
2180 VTAB 3: HTAB 1: CALL - 9 
58: VTAB 15: HTAB 10: FLASH : P 
RINT " ARQUIVO CHEIO! " 
2190 PRINT CHRS (7): FOR F ■ 
1 TO 10O0: NEXT : PRINT CHRS ( 
7) : RETURN 

3000 RETURN : REM LINHA TEMPO 



2 APLICAÇÕES 2 



RARIA 

4000 RETURN : BEM LINHA TEMPO 
RARIA 

5000 RETURN : REM LINHA TEMPO 
RARIA 

6000 IF NR < 1 THEN VTAB IS: 
HTAB 12: FLASH : PRINT " ARQUIV 
O VAZIO! FOR F - 1 TO 1000: 

NEXT : RETURN 
6010 D - 1 

6020 POKE 35,22: VTAB 23: INVE 
RSE : HTAB 4: PRINT "P";: HTAB 
18: PRINT "R* ; : HTAB 32: PRINT 
"M* 

6030 VTAB 24: HTAB 8: PRINT "C 

";: HTAB 20: PRINT "A";: HTAB 3 

0: PRINT "I": : NORMAL 

6040 VTAB 23: HTAR l : PRINT "R 

OSSEGUE";: HTAB 19: Pf:TNT "ETOR 

NA":: HTAB 33: PRINT "ENU" 

6050 VTAB 24: HTAB 9: PRINT "O 

RRIGE" ; : HTAB 21: PRINT "PAGA": 

: HTAB 31: PRINT "MPRIME" ; 

6060 GOSUB 6500 

6070 GET INS 

6080 IF INS - CHRS (32) OR IN 
3 - "P" THEN D - D + 1: IF D > 
NR THEN D - 1 

6090 IF INS - "R" THEN D - D - 

l: IF D < 1 THEN D - NR 
6100 IF INS < > "I" AND INS < 
> "A" AND INS < > "C" AND IN 
S < > "M" THEN 6060 
6110 POKE 35.24 

6115 IF INS - "M" THEN RETURN 
6120 IF INS - "I" THEN GOSUB 



10000: GOTO 6020 

6130 IF INS - "A" THEN GOSUB 

4000: GOTO 6020 

6140 IF INS - "C" THEN GOSUB 

3000: GOTO 6020 
6150 GOTO 6060 

6500 VTAB 1 : HTAB 1 : CALL - 9 
58: PRINT "NUMERO DO REGISTRO - 
>";: INVERSE : PRINT D: NORMAL 
6510 FOR I - 1 TO A: VTAB I * 
2+2: PRINT NS(I);: HTAB 13: P 
RINT AS(D,I): NEXT : RETURN 
6520 END 

7000 HOME : VTAB 10: HTAB 10: 

PRINT "GRAVAR O ARQUIVO" 

7005 PRINT : PRINT : HTAB 5: I 

NPUT "NOME DO ARQUIVO ->";ARS 

7010 PRINT : HTAB 5: PRINT "CO 

NFERE 7 " : : GET INS 

7015 IF INS < > "S" THEN RET 

URN 

7020 PRINT : PRINT DS;"OFEN";A 
RS: PRINT DS ; "DELETE" :ARS 
7030 PRINT DS:"OPEN":ARS 
7040 PRINT DS : "WRITE" ; ARS 
7050 PRINT R : PRINT A: PRINT N 
R 

7055 FOR I - 1 TO A: PRINT NS ( 

I) : PRINT A(I) : NEXT 

7060 FOR J - 1 TO NR 

7070 FOR I - 1 TO A 

7080 PRINT AS(J.I): NEXT : NEX 

T 

7090 PRINT DS:"CLOSE";ARS 
7100 RETURN 

8000 CLEAR :DS - CHRS (4) 
8010 VTAB 10: HTAB 10: PRINT " 



CARREGAR DADOS" 

6020 PRINT : HTAB 5: INPUT "NO 
ME DO ARQUIVO ->" ;ARS 
8025 HTAB 5: PRINT "CONFERE ? 
" ; : GET INS 

8027 IF INS < > "S" THEN GOT 
O 30 

8030 PRINT DS ; "OPEN" :ARS 
8040 PRINT DS ; "READ" : ARS 
8050 INPUT R , A , NR: DIM AS(R.A) 

8060 FOR I - 1 TO A: INPUT NS ( 

I) ,A(I) : NEXT 

8066 FOR J - 1 TO NR 

8069 FOR I = 1 TO A 

8071 INPUT ASÍJ.I): NEXT : NEX 

T 

B073 PRINT DS:"CLOSE";ARS 
8078 GOTO 30 

10000 HOME : VTAB 23: HTAB 9: 
PRINT " CHEQUE A IMPRESSORA! " 
10010 HTAB 12: PRINT " ALINHE 
O PAPEL "; 
10015 GET INS 

10020 VTAB 1: PRINT : PRINT C 
HRS (4) i"PR*l" 

10030 PRINT : PRINT "REGISTRO 
NUMERO ";D 

10040 FOR X - 1 TO A: PRINT : 
PRINT NSÓU:" :"l TAB ( 15);AS<C 
,X) : NEXT 

10050 PRINT : PRINT : PRINT : 
PRINT : PRINT 

10055 PRINT CHRS t4);"PH|0" 

10060 HOME : RETURN 

11000 PRINT DS;"CL05E": GOTO 2 

0 



O QUE E UMA BASE DE DADOS.' 



O programa de arquivamento de 
dados listado neste artigo e no pró- 
ximo pode ser utilizado em muitos ti- 
pos de aplicações, pois o usuário tem 
a oportunidade de definir, ele mes- 
mo, os campos ou diferentes itens de 
informação que constituirão a ficha 
de cadastramento a ser usada. 

Em computação, esse tipo de sis- 
tema flexível, ou programável pelo 
usuário final, è comumente chama- 
do de sistema gerenciador de base dc 
dados: além de possuir as funções es- 
senciais de qualquer sistema de cadas- 
tramento. esse sistema também tem 
um módulo de criação do lay out do 
arquivo, conforme o uso que ele terá. 

Uma base de dados, na definição 
mais estrita do termo, é um conjun- 
to de arquivos de computador, que 
tem a mesma finalidade do ponto de 
vista do armazenamento e recupera- 
ção de informações. Normalmente, 
portanto, uma dessas bases inclui 
mais de um arquivo: por exemplo, 
em uma base de dados bibliográficos 
(artigos de revistas), lenamos o arqui- 
vo-mestre, ou arquivo-tombo, o ar- 



quivo de índice por autores, o arqui- 
vo de índice por assuntos, o arquivo 
de nomes de revistas, e assim por 
diante. Todos eles podem ser inter- 
relacionados por meio de um ou mais 
eampOS em comum (por exemplo, o 
número de lombo do artigo, e o có- 
digo da revistei). 

Entretanto, podemos considerar, 
de forma simplificada, que uma ba- 
se de dados com apenas um arquivo 
também pode cair nessa definição. É 
o caso do programa listado em BA- 
SIC neste artigo. 

A única condição essencial para 
que ele continue sendo chamado de 
um sistema gerenciador de base de 
dados é que o usuário possa definir 
livremente os campos de informação 
que quer ter em cada ficha (desde 
que, é claro, sejam respeitados os li- 
mites intrínsecos do programa). 

MODEL OS DE BA SES DE DA DOS 

Existem diversas formas de orga- 
nização da informação em uma base 
de dados. Normalmente, todas as 



formas têm pelo menos uma carac- 
terística em comum: a subdivisão do 
arquivo em registros individuais. 

A forma pela qual esses registros 
(ou os campos do registro) são orga- 
nizados é que difere de caso para 
caso. Na verdade, a organização de 
uma base de dados é ditada pelo 
programa aplicativo que a controla. 

A forma de organização mais co- 
mum para uma base de dados é a 
chamada estrutura relacional. Ela é 
bastante fácil de entender e muito in- 
tuitiva, pois se equivale a uma tabe- 
la, ou planilha de dupla entrada, com 
linhas e colunas. Essa tabele é cha- 
mada de relação, dai o nome da es- 
trutura. Como você já deve ter per- 
cebido, o programa listado neste ar- 
tigo é uma base de dados relacional. 

Na estrutura relacional, as linhas 
da tabela correspondem sempre aos 
registros (por exemplo, cada livro de 
uma biblioteca), ao passo que as co- 
lunas correspondem aos diversos 
campos (tais como o nome do autor, 
o título da revista, o ano de publica- 
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Universalmente adotados, os sinais de 
trânsito servem para orientar o 
fluxo do tráfego. No mundo dos micros, 
os comandos GOTO e GOSUB 
cumprem uma função semelhante. 



Uma das instruções mais importantes 
em programação BASIC é o GOTO ("vá 
para", em inglês). Sua função é alterar 
o fluxo de execução de um programa, de 
modo que, ao invés de simplesmente exe- 
cutar as linhas do programa em ordem 
linear, o computador salta para a linha 
indicada na declaração GOTO. 

Embora possa aparecer na tela como 
duas palavras separadas, GOTO nor- 



malmente é digitada como uma só ex- 
pressão. Nos micros da linha Sinclair, 
você pressiona a tecla marcada GOTO 
para entrar a instrução no computador. 
Em outros tipos de micros, você digita 
GOTO sem o espaço entre GO e TO. 

A palavra GOTO deve ser sempre se- 
guida pelo número da linha para onde 
você quer que o programa salte, como 
no exemplo abaixo: 



QDS 

30 GOTO 125 



Em alguns computadores, como os 
da linha Sinclair, em vez de um núme- 
ro, podemos ter uma expressão ou equa- 
ção de cálculo (inclusive o nome de uma 
variável), que assume um valor numé- 
rico quando o programa é rodado. 
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■ 
■ 


GOTO E GOSUB NA PRÁTICA 
PROGRAMAS PARA CALCULO, 


■ 


DESVIOS EM UM PROGRAMA 
UTILIZAÇÃO EM DESVIOS 




ADIVINHAÇÃO DE NOMES 




COMPLEXOS 




E JOGOS DE DADOS 


■ 


COMO ACELERAR AS SUB- 


■ 


QUANDO E COMO CRIAR 




ROTINAS 




As declarações GOTO permitem 
também que você salte para trás em um 
programa, criando um laço. Esse tipo 
de laço é semelhante àquele que apren- 
demos a montar com as declarações 
FOR...NEXT, embora não haja, neste 
caso, um limite para o número de vezes 
que o programa o executa. O programa 
abaixo calcula o valor da hipotenusa de 
um triângulo retãngulo (note de que ma- 
neira os valores em A e B são elevados 
ao quadrado: multiplicando-os por si 
mesmo, o que é mais rápido do que usar 
a operação de exponenciação). 



40 GOTO 10 

Na linha 20, a função SQR é utilizada 
para extrair a raiz quadrada (SQR é a 
abreviatura de square root, expressão in- 
glesa que quer dizer exatamente "raiz qua- 
drada") do que está entre parênteses, ou 
seja, a expressão toda significa: "extraia 
a raiz quadrada de A ao quadrado mais 
B ao quadrado, e armazene o resultado 
e m C . (E sta é a fórmula de Pitágoras, 
VA 3 + B ? = O.paracalcularocompri- 
mento C da hipotenusa de um triângulo 
retãngulo. cujos catetos são A e B.) A li- 
nha 30 imprime o valor resultante em C. 

Em virtude da linha 40, o programa 
se auto-repetirá, pois cada vez que ele a 
alcança a declaração GOTO manda-o de 
volta à linha 10, e o programa é executa- 
do outra vez. 

A única maneira de sair desse ciclo é in- 
terromper externamente o programa, atra- 
vés da tecla <BREAK> ou <CTRL> 
<C>, <CTRL> <STOP>.etc, de- 
pendendo do computador, ou então 
desligá-lo e começar de novo (pois o pro- 
grama na memória se perde). 



SALTOS PARA A FRENTE 



A declaração GOTO pode s 
utilizada para saltar para a frcn 
te, por sobre um bloco do pro- 
grama. É o que acontece no pro 
grama a seguir, que simula #^ 
um jogo de cara ou coroa: 



10 PRINT "COMPRIMENTO DOS LADOS 

A.B EM CM" 
15 INPUT A,B 



Digite o programa abaixo usando so- 
mente maiúsculas, se o seu computador 
for compatível com o ZX-81: 



20 FOR 2-1 TO 3 



QD 



5 FOR F=l TO 500:NEXT 
F :CLS 

10 PRINT " ESTOU JOGANDO 
A MOEDA 

20 FOR J-l TO 3 
30 FOR F=l TO 250:NEXT 
40 PRINT" . " ; 
50 NEXT J 
60 PRINT 

70 IF RNDC0X.5 THEN GOTO 100 
80 PRINT"E DEU COROA!" 
90 GOTO 5 

100 PRINT" E DEU CARA!" 
110 GOTO 5 




IHIIIIIIIIII 



30 PAUSE 25 
40 PRINT " . " ; 
50 NEXT j 
60 PRINT 

70 IF RND<.5 THEN GOTO 100 
80 PRINT "E " coroa! ! !" 
90 GOTO S 

100 PRINT "E ' cara! ! !" 

110 GOTO 5 



5 FOR F-l TO 500 : NEXT 

6 CLS 

10 PRINT "ESTOU JOGANDO A 

MOEDA. . . ■ 

20 FOR J-l TO 3 

30 FOR F-l TO 250 : NEXT F 

40 PRINT " . " ; 

50 NEXT J 

60 PRINT 

70 IF RNDtlK.5 THEN GOTO 100 
80 PRINT "E DEU COROA l" 
90 GOTO 5 

100 PRINT "E DEU CARA 1" 
110 GOTO 5 

A função RND na linha 70 sorteia um 
número aleatório entre 0 e 1. Aqui, a de- 
claração GOTO faz parle da declaração 
IF. Se o número selecionado pelo com- 
putador for menor do que 5, o com- 
putador saltará para a frente, para a li- 
nha 100. Se ele não satisfizer essa con- 
dição, o computador executará normal- 
mente a linha seguinte do programa — 
a linha 80 — . e quaisquer outros coman- 
dos porventura existentes na linha 70 se- 
rão desprezados. 

Essa condição significa que a linha 70 
constrói uma bifurcação no programa. 
Existem, neste caso, duas alternativas: ou 
o computador executa as linhas 70, 80 
e 90, para exibir na tela a mensagem "E 
DEU CARA?", ou, então, executa as li- 
nhas 70. 100 e 1 10. para exibir "E DEU 
COROA!". Isso é feito repetidas vezes, 
de forma totalmente aleatória, como 
uma espécie de lançamento rápido de 
uma "moeda eletrònica". 

As linhas 90 e 100 também contêm de- 
clarações GOTO. Qualquer que seja o 
desvio tomado pelo programa, elas o 
mandarão de volta ao inicio, na linha 5, 
para começar outro sorteio. 

Mais uma vez, você notará que este pro- 
grama não termina nunca. A única manei- 
ra de pará-lo é pressionar a tecla de inter- 
rupção do seu computador, ou desligá-lo. 



DESVIOS MAIS COMPLEXOS 



Nos computadores da linha Sinclair, 
a declaração GOTO não precisa ser se- 
guida de uma constante numérica. Uma 
■ variável servirá: GOTO A, por exemplo, 
|ouGOTO(100 + INT(RND*6)). Isso sig- 



nifica que a declaração GOTO pode pro- 
porcionar um tipo de desvio mais com- 
plexo ao seu programa; veja a seguir. 



Digite o programa abaixo usando so- 
mente maiúsculas, se o seu computador 
for compatível com o ZX-81 . 

100 PRINT "Ola. qual e o seu n 
orne?" 

110 INPUT aS 

120 GOTO (130 + INT (RNDM)*10) 
130 PRINT "E ' um bonito nome, 
n ;aS: GOTO 170 

140 PRINT "E ' um nome gozado, 
" ;aS: GOTO 170 

150 PRINT "Prazer em conhece-1 

o , " ;aS : GOTO 170 

160 PRINT "Ola. ":aS;", eu aou 

aeu computador . " 
170 STOP 

A declaração GOTO na linha 120 dá 
um salto aleatório para a frente, em di- 
reção a qualquer uma das quatro linhas 
com as alternativas do programa, em 
função do resultado da expressão numé- 
rica. O número 130 na expressão pode 
ser somado a 0, 10, 20 ou 30, dependen- 
do do resultado da expressão com RND. 
Assim, o programa poderá saltar para 
as linhas 130, 140, 150 ou 160. 

O GOTO 170, após cada alternativa, 
faz com que o programa salte para a 
frente, ignorando as linhas intermediá- 
rias. Note que não necessitamos de um 
GOTO 170 após a linha 1 60, pois o pro- 
grama vai para a linha 170 de qualquer 
maneira (é a última alternativa de GO- 
TO na linha 120). 

Assim, este programa roda apenas 
uma vez, pois todos os GOTO instruem 
o computador para saltar para a instru- 
ção STOP na linha 1 70, sem formar la- 
ços de retorno. 



A INSTRUÇÃO 0N...G0T0 



Os computadores da linha I RS, MSX 
e Apple têm um equivalente ao GOTO 
variável existenie apenas nos computa- 
dores da linha Sinclair. É a declaração 
ON...GOTO. Esta última é bastante po- 
derosa e útil em programação, e tem a 
seguinte forma (um exemplo): 

ON A GOTO 100,200,300,400 

Neste exemplo, quando a variável A 
for igual a 1, o programa saltará para 
o primeiro número de linha na lista que 
se segue à palavra GOTO, ou seja, a li- 
nha de número 100. Se A for igual a 2, 
o programa irá para a linha 200, e as- 
sim por diante. A lista de linhas após 
GOTO pode ter qualquer número de ele- 



mentos, com um mínimo de 2, e um má- 
ximo determinado pelo número máximo 
de caracteres por linha de programa que 
o seu computador aceita (normalmente 
254 ou 255 caracteres). 

Novamente, esta declaração permite 
a programação de desvios complexos. O 
programa anterior passa a ser assim. 



DD 



100 PRINT"OLA. QUAL E 0 SEU NOM 

E?" 

110 INPUT AS 

120 ON RND (4 ) GOTO 130.140.150. 
160 

130 PRINT"E UM BONITO NOME. ";A 
S:GOTO 170 

140 PRINT"E UM NOME GOZADO. " ; A 
S:G0T0 170 

150 PRINT" PRAZER EM CONHECE-LO, 

";AS:G0TO 170 
160 PRINT "OLA, " : AS ; " . EU SOU 
0 SEU COMPUTADOR , " 
170 END 



100 PRINT "OLA, QUAL E ' O SEU 

NOME ?" 

110 INPUT AS 

120 ON INT(RND(1)»4)+1 GOTO 
130, 140, 150, 160 
130 PRINT " E ' UM BONITO NOME. " 
:AS:GOTO 170 

140 PRINT "E ' NOME GOZADO, " 
; AS: GOTO 170 

150 PRINT "PRAZER EM CONHECE- 
LO, " ;A$:GOTO 170 
160 PRINT "OLA, " : AS : " , EU SOU 
O SEU COMPUTADOR" 
170 END 



EVITE MÁS TÉCNICAS DE PROGRAMAÇÃO 



O excessivo emprego de GOTO em um 
programa é considerado um mau estilo de 
programação. Uma razão para isso é que, 
mesmo cm programas simples, uma decla- 
ração GOTO que o manda de volta para 
uma linha precedente pode criar um laço 
sem fim. Ora, esse laço só poderá ser 
interrompido por meio do teclado, 
pressionando - se . para isso. as teclas 
<BREAK>, <STOP>, <CTRL> 
<C> , etc. — ou desligando-se o com- 
putador. Isso é inconveniente, prin- 
cipalmente para o usuário do programa. 

Mas a principal razão é que, permitin- 
do que você salte, para trás ou para a fren- 
te, para qualquer ponto do programa, ao 
inteiro sabor de sua vontade, o uso do 
GOTO tende a quebrar a estrutura lógi- 
ca do programa. Isso pode não parecer 
muito importante, se você estiver lidan- 
do com programas de 5 ou lOltnhas.mas 
pode ser vital, se você estiver escrevendo 
programas de 100 ou 1000 linhas. 
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Um bom estilo de programação re- 
quer que os programas sejam desenvol- 
vidos em módulos lógicos, cada um de- 
sempenhando uma tarefa bem separada. 
Isso ajuda muito quando você tem que 
localizar erros dc programação que ocor- 
rem aleatoriamente, no momento em 
que o programa é rodado. Esse estilo de 
programação (conhecido como estrutu- 
rado) o ajudará também a fazer progra- 
mas mais simples, que poderão ser facil- 
mente modificados no futuro. 



COMO UTILIZAR 0 GOSUB 



Existe outra ferramenta de programa- 
ção que pode ser utilizada para substi- 
tuir em grande parte o GOTO, quando 
este é problemático: é o GOSUB. Essa 
instrução é digitada com uma palavra e 
deve ser seguida por um número de li- 
nha {ou ainda por uma expressão numé- 
rica, em micros da linha Sinclair). 

O GOSUB envia o computador para 
uma sub-rotina, que se inicia na linha es- 
peci ficada por ele. Uma sub-rotina é um 
conjunto de operações dentro de um pro- 
grama que podem ser colocadas à parte, 
em uma espécie de "tijolo" lógico. Ela é 
frequentemente utilizada quando uma 
operação deve ser repetida várias vezes ao 
longo de um programa. Assim, ao invés 



de escrever esta rotina ioda vez que ela 
ocorre no programa, podemos colocá-la 
em um ponto qualquer, e simplesmente 
direcionar o computador para ela, quando 
necessário, e quantas vezes desejarmos. 

A diferença decisiva entre um GOTO 
e um GOSUB é que no finai de uma sub- 
rotina deve constar a palavra RF.TURN 
("retornar", em inglês). Para entrar es- 
ta palavra, nos computadores da linha 
Sinclair deve-se simplesmente pressionar 
a tecla marcada com RETURN. Nos ou- 
tros micros, digita-se a palavra por ex- 
tenso, pressionando-se <ENTER> ou 
<RETURN> depois (não confundaa 
tecla de retorno de carro, ou transmis- 
são, que é sempre indicada no texto de 
forma diferente, com a instrução RE- 
TURN). 

A declaração RETURN envia o flu- 
xo do programa de volta à linha ou ao 
comando que se segue ao GOSUB que 
solicitou ("chamou", na gíria dos pro- 
gramadores) a sub-rotina. Assim, o com- 
putador sempre "se lembra" de que pon- 
to do programa foi efetuado o desvio pa- 
ra a sub-rotina e sempre volta a ele, pa- 
ra continuar o fluxo normal do progra- 
ma, depois que a sub-rotina é completa- 
da. Desse modo, podemos colocar cha- 
madas à mesma sub-rotina em qualquer 
ponto do programa. 

No programa seguinte exemplifica- 
mos o uso do GOSUB. Ele simula um jo- 



go de dados muito simples, uma espécie 
de "crepe". No jogo, um par de dados 
é arremessado, e o total dos pontos ob- 
tidos é anotado. Se os totais de dois ar- 
remessos sucessivos forem iguais, o jo- 
go terminará. Caso contrário, os dados 
serão arremessados novamenle. 



□O 



20 LET A=l 

30 BEM . . PRIMEIRO LANÇAMENTO. 
40 GOSUB 150 
50 LET Tl-T 

60 REM. . SEGUNDO LANÇAMENTO . , 
70 GOSUB 150 
80 LET T2-T 

90 IF T1-T2 THEN GOTO 120 
100 LET A-A+l 
110 GOTO 40 

120 PRINT" CONTAGENS IGUAIS A 
Tl;" APOS ";A;" LANÇAMENTOS" 
130 END 

140 REM. . SUBROTINA 
150 LET D1=RND[6) 
160 LET D2-RNDI6) 
170 LET T-D1+D2 
160 RETURN 



Digite o programa abaixo usando so- 
mente maiúsculas, se o seu computador 
for compatível com o ZX-81. 



INIIIIIIIIIII 



30 BEM primeira jogada 

40 GOSUB 150 

50 LET tl-T 

60 REM segunda jogada 

70 GOSUB 150 

80 LET t2-T 

90 IF tl-t2 THEN GOTO 120 

100 LET a-a+1 

110 GOTO 40 

120 PRINT "Oa dadoa deram ": 

: " na jogada" ; a 

130 GOTO 200 

140 REM aobroutine 

150 LET dl-INT (RND"6)+1 

160 LET d2-INT [RND*6)+1 

170 LET T-dl+d2 

180 RETURN 



10 CLS: LET Dl -RND ( -TIME) 

20 LET A=l 

40 GOSUB 150 

50 LET Tl-T 

70 GOSUB 150 

80 LET T2-T 

90 IF T1-T2 THEN GOTO 120 
100 LET A-A+1 
110 GOTO 40 

120 PRINT "CONTAGENS IGUAIS A " 
Tl; - APOS ";A;" LANÇAMENTOS" 
130 END 

140 REM . . . SUBROTINA 

150 LET D1-INT(RNDC1)*6)+1 

160 LET D2-INT(RND(1)*6)+1 

170 LET T-D1+D2 

175 PRINT D1;D2;T 

130 RETURN 

O arremesso do dado deve ser reali- 
zado duas vezes; por isso, é entregue a 
uma sub-rotina, que vai das linhas 150 
a 1 80. O GOSUB nas linhas 40 e 70 en- 
via o computador ao ponto de inicio da 
sub-rotina (linha 150). O RETURN na 
linha 180 manda o micro voltar à linha 
50, caso o chamado à sub-rotina tenha 
partido do GOSUB da linha 40, ou à li- 
nha 80, se tiver partido da linha 70. A 
linha 140 é usada para identificar o iní- 
cio da sub-rotina, usando a declaração 
REM, que significa apenas um comen- 
tário feito pelo programador. 

Note a declaração END na linha 1 30 
de todos os programas (exceto os do Sin- 
clair, que usam um GOTO). Se ela não 
estivesse aí, o computador passaria a exe- 
cutar a sub-rotina diretamente e, ao aiin- 
gir a declaração RETURN, assinalaria 
um erro, pois não haveria indicação pré- 
via sobre para que linha retornar. 



NÚMEROS DE LINHA INEXISTENTES 



Como os micros da linha Sinclair não 
| têm declaração END, utilizamos um 
| GOTO seguido de um número de linha 



130 GOTO 200 

Em outros micros, isto daria uma 
mensagem de erro. O mesmo, entretan- 
to, não acontece com a linha Sinclair: ao 
perceber que a linha 200 não existe, o 
computador interromperá providencial- 
mente o programa, pronto para come- 
çar de novo. 

Para tais micros, é melhor usar esses 
expedientes do que colocar 



que é aceito pelo computador, mas que 
gera uma mensagem de advertência na 
tela.*Isso poderia levar o usuário a acre- 
ditar que houve um erro de execução do 
programa, especialmente porque a linha 
130 não é a úllima linha física do pro- 
grama, pois está no meio dele, antes da 
sub-rotina. 

Mas seja o mais cuidadoso possível 
quando utilizar, nesses computadores, o 
comando GOTO seguido por um núme- 
ro de linha inexistente. 

Após GOTO 200, por exemplo, os mi- 
cros da linha Sinclair pesquisarão todas 
as linhas seguintes. E se encontrarem 
uma instrução em alguma delas, eles a 
executarão (ou tentarão executá-la), in- 
dependentemente do conteúdo dessa ins- 
trução. Portanto, para ficar mais segu- 
ro, o melhor é enviar o computador pa- 
ra a última linha física possível, que po- 
de ser a de número 9999, nos micros da 
linha Sinclair. 

E, para que não haja nenhuma con- 
fusão quanto ao que você está fazendo, 
coloque: 

9999 REM END 



É possível uma sub-rotina chamar ou- 
tras, e estas, por sua vez, outras tantas, 
gerando assim uma estrutura em diver- 
sos níveis. Assim como no jogo cílado o 
dado deve ser lançado duas vezes, a sub- 
rotina de arremesso pode ser constituí- 
da como uma sub-rotina dentro de ou- 
tra, desde que se mude as últimas linhas 
do programa, da seguinte forma: 
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150 GOSUB 190 
155 LET Dl-D 
160 GOSUB 190 
165 LET D2-D 
170 LET T-D1+D2 
180 RETURN 
190 LET D~RND[6) 
195 RETURN 



Digite o programa abaixo usando so- 
mente maiúsculas, se o seu computador 
for compatível com o ZX-81: 

150 GOSUB 190 

155 LET dl-d 

160 GOSUB 190 

165 LET d2-d 

170 LET t-dl+d2 

180 RETURN 

190 LET d-INT (RND*6) +1 
195 RETURN 



150 GOSUB 190 

155 LET Dl-D 

160 GOSUB 190 

165 LET D2-D 

170 LET T-D1+D2 

180 RETURN 

190 LET D-INT(RND(1)*6)+1 

195 RETURN 

Aqui, as linhas 150 e 160 enviam o 
computador para a sub-rotina na linha 
1 90, que faz o dado rolar (isto é, sorteia 
um número aleatório inieiro, entre 1 e6), 
enquanto as linhas 155 e 165 armazenam 
os resultados de cada lançamento sepa- 
rado. 

Por uma questão de concisão, o com- 
putador realiza apenas o lançamento de 
um dado, e não de dois, separadamen- 
te. Veja a seguir: 



QQ 



150 LET T = RND (6) +RND 16) 



UTILIZE 0 COMANDO ON... GOSUB 



Assim como GOTO, a declaração 
GOSUB pode ser utilizada para chama- 
das complexas a um determinado núme- 
ro de sub-rotinas, começando em linhas 
diferentes. Nos microcomputadores da 
linha Sinclair (compatíveis com Spec- 
irum e ZX-81). o GOSUB pode ser se- 
guido de uma expressão numérica, ou 
nome de variável, exatamente como vi- 
mos anteriormente para o GOTO. 

No caso dos computadores de outras 
linhas, como TRS-80, Apple e MSX, 
existe a declaração ON... GOSUB, que 
pode ser utilizada para o mesmo efeito. 



J APUCAÇÕES 3 



ORGANIZE 
COLE 



Encontrar o nome e o endereço de uma 
pessoa da qual se sabe apenas o 
sobrenome e a cidade em que reside é 
tarefa simples para o computador. 
Mas, para isso, é preciso programá-lo 
com as informações adequadas. 



Uma das grandes vantagens do arqui- 
vamento no computador, em compara- 
ção com métodos mais tradicionais (co- 
mo um fichário, por exemplo), é a faci 
lidade e rapidez com que se pode encon 
trar as informações arquivadas. 

O programa da lição anterior da sé- 
rie Aplicações fornecia os meios para se 
implementar um sistema altamente fle- 
xível de arquivamento no computadoi 
Neste artigo mostramos como se pode 
pesquisar arquivos, lendo em vista ob- 
jetivos como a correção de registros de- 
satualizados ou incorretos, ou a ai 
ção de registros desnecessários. 



COMO PESQUISAR UM ARQUIVO 



A opção de pesquisa é a de número 
4 no menu principal. Ela permite que 
você pesquise os registros a partir da in- 
formação contida em um campo. 

Se você pressionar a lecla 4, o com- 
putador mostrará, no alto da tela, os no- 
mes dos campos que você definiu ante- 
riormente para o arquivo; em seguida, 
ele perguntará qual campo você quer 
pesquisar — I para o primeiro, 2 para 
o segundo, 3 para o terceiro e assim 
por diante, contando a partir do alto 
da tela. A pergunta seguinte será sobre 
o que você quer pesquisar nesse cam- 
po. Em resposta, você deve digitar a 
palavra ou o número que quer procu- 
rar: JOÃO ou CAÇAROLA, por exem- 
plo, ou BÍBLIA, ou seja lá o que for. 
Em seguida pressione < RETURN> ou 
<ENTER> . 

A palavra ou o número que você di- 
gitar deve ser exatamente igual ao que 
está escrito no campo. Se uma palavra 
foi armazenada com letras maiúsculas 
nos registros e você estiver procurando-a 
com letras minúsculas, o computador 
não irá encontrá-la. Se você tiver deixa- 
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do, por engano, um espaço ames da en- 
trada em um registro, ou apertar o es- 
pacejador após a entrada, provavelmen- 
te o computador não irá encontrá-la. Is- 
so ocorre mesmo que a palavra do re- 
gistro e a que você está procurando se- 
jam iguais, 

Assim, evite espaços desnecessários e 
procure entrar informações em letras 
maiúsculas. A pesquisa se tornará mais 
fácil e menos sujeita a erros. 

Caso o computador não consiga 
achar nenhum registro com a palavra 
que você pediu, no campo pesquisado, 
ele lhe dirá isso e trará de volta o menu 
principal. Se, ao contrário, forem en- 
contradas diversas respostas, ele coloca- 
rá na tela o primeiro registro que tiver 
a informação pedida e, a partir dai, lis- 
tará em ordem alfabética todos aqueles 
com informação igual. 

Você deve então selecionar uma das 
opções coiocadas nas duas linhas abai- 
xo da tela. A primeira é assim: 
PROSSEGUE RETOHNA MENU 

Isso funciona mais ou menos da mes- 
ma maneira que no programa do artigo 
anterior. A tecla P serve para pesquisar 
os registros selecionados em ordem cres- 
cente, ao passo que a tecla M o leva di- 
retamente de volta ao menu principal. 
Mas não acontecerá nada se você pres- 
sionar a tecla P quando estiver no últi- 
mo registro selecionado. A tecla R, na 
primeira modalidade de pesquisa, for- 
nece uma mensagem: "REGISTRO 
NÃO ENCONTRADO". 

Talvez a aplicação mais útil da opção 
de pesquisa seja descobrir um determi- 
nado registro. Para localizá-lo, basta 
lembrar-se de qualquer informação so- 
bre ele. Por exemplo, suponhamos que 
você esteja utilizando esse arquivo para 
armazenar nomes, endereços e números 
de telefones dos membros de seu clube 
e já possua os seguintes campos: nome, 
sobrenome, rua, cidade, Estado,código 
postal, número do telefone. Neste caso, 
você poderá pesquisar um determinado 
registro até mesmo se lembrar apenas do 
sobrenome da pessoa. 

E se uma parte da informação de que 
você se lembrou não for exclusiva desse 
registro? A solução é simples: por exem- 
plo, se você procura o registro de uma 
pessoa, sabendo apenas que ela mora na 
cidade de São Paulo, ou que o seu pri- 
meiro nome é João, poderá evocar to- 
dos os paulistanos ou todos os indiví- 
duos de nome João e saltá-los até encon- 
trar o nome correto. Mesmo que o nú- 
mero de nomes fosse muito grande, es- 
sa procura seria mais fácil do que se ti- 
m vesse que percorrer todo o arquivo, re- 
li visando um registro de cada vez. 



COMO MODIFICAR UM REGISTRO 



A segunda linha de opções da parte 
inferior da tela permite outras opções de 
trabalho com o registro exibido: 

CORRIGE APAGA IMPRIME 

Se você quiser modificar um registro 
mostrado na tela, deve pressionar a te- 
cla C. O computador perguntará 
"QUAL O NÚMERO DO CAMPO" 



que você deseja modificar. Digite o nú- 
mero, contando a partir do alto. 

Em seguida, o computador pedirá pa- 
ra "ENTRAR A MODIFICAÇÃO". Vo- 
cê deve então digitar o novo campo que 
quer entrar, até mesmo se quiser modi- 
ficar apenas uma letra. Quando as teclas 
< ENTER> ou < RETURN > forem 
pressionadas, o computador efetuará a 
modificação no lugar correto do regis- 
tro. Se você quiser, poderá pressionar 
mais uma vez a tecla C e modificar ou- 
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tro campo no mesmo registro. Se você 
quiser modificar um registro que não es- 
tá na tela, deve pressionar C para retor- 
nar ao menu principal e escolher a opção 
de pesquisa 3, para localizar o registro 
que deseja alterar. Outra saída seria es- 
colher a opção 2, "VER OS REGIS- 
TROS", achando-o e modificando-o. 



APAGUE OS REGISTROS INCORRETOS 



Você deve primeiro localizar o regis- 
tro que deseja apagar, estudando as al- 
ternativas. Normalmente, são apresenta- 
das, no lado inferior da tela, seis opções 
padrão. Para apagai um registro é neces- 
sário pressionar a tecla A. Então o com- 
putador perguntará: "VOCÊ TEM 
CERTEZA?". Isso evita que você apa- 
gue, por engano, um registro correio. 

Se você tem certeza de que quer apa- 
gá-lo, pressione a tecla S. O computa- 
dor apagará eniào esse registro e exibi- 
rá o próximo — tanto o registro anota- 
do segundo uma ordem alfabética, se 
você estiver na modalidade de exibição, 
quanto o que possui o mesmo campo 
que você está pesquisando, se estiver na 
modalidade de pesquisa. 

Se você apagou o último registro en- 
contrado na pesquisa, o computador in- 
formará que não existem mais registros 
com tal item no campo que o interessa 
e irará o menu principal de volta. 



IMPRIMA OS REGISTROS 



A última opção na parte inferior da 
tela permite mandar para a impressora 
(caso haja uma) os registros do arqui- 
vo. Se você pressionar a tecla I na ver- 
são do programa para o TRS-Color, o 
computador lhe pedirá para "CHECAR 
A IMPRESSORA" . Nesse ponto, é ne- 
cessário averiguar se a impressora está 
conectada e ligada; se essa condição for 
satisfeita e mesmo assim a impressora 
não funcionar, você deverá verificar o 
programa. 

No Spectrum essa linha de mensagem 
não é necessária, pois ele não reagirá à 
tecla 1 se não houver nenhuma impres- 
sora conectada. 

Uma vez que você já checou se a im- 
pressora está conectada e ligada, acione 
a tecla C para continuar. Pressionando 
algumas outras letras, a linha "CHE- 
QUE A IMPRESSORA" desaparecerá e 
você poderá novamente utilizar uma das 
seis opções padrão, localizadas no lado 
inferior da tela. Caso C seja pressiona- 
da sem que haja uma impressora conec- 
tada, ou esta não funcione por qualquer 
razão, você deve pressionar as teclas 



< RESET > (no TRS-Color e Apple), 
ou <CTRL> <STOP> (no MSX), e 
verificar o programa. Para continuar a 
utilizar o programa sem perder os dados 
armazenados, digite de modo direto: 
GOTO 30 

Retornando ao menu principal (uma 
observação importantíssima: não lente 
modificar qualquer Unha do programa an- 
tes de dar o comando acima, caso con- 
trário perderá todos os dados já armaze- 
nados na memória RAM da máquina). 



SAIBA UTILIZAR SEUS ARQUIVOS 



Agora você possui um sistema de ar- 
quivamento altamente flexível e comple- 
to, que pode ser utilizado para armaze- 
nar detalhadamente qualquer tipo de in- 
formação. Evidentemente, Você pode 
utilizar o programa para armazenar, em 
uma única fita cassete, um fichário 
enorme ou vários fichários. 

Fitas muito longas, contudo, apre- 
sentam inconvenientes. Uma solução 
mais prática consiste em armazenar di- 
ferentes arquivos em várias fitas, de mo- 
do a torná-los mais facilmente localizá- 
veis. Neste caso, é necessário guardar o 
próprio programa em uma fita separa- 
da (somente os micros da linha Spec- 
trum estão dispensados dessa precau- 
ção). Você poderá, assim, carregar os 
dados antes de selecionar a opção 6. 

À primeira vista, isso pode parecer 
um grande desperdício de número de 
acessos. Essa impressão, contudo, dei- 
xa de ter sentido quando pensamos no 
espaço ocupado pelos arquivos dos an- 
tigos cartões de indexação. 



COMO ENTRAR 0 PROGRAMA 



A seguir, listamos a segunda seção do 
programa de arquivamento de dados 
que, para sua felicidade, é muito mais 
curta do que a primeira. 

Quando acrescentá-la ao programa 
existente, você notará que poucos núme- 
ros de linhas estão duplicados. Não es- 
quente a cabeça com isso. Os números 
da primeira seção estavam ali simples- 
mente para manter o programa intacto 
e permitir o seu teste. Os novos núme- 
ros substituirão os antigos assim que vo- 
cê digitá-los. 

Atenção se você for utilizar o pro- 
grama abaixo em micros com disque- 
te. Mude o número 1 1000 do comando 
CLEAR, no começo do programa, pa- 



ra 8000, sob pena de não haver espaço 
suficiente na memória. 

3000.GOSUB 8500 

3010 PRINT 8417. "MODIFICAR QUAL 

CAMPO? (1 A" í A; ") ?" ; 
3020 INS=INKEYS:IF INS-"" THEN 
3020 

3030 J=VAL(INS) 

3040 IF J<1 Ofi J>A THEN 3020 

3050 PRINT 6448 . "" 

3060 PRINT 845+32*J."":PRINT §4 

17, "DIGITE O CAMPO MODIFICADO " 

: LINE INPUT ASÍD.J) 

3070 AS (D , J) -LEFTS (ASÍD.J) ,A(J) 

) 

3080 1F D-R THEN J — l:GOTO 3130 
3090 IF D-l THEN J-1:GOTO 3120 
3100 IF AS(D.1)>AS<D+1,1) THEN 
J-l 

3110 IF A$(D.1)<AS(D-1.1)THEN J 
— 1 

3120 IF AS(D+1,1)-"" AND J-l TH 
EN 3180 

3130 IF J-l THEN 3160 
3140 IF AS(D,1)>-A$(D-1,1) THEN 
3180 

3150 FOR N=l TO A : XS-AS {D . N) : AS 
(D.N) =AS (D-l ,N) :AS (D-l.N) =XS : NE 
XT : D-D-l :GOTO 30 BO 
3160 IF ASÍD.1K»AS(D+1,1) THEN 
3180 

3170 FOR N=l TO A : XS = AS (D . N) : AS 

(D,N)=AS(D+1,N) :AS(D+1.N)-XS:NE 

XT:D-D+1 :G0T0 3080 

3180 FOR F-l TO 300 : NEXT : RETURN 

4000 G=D 

4010 GOSUB 8500 

4020 PRINT §449, "VOCÊ TEM CERTE 

ZA QUE QUER APAGAR?" 

4030 INS=INKEVS : IF INS-"" THEN 

4030 

4040 IF IN$<>"S" THEN RETURN 

4050 IF G-NR THEN G-C-l 

4060 CLS 7:PRINT §2 36 . "APAGANDO 

" ; :SOUND 30 . 1 

4070 IF D-NR THEN 4090 

4080 FOR N=l TO A : AS (D , N) -AS (D+ 

1 ,N) :NEXT:D-D+1 : GOTO 4070 

4090 FOR N-l TO A : AS [D , N) -" " : NE 

XT:NR-NR-1 : D-G 

4100 FOR F-l TO 400 : NEXT : RETURN 
5000 FOR N-l TO A : PRINT §33+32" 
N,N,NS(N) : NEXT 

5010 PRINT 0417, "QUE CAMPO PROC 

UR AR (1 A";A:") ?"; 

5020 INS-INKEYS : IF INS-"" THEN 

5020 

5030 IF VALdNSXl OR VAL(INS)> 
A THEN 5020 

5040 SOUND 30 . 1 : Z-VAL (INS) : PRIN 

T §417 , "PROCURAR PELO QUE (NO C 

AMPO" ; Zi ") ?" 

5050 LINE INPUT Z$ 

5060 D-1:G=0:CH-1 

5070 IF D>NR AND G=l THEN G-0:C 

H--1 ELSE IF D>NR THEN 5230 

50B0 IF D<1 AND G= 1 THEN G-0:CH 

-1 ELSE IF Díl THEN 5230 

5090 IF AS(D,Z)OZS THEN D=D+CH 

:GOTO 5070 

5100 LD=D:G-1 :GOSUB 8500 
5110 PRINT 8451 , "PROSSEGUE 
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ETORNA mENU CORRIGE aPA 
GA IMPRIME" ; 

5120 INS-INKEYS : IF INS-"" THEN 
5120 

5130 IN-INSTR(1,RSS,IN$) 

5140 ON IN GOTO 5160.5160,5170, 

5180,5190,5200,5210 

5150 GOTO 5120 

5160 CH-1 : D-D+l :GOTO 5070 

5170 CH--1 :D-D-1 :GOTO 5070 

5180 RETURN 

5190 GOSUB 3000-GOTO 5090 
5200 GOSUB 4000:GOT0 5090 
5210 GOSUB 10000:GOTO 5070 
5220 GOTO 5110 

5230 CLS ZlPRINT 8200 , "NENHUM R 
EGISTRO COM " ; : PRINT e271"LEN(Z 
S)/2," ";ZS;" "; 
5240 PRINT §330," NO CAMPO";Z; 
5250 FOR G-l TO 5:SCREEN 0 , 1 : FO 
R F-l TO 500: NEXT :SCREEN 0,0:FO 
R F-l TO 500:NEXT F , G : RETURN 



4000 FOR N = V TO A: PRINT INVER 

SE V;AT N*2.9;N; INVERSE U ; TAB 

11;": ";NS(N) : NEXT N 

4010 PRINT '■"PROCURAR EM QUE C 

AMPO {1 A " : Ai " ) ?" 

4020 IF INKEYS"" " THEN GOTO 40 

20 

4030 LET YS-INKEYS ! IF CODE YS< 
49 OR CODE YSX8+A THEN GOTO 4 
030 

4040 SOUND .1,10: LET Z-VAL YS : 
PRINT ' " PROCURAR PELO QUE NO C 
AMPO ";Z;"? n : DIM ZS<V,A(Z)): I 
NPUT LINE ZS (V) 

4044 CLS : LET K-V 

4045 IF AS(K.B[Z)+V TO B(Z+V))- 
ZS(V) THEN GOTO 4050 

4046 IF K-R OR AS(K.V)-" " THEN 
CLS : PRINT AT 9.3:"NENHUM RE 

GISTRO COM ";ZS(V),'TAB 1Q;"N0 
CAMPO ";Z: PAUSE 150: RETURN 

4047 LET K-K+V: GOTO 4045 

4050 LET D-V: LET PM-V: LET MO- 
V 

4060 IF D>R THEN LET D-PM 
4070 IF D-U THEN LET D-PM 
4080 IF AS(D.V)-" " THEN LET D 
■PM 

4090 IF AS(D.B<Z)+V TO B(Z+U))< 
>ZS(V) THEN LET D-D+MO : GOTO 4 
060 

4100 GOSUB 9500 
4110 LET PM-D 

4120 IF OP-V THEN LET MO-V : LE 
T D-D+MO: GOTO 4060 
4130 IF OP-2 THEN LET MO — V: L 
ET D-D+MO: GOTO 4060 
4140 IF OP-3 THEN RETURN 
4150 IF OP-4 THEN GOSUB 8000 
4160 IF OP-5 THEN LET DF-U: LE 
T MD-2: GOSUB 9000: IF DF-V OR 
ASÍV.V)-" " THEN RETURN 
4170 GOTO 4100 

8000 INPUT AT U.U:"CAMPO A SER 
CORRIGIDOU A (A) ;")7"iJ: IF 
J>A THEN GOTO B000 
8010 PRINT FLASH V ; AT V+2*J,12 
;AS(D,B(J)+V TO B ( J+U) ) : INPUT 



AT U,U;"Digite o campo modificõ 
do". LINE AS(D,B(J)+V TO B(J+V) 
): PRINT AT V+2* J . 12 ;ASÍD,B(J)+ 
V TO B(J+V) ) 

8020 IF D-R THEN LET J— V: GOT 
O 8070 

8030 IF D-V THEN LET J-V: GOTO 
8060 

8040 IF AS (D)>AS (D+V) THEN LET 
J-V 

8050 IF ASIDKAS(D-V) THEN LET 
J— V 

8060 IF AS (D+V, V)-" " AND J-V T 
HEN GOTO 8500 
8070 IF J-V THEN GOTO 8100 
8080 IF A$(D)>-AS(D-V) THEN GO 
TO 8500 

8090 LET XS-AS(D): LET AS (D) -AS 
(D-V): LET AS (D-V) -X$ : LET D-D- 
V: GOTO B020 

6100 IF AS (DX-AS (D+V) THEN GO 
TO 8500 

8110 LET XS-AS(D): LET AS(D)-AS 
(D+V): LET AS!D+V)-XS: LET D-D+ 
V: GOTO 8020 

8500 SOUND ,1,10: PRINT AT U,U; 
"Registro numero ";D;" ": RET 
URN 

9000 PRINT AT 19, U; "TEM CERTEZA 

DE QUE QUER APAGAR? " : PAUSE U 
9010 IF INKEYS=" " THEN GOTO 90 
10 

9020 IF INKEY$0"S" THEN PRINT 
AT 19.U;" 

": SOUND .1,10: RETU 

RN 

9030 PRINT AT 19, U:" APAGANDO 
9035 LET DD-D 

9040 IF D-R THEN LET DD-DD- V ! 

GOTO 9060 

9050 IF AS (D+V , V) O" " THEN LE 
T AS (D) -AS (D+V) : LET D=D+V : GOT 
O 9040 

9060 LET AS(D)-"": FOR F-V TO 1 
00: NEXT F: PRINT AT 19.U;" 

9070 LET D-DD: IF AS(V,V)-" " T 

HEN LET D-U: RETURN 

9072 IF D-U THEN LET D-V 

9075 IF AS(D,V)-" " THEN LET D 

-D-V 

90B0 IF MD-V THEN RETURN 
9090 LET K-V 

9100 IF AS(K,B(2)+V TO BIZ+V))- 

ZS(V) THEN GOTO 9130 

9110 IF K-R OR AS(K.V)-" " THEN 

LET DF-V: GOTO 4046 
9120 LET K-K+V: GOTO 9100 
9130 LET DD-D: LET PA-V 
9140 IF AS(DD.V)-" " OH DD-U TH 
EN LET PA-2: LET DD-D: LET MO- 
MO- V 

9150 IF AS(DD,B(Z)+V TO B(Z+V)) 
-ZS(V) THEN LET D-DD: RETURN 
9160 LET DD-DD+MO: GOTO 9140 




3030 J-VAL(INS) 

3040 IFJ<lORJ>ATHEN3020 

3060 LOCATE0.22:PRINTSPACES(39) 

; : LOCATE0 ,22: PRINT" Entre com o 

campo modificado: " ; : LINEINPUTA 

S(D, J) 

3070 A$(D,J)-LEFTS(AS(D.J) ,A(J) 
) 

3080 IFD-RTHENJ--l:GOTO3130 
3090 IFD-1THENJ-1 :GOTO3120 
3100 IFAS(D,1)>AS(D+1,1)TKENJ-1 
3110 IFAS(D,1XAS(D-1,1)THENJ — 
1 

3120 IFAS(D+1,1)-""ANDJ-1THEN31 



3000 GOSUB8500 

3010 LOCATE0.22:PRINT"Modificar 
qual campo 7 (1 até ";A:")";: 
3020 IN3-INKEYS;iriNS-""THEN302 



3150 FORN-1TOA:SWAPAS(D.N) ,AS(D 

-l.N) :NEXT:D-D-l:GOTO3080 

3160 IFAS(D.1X-AS(D+1,1)THEN31 

80 

3170 FORN-1TOA:SWAPAS(D.N) ,AS(D 
+1.N) :NEXT:D-D+l:GOTO3080 
3180 FORF- 1TO300 : NEXT : RETURN 
4000 G-D 
4010 GOSUB8500 

4020 LOCATE0,22:PRINT"Voce conf 





3 APLICAÇÕES 3 












NT "NUMERO DO CAMPO A SER MODIF 

IÇADO ! : GET CPS 

3020 IF CPS < "O" OR CPS > "8" 

THEN 3010 
3030 CP - VAL (CPS) : IF CP - 0 

THEN POKE 34,0: RETURN 
3040 VTAB 23: HTAB 1: CALL - 
958 

3050 PRINT "CAMPO CORRIGIDO -> 
"i : INPUT AS (D, CP) 
3060 AS(D.CP) - LEFTS (AStD.CP 
) .A(CP) ) 

3070 IF CP < > 1 THEN 3000 
3080 IF A$(D,1> > AS(D + 1,1) 
ANO D < > NR THEN V - 1: GOTO 
3200 « 
3090 IF AS(D,1) < AS!D - 1,1) 
AND D > 0 THEN V - - 1 : GOTO 3 
200 


r ^ 




3100 GOTO 3000 

3200 FOR N - 1 TO A:XS • AS(D, 
N) :AS(D,N) - AS(D + V,N) :AS(D + 
U,N) - X$: NEXT :D - D + V: GO 
TO 3080 

4000 GOSUB 6500: VTAB 23 

4010 PRINT "CONFIRMA A DELECAO 

7 " ; : GET INS 

4020 IF INS < > "S" THEN RET 
URN 

4030 IF D - NR THEN 4060 

4040 FOR X - D TO NR 

4050 FOR Y - 1 TO A:AS(X,Y) - 

ASÍX + l.Y) : NEXT : NEXT 

4060 NR - NR - 1:D - NR : IF D - 

0 THEN POP : RETURN 
4070 RETURN 

5000 DD - 1: PRINT : FOR X - 1 
TO A: PRINT : HTAB 10: PRINT X; 
" :-" ;NS(X) : NEXT 
5010 VTAB 21: PRINT "PROCURAR 
POR QUAL CAMP07 - : : GET CPS 
5020 CO - VAL (CPS) : IF CO > A 


irmã a delecâo? !S/N)"i E 
4030 INS-INKEYS : IFINS-" "THEN4Q3 5 
0 T 
4040 IFINSO"S"THENRETURN 5 
4050 IFG"NRTHENG-G-1 5 
4060 CLS:LOCATE12.15:PRINTCHRSI u 
7) ;"Apagando";CHRS(7) r r 
4070 IFD-NRTHEN4090 i 
' 40BO FORN=lTOA:AS(D,N)-AS(D+l.N ~ 
) :NEXT: D-D+l :GOTO4070 0 
4090 F0RN-1T0A : AS ÍD.N) " :NEXT : 5 
NR-NR-1 :D-G 5 
4100 FORF"1TG400 : NEXT : RETURN C 
5000 F0RN-1T0A:L0CATE5.2*N+2:PR 5 
INTN.NS (N) : NEXT ~ 
5010 LOCATE0.22:PRINT-Procurar 5 
por qual campo? <1 até ";Ai")"; - 
5020 INS-INKEYS:IFINS-""THEN502 5 
0 5 
5030 IFVAL(INSK10RVAL{INS)>ATH 5 
EN5020 5 
5040 PRINTCHRS ( 7) ; : Z-VAL (INS) : L 5 
OCATE0 , 22 : PRINT"Procurar o que n 
no campo " ; Z ; "7" ; SPACES (8) 5 
5050 LINEINPUTZS r 
5060 D-1:G-0:CH-1 L 
5070 IFD>NRANDG-1THENG-0:CH--1E 
LSEIFD>NRI 1EN523Q 3 
5080 IFD<1ANDG-1THENG-0:CH-1ELS 2 


5025 PRINT CO 

IFD<1THEN5230 5030 VTAB 22; HTAB 1: PRINT "P 
090 IFAS(D,Z)OZ$THEND-D+CH:GO RO CURAR O QUE EM ";N$(CO);: INP 
35070 UT PRS 

100 LD-D:G-1 :GOSUB85D0 5035 IF PRS " "" THEN RETURN 
110 LOCATE3,22:PRINT - ÍPÍrDS3eg 5040 HTAB 13: PRINT " PROCURAND 
e [Rletorna [M]enu [C]o O. . r 

rlge [A]paga [I]mprime" 5050 FOR XX - DD TO NR: IF LE 
FTS (AS(XX.CO). LEN (PRS)) - PR 

120 INS-INKEYS:IFINS-""THEN512 $ THEN FL - 1:D - XX: GOSUB 602 
0: GOTO 5200 

130 IN-INSTRU.RS.INS) 5060 NEXT 

140 ONINGOTO5160, 5160. 5170, 518 5070 IF FL - 0 THEN VTAB 21: 
,5190,5200,5210 HTAB 1: CALL - 9S8: PRINT "NAO 
150 GOTO5120 ENCONTREI " ; PRS ; " EM ";NS(CO): 
160 CH-l:D-D+l:GOTO5070 FOR X - 1 TO 5000: NEXT : GOTO 
170 CH — 1 :D-D-1 :GOTO5070 5090 

180 RETURN 5080 VTAB 21: HTAB li CALL - 
190 GOSUB3000 :GOTO5090 958: HTAB 8: PRINT "FIM DE ARQU 
200 GOSUB4000:GOTO5090 IVO ENCONTRADO": FOR X - 1 TO 5 
210 GOSUB10O00:GOTO5070 no0: NEXT 

220 GOTO5110 5090 FL - 0 : PRS - "": RETURN 
230 CLS : LOCATE0 , 15 : PRINT"Não e 5200 IF XX - NR THEN 5090 
contrei " j ZS ; " em ";NS(2) 5210 VTAB 15: PRINT "CONTINUO 
250 F0RF-1TO500 : NEXT : RETURN PROCURANDO " ; PRS : PRINT " EM ": 
-t-i NS(CO);"? (S/N) ";: CET INS 
■J 5220 IF INS * "N" THEN 5090 

5230 IF INS - "S" THEN DD - XX 
000 POKE 34,22: GOSUB 6500 + 1: GOTO 5050 gj 
010 VTAB 23: CALL - 958: PRI 5240 GOTO 5210 
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O TRS-Color (e seus compatíveis na- 
cionais, como o CP-400) possui cinco 
modalidades para elaboração de gráfi- 
cos de alta resolução (PMODE), nume- 
rados de 0 a 4. Eles diferem na resolu- 
ção, no grau de detalhe e nas cores dos 
desenho exibidos. PMODE é uma ins' 
trução BASIC, específica para esses mi 
eros, e significa picture modes (modali 
dades gráficas). Ela estabelece o conjun 
to de cores a ser empregado. Na moda- 
lidade de quatro cores — PMODE 1 ou 
3 — , o conjunto 0 consiste de verde, 
amarelo, azul e vermelho, enquanto c 
conjunto 1 de cores é formado por bran 
co.azul-piscina (ciano), magenia e laran 
ja. Para o conjunto 0 de cores, digite 
comando SCREEN 1,0; para o conjun 
to 1, recorra a SCREEN 1,1. 

A diferença entre PMODE 1 e PMO- 
DE 3 se encontra na resolução da tela 
gráfica que eles utilizam. Resolução grá- 
fica é o número de pixels {picture ele- 
ment ou elemento de figura) que podem 
ser traçados na telae.comoonomediz, 
é a unidade mínima de construção de fi- 
guras. Ele corresponde a um bloco re- 
tangular "aceso"na tela. 

O programa abaixo mostra a capaci- 
dade de trabalho com gráficos de reso- 
lução média do TRS-Color. Do jeito que 
está, ele roda apenas em máquinas com 
gravador cassete. Para executá-lo em 
uma máquina com Disk BASIC, altere 
os endereços nos comandos POKE nas 
linhas 30 e 50, mudando-os de 1800 e 
1 801 para 3584 e 3585, respectivamente. 

10 PMODE3.1:PCLS:SCREEN1.0 
20 FOR 1=1 TO 9 

30 READ A,B:P0KE 1 60 0+ I * 3 2 . A : PO 
KE 1801+I»32.B 
40 NEXT 
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Você já sabe como construir blocos 
gráficos em preto e branco. Aprenda 
agora a colorir seus desenhos em 
micros da linha TRS-Color, empregando 
técnicas mais sofisticadas, 



■ 


COMO UTILIZAR CONJUNTOS 


DE CORES DIVERSAS 


■ 


COMO DEFINIR CORES EM 


BLOCOS GRÁFICOS 


■ 


EXPLORE OS PMODE 



50 FOR K-10 TO 22:POKE 1800+K*3 
2,192:POKE 18Q1+K-32 . 0 : NEXT 
60 GOTO 60 

70 DATA 192.0.213.149.213.149.2 
13.149.234,170,234.170,213.149, 
213.149.213.149 

O programa desenha uma bandeira 
e um mastro na tela. Os códigos dos blo- 
cos gráficos que constituem o desenho 
são especificados em uma linha DATA; 
o programa as lê e coloca os caracteres 
gráficos correspondentes na memória de 
vídeo, através do comando POKE ou 
PRINT@. Desta vez, para que você 
possa ver os blocos gráficos mais clara- 
mente, os códigos são colocados na pá- 
gina de memória de vídeo, a partir do 
endereço 1800, o que os situa no meio 
da tela. Isto ocorre porque a página grá- 
fica usada (PMODE 3) tem seu endere- 
ço absoluto de início na locação 1536. 
O programa não funcionará em máqui- 
nas com BASIC de disco. 

A linha 10 seleciona o PMODE 3 
(conjunto de cores 0) e limpa a tela. As 
linhas 20 a 40 lêem nove pares de dados 
que definem o desenho da bandeira, e os 
colocam diretamente na página de vídeo 
correspondente, através do comando 
POKE. O restante da bandeira é desenha- 
do pela linha 50, que traça o mastro atra- 
vés de dois POKE (códigos 192 e 0), repe- 
tidos 22 vezes. A linha 60 forma um laço 
sem fim, cuja única função é "congelar" 
a tela gráfica. Pressionando < BREA K > , 
você interrompe o programa. 

A principal diferença entre a técnica 
que tínhamos aprendido antes e a utili- 
zada neste programa está nos dados de 
definição da figura. Os códigos estão em 



decimal e foram convertidos a partir de 
um número binário de oito bits. Mas, 
ao invés de bits individuais, que dizem 
ao computador para ligar ou desligar pi- 
xels individuais, os pares de bits estabe- 
lecem agora que cor será atribuída aos 
pares de pixels. No PMODE 1. um par 
de bits diz ao computador para situar 
dois pares de pixels, um abaixo do ou- 
tro na tela. 

A figura 1 mostra como a bandeira 
é feita de pares de pixels: ela é definida 
através de um conjunto de números bi- 
nários de dois bits, correspondentes a 
cada um dos dois blocos de pixels. No 
conjunto de cores 0 você deve escrever 

00 para um bloco de cor verde, 01 para 
um bloco amarelo, 10 para um azul e 1 1 
para um vermelho. Quatro desses núme- 
ros de dois bits compõem cada parte dos 
dados de oito bits. 

Caso tenha escolhido o conjunto de 
cores 1 , digitando SCREEN 1,1 na linha 
10, você terá uma bandeira desenhada 
em branco, dano, magenta e laranja. 
Nesse conjunto de cores você escreve 00 
quando quer um bloco branco opaco, 

01 para um azul ciano, 10 para um bloco 
magenta e 1 1 para um laranja. 




O programa abaixo permite ver o 
efeito que os códigos gráficos em DA- 
TA têm sobre os pixels e as suas cores 
em cada um dos PMODE (rodar apenas 
nos micros com BASIC para cassete). 
10 CLS 

20 INPUT-MODO GRAFICOÍ.0-4) ":MO 



30 MO-INT(MO) :IF MO<0 OR M0>4 T 
HEN 20 

40 INPUT"NUMERO DA TELA(O-l) *; 
ST 

50 ST-INT tST) : IF ST<0 OR ST>1 T 
HEN 40 

60 INPUT "NUMERO (0-255) " : NU 
70 NU-INT(NU) :IF NU<0 OR NU>255 
THEN 60 

80 IF MO<4 THEN LE-2 ELSE LE-1 
90 IF MO<2 THEN DE-2 ELSE DE-1 
100 IF IMO AND 1)-1 THEN SP — 2 E 
LSE SP—l 

110 FOR K-7 TO 0 STEP SP 
120 FOR L»l TO LE 

1- 30 FOR J-l TO DE 

140 IF SP=-1 THEN PP-1358+32* J+ 
(3-K)*LE+L:CO-INT(.5+(NU AND 2" 
K) /2"K) :GOTO 160 

150 PP-1393+32*J+L-K:CO-INT(.5+ 

(NU AND 3*2' (K-l) )/2 - (K-l) } 

160 POKE PP.113-SPM5-t-CO*(14-SP 

)+ST*64 

170 NEXT J,L 

180 POKE PP-32*DE,47+K 

190 POKE PP-32"DE+1+SP.48+K 

200 IF SP--2 THEN POKE PP+31.11 

2- {CO>l> 

210 POKE PP+21.112+(CO AND 1) 
220 NEXT K 

230 PRINT «482. "PRESSIONE QUALQ 
UER TECLA PARA CONTINUAR"; 
240 SCREEN 0.1-ST 
250 AS-INKEYS:IF AS"" " THEN 250 
260 GOTO 10 

O programa lhe pedirá para selecio- 
nar uma modalidade de gráfico (PMO- 
DE) e o número de tela (SCREEN). A 
seguir, digite um número entre 0 e 255. 
Aparecerão na tela as cores e os tama- 
nhos relativos dos pixels, com os núme- 
ros dos bits em cima e os seus equiva- 
lentes binários embaixo. 




N9DO PIXELS 
PMODE 


CONJUNTO DE CORES 


SCREEN 1.0 


SCREEN 1.1 


O " 


preto e verde 


preto e branco 


i :! 


verde, amareio. 


branco, ciano, 




azul e vermelho 


magenta e laranja 


2 


preto e verde 


preto e branco 


3 


verde, amarelo, 


branco, ciano. 




azul e vermelho 


magenta e laranja 


4 


preto e verde 


preto e verde 



i 



4 CÓDIGO DC MÁQUINA 4 
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COMO ENCONTRAR UM LUGAR 
PARA 0 CÓDIGO OE MÁQUINA 

PROGRAMA MONITOR 

SAIBA USAR O MON ITOR 
RODE UM PROGRAMA 



O micro responde automaticamente a 
comandos em BASIC. Nesta lição você 
aprenderá a trabalhar com código 
de máquina, usando um programa em 
BASIC e a instrução POKE. 



Embora o código de máquina seja a 
linguagem de microprocessador, não exis- 
tem meios de colocá-lo diretaraente na 
memória de um computador pessoal. E 
preciso entrá-lo através de um outro pro- 
grama — o que na maioria dos micros 
atuais significa utilizar a linguagem BA- 
SIC para esse programa, pois ela é a úni- 
ca disponível na memória ROM da má- 
quina. Além disso, não podemos man- 
dar o computador executar um progra- 
ma em código de máquina utilizando um 
comando nesse código: é preciso utilizar 
também uma instrução em BASIC. 

Existem programas especiais para 
quem deseja programar diretamente em 
linguagem de máquina (ou seja, utilizan- 
do códigos em hexadecimal). Esses pro- 
gramas são chamados de monitores e 
permitem, entre outras coisas, entrar um 
programa em hexadecimal na memória 
da máquina, executá-lo, listá-lo na tela 
ou na impressora, corrigi-lo, etc. 



Os micros das linhas Apple II + , He 
e IIc, bem como o Micro digital TK-2000, 
em todas as suas versões, têm um pro- 
grama monitor embutido, para trabalho 
■ direto com hexadecimais. O modelo 
| TK-2000 conta ainda com uma vantagem 



adicional: um míni-Assembler disponível 
na ROM do equipamento, que permite 
a programação com códigos mnemóni- 
cos e que pode ser invocado diretamente 
do BASIC, pelo comando MA. 



Os micros da linha TRS-80, conv 
tíveis com as máquinas de Radio Shath 
americanas, modelos III e IV,|têm um 
monitor disponível na memória. Esse 
monitor permite o trabalho direto com 
códigos hexadecimais e é bastante com- 
pleto. Já os micros compatíveis com o 
Modelo I do TRS-80 não dispõem des- 
se recurso, necessitando de um progra- 
ma elaborado em BASIC, especial ou 
disponível comercialmente. 



Essas máquinas não oferecem moni- 
tores ou montadores embutidos na 
ROM. Precisam, portanto, de progra- 
mas externos, que devem ser carregados 
previamente na memória RAM, para o 
trabalho direto com a linguagem de má- 
quina (códigos hexadecimais). 

O instrumento básico para entrar 
uma rotina de máquina é o comando 
POKE. Ele serve para colocar os códi- 
gos de máquina, byte por byte, na me- 
mória do computador, usando endere- 
ços absolutos (isto é, o número real da 
locação de memória, em vez de um no- 
me simbólico de variável, como o As- 
sembler e o BASIC fazem). 

Nos micros compatíveis com Sinclair 
Spectrum, ZX-81, e TRS-80 Modelo I 
(BASIC Nível II, da versão cassete), vo- 
cê não pode usar um hexadecimal com 
o comando POKE, apenas um número 
decimal. Assim, os hexadecimais de sua 
rotina de código de máquina devem ser 
convertidos para decimais, antes de se- 
rem entrados. Já o TRS-Color, os 
TRS-80 Mod. Ill e IV (com o Disk BA- 
SIC), o MSX e o Apple II aceitam he- 
xadecimais no POKE. 



ONDE COLOCAR 0 PROGRAMA 



Antes de entrar um programa em có- 
digo de máquina, você deve decidir on- 
de irá colocá-lo na memória. Obviamen- 
te, não se deve pô-lo em uma área de 
memória utilizada pelo micro, senão o 
seu programa será destruído quando al- 
gum outro na memória ROM entrar em 
açào, ou o computador deixará de fun- 
cionar corretamente, pois terá algum da- 
do alterado pelo seu programa. 

Você também precisa ser cuidadoso 
quando utilizar as áreas de memória 
RAM normalmente reservadas pelo in- 
terpretador BASIC (essas áreas são des- 
critas no manual de operação ou progra- 
mação de seu micro). Como a rotina de 



código de máquina pode ser chamada de 
um programa em BASIC, se um código 
de máquina for gravado nessa área em- 
quanto o programa em BASIC estiver 
sendo rodado, ocorrerão falhas de ope- 
ração, perdas de programa, ou até o 
"congelamento" da máquina. 

Você pode utilizar áreas de memória 
intermediária, como o buffer da inter- 
face para o gravador cassete ou para a 
impressora, se o programa for curto, e 
desde que você não esteja utilizando es- 
ses periféricos. Se você olhar o manual 
de programação do seu computador, ve- 
rá também que alguns modelos têm na 
memória RAM áreas não usadas que 
podem ser empregadas para programas 
curtos em código de máquina. 



Nos micros compatíveis com o Sinclair 
Spectrum, como o Microdigital TK-90X, 
você pode utilizar a área de gráficos defi- 
níveis pelo usuário (UDG) — entre FF58 
e FFFF, no modelo de 48 K — desde que 
ela não esteja sendo utilizada pelo seu 
programa. Mas, normalmente, programas 
em código de máquina são colocados en- 
tre a área de gráficos UDG e o final da 
área BASIC, através da modificação do 
endereço do sistema, chamado RAM TOP 
(e que identifica o maior endereço dispo- 
nível na memória RAM do computador), 
para um valor menor. 

Desse modo, a área para o BASIC fi- 
ca diminuída, mas, como não|pode ul- 
trapassar o endereço armazenado na lo- 
cação RAMTOP, o código de máquina 
é protegido contra qualquer interferên- 
cia por parte do BASIC. 

A RAMTOP é uma variável de siste- 
ma, e sua posição é fornecida pelo apon- 
tador nas locações de memória 5CB2 e 
5CB3. Para movimentar o RAMTOP 
para baixo você precisa apenas colocar, 
com o comando POKE, um valor mais 
baixo nessas duas locações. Mas o Spec- 
trum possui um outro comando BASIC: 
o CLEAR, que faz essencialmente a 
mesma coisa e deve ser seguido pelo en- 
dereço decimal do lugar para o qual vo- 
cê quer que o RAMTOP seja rebaixado. 

O comando CLEAR também limpa o 
arquivo de exibição (ou seja, a tela), da 
mesma forma que um CLS (e todas as va- 
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riáveisl. Além disso, ele restaura a posi- 
ção do comando gráfico PLOT para as 
coordenadas 0,0 — que definem o lado 
inferior esquerdo da leia — , restabelece o 
apontador do comando READ para o iní- 
cio da lista de declarações DATA do pro- 
grama, e zera todos os RETURN ativos. 
Em um TK-90X com 16 K, por exemplo, 
o comando mais usual é: 
CLEAR 31999 

Isso modifica o RAMTOP para 31 999 
ou 7CFF em hexa, deixando 600 bytes 
acima dele — isto é, protegendo a área 
que vai desde esse ponto até o final da 
área de UDG (que está em 32 600) para 
a colocação de programas em código 
de máquina. No modelo de 48 K, o co- 
mando deve ser, neste exemplo: 

CLEAR 6 3999 

O RAMTOP desce, de tal modo que 
d área do BASIC passa a terminar em 
63 999, ou F999 em hexa: você pode, as- 
sim, iniciar o seu programa de código 
de máquina em 64 000 ou FADO em he- 
xa. Na maioria das aplicações isso dei- 
xará espaço suficiente para os seus pro- 
gramas em código de máquina. 

Com programas de código de máquina 
mais longos que o usual, você deve abai- 
xar o RAMTOP ainda mais. Mas isso po- 
de não ser bom na prática: com o RAM- 
TOP tão baixo, não existe espaço nem mes- 
mo para entrar uma linha de BASIC. 




No ZX-81, pode-se abaixar o RAM- 
TOP, alterando as locações de memória 
16 388 e 16 389 por meio de comandos 
POKE, de modo a criar uma área prote- 
gida, onde os programas de código de 
máquina não sejam modificados. O pro- 
blema é que não se pode armazenar em 
fita o programa que estiver nessa área. 

Programas curtos em código de má- 
quina podem ser colocados com POKE 
na memória intermediária (buffer) pa- 
ra a impressora, que ocupa as locações 
de memória de 16 444 a 16 476. Existem 
outras áreas pequenas nas quais você 
pode colocar seus programas em códi- 
go de máquina, mas não é possível 
guardá-los em fita. 

Existem três maneiras de se colocar 
um programa de código de máquina em 
uma área BASIC, protegendo-o contra 
outras gravações: póde-se entrá-lo como 
pane de declarações REM; colocá-lo 
dentro de variáveis alfanuméricas ou 
cordões de caracteres; ou pode-se 
armazená-lo em um conjunto numérico. 

Para entrar um programa em código 
de máquina como parte de uma decla- 
ração REM você deve calcular qual se- 



rá sua extensão (contar os bytes). Então, 
na primeira linha do programa em BA- 
SIC, digite um REM seguido de pontos: 
10 REM 

O número de pontos deve ser pelo 
menos igual ao número de bytes em seu 
programa de código de máquina. 

Em seguida, você deve colocar os có- 
digos do seu programa nas locações de 
memória ocupadas pela declaração 
REM, um byte de cada vez. Isto é feito 
por intermédio da declaração POKE. Se 
sua REM estiver na primeira linha do 
programa em BASIC, a área reservada 
para isso começa na locação de memó- 
ria 16 514. 

Outra maneira de criar um espaço 
protegido é dimensionar um conjunto. 
A linha de programa em BASIC: 

10 DIM AÍ100) 

fornecerá 500 locações livres da memó- 
ria na área de variáveis. Para cada ele- 
mento desse conjunto, o ZX-81 deixa 
cinco locações livres. Se você quiser des- 
cobrir onde começar a armazenar o có- 
digo de máquina neste caso, deverá uti- 
lizar a função PEEK, para obter o va- 
lor armazenado na variável de sistema 
VARS, que está localizada cm 16 400 e 
16 401: 

PR1NT PEEK 16400+PEEK 16401+6 

Isso fornece o endereço inicial da 
área protegida que você criou (as seis lo- 
cações extras de memória contêm deta- 
lhes do conjunto). Você poderá, então, 
usar a instrução POKE para entrar o 
programa em código de máquina, a par- 
tir do endereço reservado. É possível 
também criar espaço em um cordão com 
uma linha BASIC, como: 

10 LET S3-" " 

com tantos pontos quanto bytes no pro- 
grama de código de máquina. Para achar 
o endereço inicial, você deve examinar o 
que tem em VARS e acrescentar 6. As 
seis locações extras de memória, neste ca- 
so, contém o nome do cordão. 

O problema com esses dois métodos 
é que a área das variáveis é apagada 
quando se aperta a tecla CLEAR ou se 
roda o programa em BASIC de novo. 

D 

O modo mais fácil de proteger os 
programas de código de máquina nesse 
computador consiste em utilizar o co- 
mando CLEAR do BASIC. O CLEAR 
também zera todas as variáveis numéri- 
cas alfanuméricas. Usualmente, ele as- 
sume esta forma: 
CLEAR 200.30000 



Ele limita o topo da memória RAM 
(normalmente, em H7FFF ou 32 767 em 
decimal) em 30 000, deixando 2 767 
bytes livres para os programas de códi- 
go de máquina. 

Nesses micros o comando CLEAR 
tem outra função separada, e não rela- 
cionada: a atribuição de espaço de me- 
mória para as variáveis alfanuméricas. O 
primeiro número do comando CLEAR 
fornece o espaço de cordões que deve ser 
reservado para o programa em BASIC. 
Quando a máquina é ligada, o compu- 
tador guarda 200 bytes logo abaixo do 
endereço máximo de memória (RAM- 
TOP) paras as variáveis alfanuméricas. 
Assim, quando você deixar o RAMTOP 
mais baixo, deverá reservar, abaixo de- 
le, também uma quantidade similar (200 
bytes), para os cordões. 

Teoricamente, você pode baixar o 
RAMTOP do TRS-Color até quase o 
topo da área reservada para as telas grá- 
ficas, embora a máquina vá precisar de 
um mínimo de espaço para o BASIC. 

O PCLEAR 1 deixa apenas uma das 
páginas de gráficos; assim, você usa o 
CLEAR para limitar a memória em 
§H3680 (em computadores sem disco, 
apenas). O PCLEAR 8 atribui as oito 
páginas de gráficos, permitindo que se 
reserve memória só até §H3680. Se vo- 
cê não utiliza o comando CLEAR, o 
computador atribui quatro páginas de 
gráficos; assim, você só poderá usar o 
CLEAR até §H1E80. 

Esses limites dependem muito do que 
está dentro da máquina no momento. Se 
existir algum tipo de programa em BA- 
SIC, provavelmente você obterá uma 
mensagem de erro "OM" (out of me- 
mory). Assim, para todos os propósitos 
práticos, trabalhar próximo ao limite não 
será bom, pois você deverá entrar um 
programa BASIC em algum lugar para 
chamar o seu programa de código de má- 
quina. Se você quiser iniciar seu progra- 
ma de código de máquina com um nú- 
mero redondo como 30 000 então digite: 

CLEAR 200.29999 

m 

Para proteger os programas de código 
de máquina neste micro utilize o coman- 
do CLEAR do BASIC. Este limita a me- 
mória RAM máxima, reservando um es- 
paço acima para seu programa em códi- 
go de máquina. O CLEAR também zera 
as variáveis numéricas alfanuméricas. 
Normalmente, ele assume esta forma: 

CLEAR 100.1HE000 

Ele limita o topo da memória RAM em 
57 344, deixando 8 192 bytes livres paraos 
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programas de código de máquina. 

Nesies micros o comando CLEAR 
tem uma outra função separada e não 
relacionada: a atribuição de espaço de 
memória para as variáveis alfanuméri- 
cas, O primeiro número do comando 
CLEAR fornece o espaço de cordões 
que deve ser reservado para o progra- 
ma em BASIC. O computador guarda 
automaticamente 100 bytes abaixo do 
endereço máximo de memória (RAM- 
TOP) para as variáveis alfanuméricas 
quando a máquina é ligada. Se você dei- 
xar o RAMTOP artificialmente mais 
baixo, deverá destinar também uma 
quantidade similar — 100 bytes — abai- 
xo dele, para os strings. 



420 AS-INKE¥S:IF AS""" THEN 420 
430 P-0:IF AS-"S" THEN P — 2 
440 PRINT tP.SA; 
450 FOR M-0 TO 7 

460 PRINT tP,' ";RIGHTS(" "+HEX 
S(PEEK(SA+M)) .2) ; 
470 NEXT : PRINTIP 
480 SA=SA+8 

490 AS-INKEYS:IF AS-"" THEN 490 
500 IF AS-CHRSU3) THEN RETURN 
510 GOTO 440 

600 INPUT "ENDERECO INICIAL ";S 



420 NEXT M 

440 LET SA-SA+S 

445 PRINT tST: POKE 23692,0 

450 LET AS-INKEYS: IF AS-"" 

THEN GOTO 450 

460 IF AS-CHRS 13 THEN RETURN 



510 INPUT "NUMERO DE BYTES? "; 
H 

S20 INPUT "NOME DO ARQUIVO? ". 
LINE NS 

530 IF LEN NS<1 OR LEN NS>10 

THEN GOTO 520 

540 SAVE NSCODE SA.N 

550 RETURN 



UM PROGRAMA MONITOR 



O programa seguinte é um monitor 
simples para auxilio à programação em 
linguagem de máquina. Ele permite que 
você digite códigos de máquina na memó- 
ria do computador, guarde programas de 
código de máquina em fita e examine-os 
na memória. Antes de entrar o programa, 
é necessário dar o comando CLEAR apro- 
priado. Feito isso, o programa é entrado 
e rodado; em seguida, o computador pe- 
de que você forneça um endereço inicial, 
que deverá ser o da memória, acima do es- 
tabelecido em CLEAR. Lembre-se de que 
o comando CLEAR especifica o último 
endereço de BASIC, e o seu programa de 
código de máqui na deverá começar na lo- 
cação acima dele. 

Agora digite o monitor de código de 
máquina para o seu computador. 



10 CLS 

20 PRINT 8193, "1: ENTRAR EM COD 
IGO DE MAQUINA " 

30 PRINT ê257,"2: EXAMINAR MEMO 
RIA " 

40 PRINT «321, "3: GRAVAR BYTES 
NA FITA " 

50 AS-INKE¥S:IF AS<"1" OR AS>"3 
■ THEN GOTO 50 
60 CLS 

70 ON VAL (AS) GOSUB 200.400,600 
80 GOTO 10 

200 INPUT " ENDERECO INICIAL " ; S 
A 

210 LINE INPUT DS 

220 IF DS-"" THEN GOTO 210 

230 IF LEFTS (DS. lí ="i" TTHEN RE 

TURN 

240 SS-LEFTS (DS. 2) 
250 POKE SA.VALC&.H^SS) 
260 PRINT SA , LEFTS (DS . 2 ) 
270 DS-MIDS (DS. 3) 
280 SA-SA+1 : GOTO 220 
400 INPUT "ENDER ECO INICIAL " ; SA 
■410 PRINT"SAIDA PARA IMPRESSORA 

uns/m ' 



EXAMINAR 
3: GRAVAR P 



IF AS<" 



5 POKE 23658,8 
10 PRINT INVERSE 1 ;AT 5,6;" 
MONITOR TK 90 X " 
15 PRINT AT 8.1;"1: ENTRAR EM 

CÓDIGO DE MAQUINA" 
20 PRINT AT 10.: 

MEMORIA" 
30 PRINT AT 12,: 
YTES EM FITA" 
70 LET AS-INKEYS : 
OR AS>"3" THEN GOTO 70 
80 CLS : GOSUB 100+200* (VAL A 
9-U 
90 HUN 

100 INPUT "ENDERECO INICIAL? " 

;SA 

110 INPUT LINE DS 

120 IF DS-"" THEN GOTO 110 

125 IF DS(D-"#" THEN RETURN 

127 IF LEN DS-1 THEN GOTO 110 

130 LET SS-DSd TO 2) 

140 FOR N=l TO 2 

150 IF SS<N)5>"9" THEN LET SS ! 

Nl-CHRS (CODE SStN)-?) 

155 IF SS(N)>"?" OR SS(N)<"0" 

THEN PRINT FLASH 1; "CARACTER 

E INVALIDO": GOTO 110 

160 NEXT N 

170 POKE SA, (CODE SS ( 1) -48) «16 

+CODE SS (2) -48 

160 PRINT SA.DS ( TO 2) 

190 LET DS-DS (3 TO ) 

200 LET SA-SA+1 

210 GOTO 120 

300 INPUT "ENDERECO INICIAL? " 
;SA 

310 INPUT "IMPRESSORA (S/N) ? " 
; LINE PS 

320 LET ST-2: IF PS-"S" THEN 
LET ST-3 

330 PRINT IST;SA; 
340 FOR M-0 TO 7 
350 LET HS-"M" 

360 LET HSU)-CHRS (INT (PEEK 
(SA+M) /16)+48) 

370 LET HS(2)-CHRS (48+PEEK (S 

A+MJ-16MCODE HS(1)-48)1 

380 FOR N-l TO 2 

390 IF HS(N)>"9" THEN LET HS ( 

N)-CHRS (CODE HS(N)+7) 

400 NEXT N 

410 PRINT #ST;TAB 7+3*M;HS; 



Antes de executar este programa, vo- 
cê deve digitar uma linha 1 contendo um 
REM seguido do número apropriado de 
caracteres, de modo a receber seu pro- 
grama em código de máquina (um ca- 
ractere por byte de programa). 

10 PRINT AT 4,9;"MONIT0R TK85" 
15 PRINT AT 8,4; "1 - PROGRAMAR 

EM CÓDIGO" 
20 PRINT AT 10,4;"2 - EXAMINAR 

A MEMORIA" 
50 LET AS-INKEYS 
60 IF AS<"1" OR AS>"2" THEN 
GOTO 50 
70 CLS 

80 GOSUB 100+200MVAL AS-1) 
85 CLS 
90 RUN 

100 PRINT AT 21,0; "ENDERECO INI 

CIAL?" 

105 INPUT SA 
110 INPUT DS 

120 IF DS-"" THEN GOTO 110 

125 IF DS(1)-"S" THEN RETURN 

130 LET SS-DS (1 TO 2) 

135 SCROLL 

140 FOR N-l TO 2 

150 IF SS(NX"0" OR SSÍN)>"F" 

THEN PRINT "CARACTER INVALIDO" 

155 IF SS(N)<"0" OR SS(N)>"F" 

THEN GOTO 110 

160 NEXT N 

170 POKE SA, (CODE SS (1) -28) "16+ 
CODE SS (2) -28 
175 SCROLL 

180 PRINT SA.DSI TO 2) 

190 LET DS-DS (3 TO ) 

195 IF LEN DS-1 THEN GOTO 110 

200 LET SA-SA+1 

210 GOTO 120 

300 PRINT AT 21,0;™ ENDERECO INI 
CIAL?" 

310 INPUT SA 
320 SCROLL 
330 PRINT SA; 
340 FOR M-0 TO 7 
350 LET HS-" " 

360 LET HSID-CHRS (INT (PEEK ( * 
SA+M) /16) +28) 

370 LET HS(2)-CHRS (28+PEEK (SA 



+M)-16*(C0DE HSID-28}) 

■100 PRINT TAB 7+3*M;KS; 

410 NEXT M 

440 LET SA-SA+8 

450 LET AS-INKEYS 

460 IF AS""" THEN GOTO 450 

470 IF AS-CHRS 118 THEN RETURN 

480 GOTO 320 



10 CLS 

20 LOCATE S,7:PRINT "1 - Progra 

30 LOCATE 8.9:PHINT "2 - Examln 

40 LOCATE 8, 11: PRINT "3 - Grava 
r bytes na fita" 

50 AS-INKEY$:IF AS-"" THEN GOTO 
50 

60 CLS 

70 ON VAL(AS) GOSUB 200.400.600 
80 GOTO 10 

200 INPUT "Endereço inicial";SA 

210 LINE INPUT DS 

220 IF DS-"" THEN GOTO 210 

230 IF LEFTS(DS.l)-'*" THEN RET 

UBH 

240 SS-LEFTS(DS,2) 

250 POKE SA. VAL (S.H0+-SS) 

260 PRINT 5A.LEFTS<DS.2> 

270 DS-MIDS (DS . 3) 

280 SA-SA+liOOTO 220 

400 INPUT "Endereço inicial";SA 

410 PRINT "Safda para impressor 

a ? (S/N) " 

420 AS-INKEYS:IF AS-"" THEN 420 
430 IF AS""S" OR A$-"a" THEN OP 
EN "LPT:" FOR OUTPUT AS #1 ELSE 

OPEN "CRTí-FOR OUTPUT AS #1 
440 PRINT fl.SA; 
450 FOR M-0 TO 7 

460 PRINT ";RIGHTS(" "+HEX 

S (PEEK ÍSA+M) ) . 2) ; 
470 NEXT : PRINT li, 
480 SA=SA+1 

490 AS- INKEYS : I F AS""" THEN 490 
SOO IF AS-CHRSU3) THEN CLOSE I 
1 : HETURN 
510 GOTO 440 

600 INPUT "Endereço inicial ";S 
A 

" ;N 



630 XS*"CAS:"+NS 

640 BSAVE XS.SA.SA+N.SA 

650 RETURN 



COMO 0 MONITOR FUNCIONA 



Quando você rodar o programa apro- 
priado à sua máquina, ele exibirá um 
menu onde aparecem as três opções bá- 
sicas de trabalho com o monitor: "En- 
trar Código de Máquina", "Examinar 
a Memória" ou — exceto no ZX-81 — 
"Armazenar Bytes na Fita". 

Se você quiser entrar código de má- 
quina, deverá pressionar a tecla 1. De- 
pois de fornecer um endereço inicial pa- 



ra a máquina e pressionar < ENTER > 
ou < RETURN > . você deve começar a 
digitar os códigos de máquina na forma 
de valores hexadecimais de dois dígitos 
cada. Cada valor deve ser separado do 
seguinte por um espaço em branco. 
Anles de pressionar < ENTER > ou 

< RETURN > você pode entrar tantos 
pares iquantos'desejar. Masé melhordi- 
gitar uma linha por vez e checar rigoro- 
samente os dígitos antes de pressionar 

< ENTER > . E muito mais fácil editá- 
los enquanto eles ainda estão na tela do 
que quando estiverem na memória. 

Você notará que as versões do progra- 
ma para o Spectrum e para o ZX-81 tra- 
duzem seus números hexa para decimais, 
antes de colocá-los na memória. Isto de- 
ve ser feito, como explicamos antes, por- 
que o POKE é uma declaração do BA- 
SIC, e o BASIC nestas duas máquinas 
não aceita números hexa. Mesmo assim, 
é melhor você pensar apenas em hexa 
pois isso lhe dará uma melhor percepção 
de como o computador funciona. 

Você deve finalizar os seus progra- 
mas de código de máquina com um si- 
nal sustenido # ou, no ZX-81, um si- 
nal de dólar. Isso trará o menu de volta 
para a tela. 

Se você selecionar a opção 2 para 
examinar a memória, o programa pedi- 
rá novamente um endereço inicial — 
desta vez é o início da área de memória 
que precisa ser observada. Para exami- 
nar todo o seu programa em código de 
máquina, esse endereço inicial deverá ser 
o mesmo que o endereço inicial que vo- 
cê forneceu anteriormente. 

A seguir, exceto no ZX-81, será pergun- 
tado se você quer imprimir uma cópia de- 
finitiva do programa em código de máqui- 
na na sua impressora. Se você não quiser 
fazer isso, e pressionar N, o programa im- 
primirá o endereço inicial e os conteúdos 
dessa locação e das sete locações de memó- 
ria subsequentes em uma linha na tela. 

Se, ao contrário, você responder à 
questão acima pressionando qualquer 
tecla do teclado — exceto < ENTER > 
ou < RETURN > — , o endereço origi- 
nal será impresso, junto com seus con- 
teúdos e os conteúdos dos sete bytes sub- 
sequentes. Assim, seguindo esse méto- 
do, você poderá imprimir todo o seu 
programa de código de máquina. 

Se você localizar um erro e quiser 
corrigi-lo, pressione < ENTER > ou 
< RETURN >, e o programa retorna- 
rá ao menu. Pressione 1 para entrar o 
código de máquina, e o computador pe- 
dirá novamente um endereço inicial. 
Desta vez, forneça o endereço do byte 
que estiver errado. Se o erro atingir to- 
da uma série, forneça apenas o endere- 
ço do primeiro byte da série; em segui- 



da, entre os bytes corretos. 

Outro modo de fazer correçòes, 
quando existe apenas um erro, consiste 
em acionar a tecla < BREAK > (nos mi- 
cros da linha Sinclair e TRS-Color), ou 
as teclas <CONTROL> <STOP> 
(no MSX), para interromper o progra- 
ma monitor, e usar o POKE de modo 
direto, para corrigir o conteúdo da lo- 
cação apropriada. Lembre-se de que no 
Spectrum e no ZX-81 você deve usar o 
POKE com um número decimal. Assim 
que terminar a correção, pressione 
< ENTER > ou < RETURN > e exami- 
ne mais uma vez a memória para ter cer- 
teza de que dessa vez você acertou. 



GUARDE SUAS ROTINAS 



Se você quiser conserva 
de código de máquina, deverá guardá- 
lo em uma fita separado de seus progra- 
mas de código de máquina, da maneira 
usual. A opção "Armazenar Bytes em 
Fila" no menu do programa monitor 
serve apenas para guardar as rotinas de 
código de máquina que foram entradas 
com o monitor. A única exceção é para 
o ZX-81 , no qual você deve guardar suas 
rotinas de código de máquina junto com 
o programa monitor. 

Nas outras máquinas, se você pres- 
sionar 3, o programa pedirá mais uma 
vez um endereço inicial. Este deverá ser 
normalmente o endereço inicial da roti- 
na de máquina que você acabou de en- 
trar, embora qualquer parte da memó- 
ria possa ser guardada por meio da uti- 
lização de um endereço diferente. 

As versões deste programa para o S - 
pectrum, o TRS-Color e o MSX pedi- 
rão então a você os números de bytes 
que a sua rotina em código de máquina 
ocupa. Você pode calcular isso pela con- 
tagem dos pares de dígitos hexas que fo- 
ram entrados anteriormente. Cada par 
é um byte. Em seguida, você deve en- 
trar um nome para a rotina — assim, o 
seu computador será capaz de identificá- 
lo quando você quiser carregá-lo. A ro- 
tina será gravada pressionando-se as te- 
clas <PLAY> e <RECORD> no 
gravador, antes de acionar a tecla 
< ENTER > do computador. Quando 
a gravação se completar, aparecerá o 
menu na tela, novamente. 



COMO CARREGAR CÓDIGO DE MÁQUINA 



Com o Spectrum, o TRS-Color e o 
MSX a rotina de código de máquina é 
carregada de modo norma] (por exem- 
plo, no MSX deve-se utilizar o coman- ■ 
do BLOAD "CASiROTINA", onde I 
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4 CÓDIGO DC MÁQUINA 4 



ROTINA é o nome dado à rotina quan- 
do esta foi gravada). Contudo, se o mo- 
nitor na memória da máquina estiver ro- 
dando, voei deverá antes disso pressio- 
nar <BR£AK> ou <CONTROL> 
<STOP>. para interrompê-lo. 

Lembre-se de repelir CLEAR para 
proteger uma área de memória para o 
programa em código de máquina, caso 
você tenha desligado a máquina, ou al- 
terado a posição do RAMTOP desde 
que o digitou. 

Com o ZX-81, o seu programa em có- 
digo de máquina será automaticamente 
carregado da fita junto com o monitor. 




Para exemplificar o uso do monitor, 
tente o programa listado abaixo. Com 
exceção dos micros da linha MSX, esse 
programa rola a tela para trás — isto e, 
de cima para baixo e não o contrário. 
Para o MSX, a rotina apresentada ser- 
ve para preencher a tela com traços co- 
loridos (c o mesmo programa apresen- 
tado na primeira lição desta série). En- 
tre a rotina adequada à sua máquina, 
utilizando o programa monitor. Termi- 
ne digitando um sinal # . 



8E 05 E0 A6 84 A7 69 FE 

00 30 88 EO A6 84 A7 88 

20 8C 04 00 2C F3 30 89 

02 01 BC 06 00 25 E4 39 



21 9F 58 11 BF 58 06 0B 
25 15 E5 D5 C5 01 AO 00 
£0 B6 06 02 C5 D5 11 00 
F9 19 DI 01 20 00 ED 88 
E5 21 00 F9 19 EB El 01 
E0 00 EB BB Cl 10 E5 Cl 
Dl El 10 04 21 00 ■ F 06 
08 C5 24 E5 AF 77 54 5D 
13 01 1F 00 ED BO El Cl 

10 EF 21 9F 5A 11 BF 5A 
01 AO 02 ED B8 21 00 58 

11 01 58 3A 8D 5C 77 01 
1F 00 ED BO C9 t 




01 18 03 2A 0C 40 09 54 
5D 01 F7 02 2A 0C 40 09 
ED B8 2A 0C 40 23 36 00 
54 5D 13 01 1F 00 ED 80 



ED 6B 02 03 3E 19 06 
ED B3 3D 20 FA C9 02 
F9 C9 | 



RODE OS PROGRAMAS 



Uma vez digitado o programa cm có- 
digo de máquina c verificados os possí- 
veis erros, chegou o momento de rodá- 
lo. Lembre-se que ele não reagirá ao co- 
mando RUN normal. Para rodar pro- 
gramas em código de máquina, são ne- 
cessárias instruções especiais que variam 
de computador para computador. 



O Spectrum e o ZX-8 1 utilizam a fun- 
ção USR (abreviatura de USer Routine) 
do BASIC, seguida de um endereço ini- 
cial do programa em código de máqui- 
na. O USR faz retornar o valor decimal 
contido no registro interno BC do mi- 
croprocessador, uma vez que se tenha 
completado a execução da rotina em có- 
digo de máquina. Isto não é muito útil 
para voei, no momento, mas significa 
que se esse retorno não ocorrer normal- 
mente o programa em código de máqui- 
na não deve ter rodado corretamente. 

O USR não é um comando, mas sim 
uma função, E a estrutura do BASIC do 
Sinclair exige que uma linha executada 
seja iniciada com um comando. Assim, 
o USR deve ser prefaciado por uma pa- 
lavra de comando, Se você utilizou os 
endereços iniciais sugeridos neste artigo, 
para o Spectrum, faça: 

BANDOMIZE USR 32000 
e no ZX-81 utilize: 

RAND USR 16514 

(observe que a tecla RAND no Spectrum 
fornece RANDOM1ZE na tela. No 
ZX-81 a tecla RAMD fornece RAND na 
tela). Em si próprio, o comando nâo tem 
sentido, mas ele dá resultado quando 
você rodar a rotina em código de má- 
quina. Lembre-se de que a linha acima 
é apenas um exemplo. Troque o núme- 
ro que vem depois de USR pelo endere- 
ço decimal inicial de seu programa, for- 
necido para o monitor quando digitado- 
Na verdade, qualquer comando BASIC 
pode ser utilizado para prefaciar USR. Por 
exemplo, o PRINT USR 32000, embo- 
ra este, na verdade, imprima o valor do 
par de registros BC na tela, e isso sem- 
pre seja desejável. 

RANDOMIZE USR 32000 ou 
RAND USR 16514) é mais utilizado 
porque evita efeitos colaterais indeseja- 
dos. Mas deverá ser evitado se você es- 
tiver utilizando números aleatórios em 
qualquer parte do programa, pois ele irá 
acionar o gerador de números aleatórios 
novamente. Então. utilize no Spectrum: 



eno ZX-81 empregue: 
LST L * USR 16S14 

Isso coloca o valor dos registros BC 
na variável L, quando o programa em 
código de máquina termina de rodar — 
isso pode não ter nenhuma utilidade pa- 
ra o seu programa, mas no Sinclair os 
comandos LET, L, = c USR estão to- 
dos nas mesmas teclas, o que simplifica 
o trabalho de digitar. 



O TRS-Color também possui instru- 
ções para executar programas em códi- 
go de máquina. F.XEC é um desses 
comandos; deve ser seguido pelo endere- 
ço inicial da rotina em código de máqui- 
na que você quiser rodar. Por exemplo: 
EXEC 24000 

rodará a rotina do código de má- 
quina que se inicia na locação de memó- 
ria em 24000 decimal. Existe também a 
função USR, que aceita parâmetros ou 
variáveis para serem passados entre o 
programa BASIC e a rotina em código 
de máquina. Antes de começar, você 
precisa definir onde deve se iniciar a ro- 
tina cm código de máquina. Isso deve 
ser feito por meio da instrução DE- 
FUSR, seguida de um número de 0 a 9. 
Assim, você pode definir até 10 rotinas 
USR diferentes dentro de um programa 
em BASIC. Quando DEFUSR não é se- 
guido de um número o computador es- 
tabelece que seu significado equivale a 
DEFUSR 0. A sintaxe normal em um 
programa BASIC é: 

10 DEFUSRl ■ 24000 

Isso define a rotina USR número 1 , 
como se iniciando na locação 24000 de- 
cimal da memória. 

A função que realmente executa o có- 
digo de máquina é USR. Devido a um 
defeito na ROM, para chamar uma ro- 
tina de código de máquina do TRS- 
Color, USR deve ser seguida de 0 e o nú- 
mero da rotina que você já definiu. 

A sintaxe normal é: 

P - USROl(Q) ou PRINT USA01 (Q) 

A função USR copia o valor da va- 
riável Q no acumulador interno do mi- 
croprocessador. Assim, ela pode ser 
captada e usada pela rotina em código 
de máquina, se for necessário. 

Neste exemplo, quando a rotina em 
código de máquina termina sua execução, 
os conteúdos do acumulador retomam 
ao programa BASIC, como variável P. 

Como em outros casos, variáveis de 
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stríng também podem ser transmitidas 
entre o programa em BASIC e progra- 
mas em código de máquina. 

Para executar programas em código 
de máquina, o MSX utiliza a função do 
BASIC chamada USR (abreviatura do 
USer Routine), seguida de um endereço 
inicial do programa de código de máqui- 
na. A USR retoma o valor decimal con- 
tido em um par de registros internos do 
microprocessador, uma vez que se tenha 
completado a execução da rotina em có- 
digo de máquina. Isto não é muito útil 
para você, no momento, mas, se este re- 
torno não ocorrer normalmente, signifi- 
ca que o programa em código de máqui- 
na não deve tef rodado cor ret a mente. 

A função USR aceita também parâ- 
metros ou variáveis para serem passa- 
dos entre o programa BASIC e a rotina 
em código de máquina. 

Como já foi dito anteriormente, 
USR é uma função e não um coman- 
do. Ora. a estrutura do BASIC do MSX 
impõe que ela esteja contida numa li- 
nha iniciada com um comando. Pode- 
mos utilizar então algo do género: 

P - USR(Q) ou PP.INT USR(Q) 

A função USR copia o valor da va- 
riável Q no acumulador interno do mi- 
croprocessador. Assim, ele pode ser cap- 
tado e usado pela rotina em código de 
máquina, em caso de necessidade. 

Tal como nos exemplos já vistos, quan- 



do a rotina em código de máquina termi- 
na sua execução, os conteúdos do acumu- 
lador retornam ao programa BASIC, co- 
mo a variável P. Para a rotina apresenta- 
da neste programa, é necessário preparar 
a teia gráfica antes de chamá-la, pois ela 
não faz isso internamente. Para executá- 
la, faça o seguinte programa e rode-o com 

0 comando RUN: 

1 SCREEN 1 

2 PSET(0,0) 

3 A-USR(B) 

4 GOTO 4 

Como foi reservado o espaço em 
RAM acima de &HE000, usamos o en- 
dereço inicial - 8 191 ou §HE00l , em he- 
xadecimal, de modo a iniciar o USR. O 



número em decimal c negativo pois é o 
complemento do número decimal que 
normalmente apareceria como negativo. 

Uma observação final para a rotina 
de exemplo para o MSX : ela usa a tela 
gráfica (SCREEN1); por isso.se o lei- 
tor acidentalmente rodar a rotina sem 
o programa dado acima (que retorna 
as coisas ao normal), deverá digitar 
SCREEN O e pressionar a tecla 
< RETUR.N > depois. 
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Todos aqueles Xs e Ys esquisitos nos 
programas tornam-se simples quando 
se entende realmente sua função. 
Aprenda como trabalhar com variáveis 
em seus próprios programas. 



Quando você quiser armazenar uma 
informação qualquer na memória do 
computador, será necessário, identificá- 
la; do contrário, o computador será ca- 
paz de descobrir onde está a informa- 
ção no momento em que você precisar 
dela novamente. Muitas vezes a infor- 
mação que se pretende armazenar con- 
siste em um número cujo valor se mo- 
difica sempre que o computador execu- 
ta uma repetição (laço) em uma seção 
do programa. Abaixo temos um exem- 
plo de uma situação desse tipo: 



10 LET X-0 
20 LET X-X+1 
30 PRINT X; ■ " ; 
40 FOR T-0 TO 10 
S0 NEXT T 
60 GOTO 20 

A linha 60 cria o laço, fazendo com 
que o programa se repita indefinidamen- 
te. O número representado por X (ori- 
ginalmente zerado pela linha 10) atinge 
a linha 20 e é aumentado em 1 . O X é 
chamado de variável numérica, pois ar- 
mazena um número. 

Para entender melhor como funciona 
uma variável numérica, imaginemos que 
a memória do computador é constituí- 
da por uma série de caixas ou comparti- 
mentos. Cada caixa recebe um nome. 
Num computador simples, esses nomes 
poderão ser letras do alfabeto. Para ar- 
mazenar um número na memória, bas- 
tará atribuir esse valor a uma das caixas: 



LET c ' 



25 



Essa instrução armazena o valor 25 
na variável C. Nem todos os computa- 
dores exigem o emprego do comando 
LET, mas é uma boa idéia incluí-lo até 
que você esteja experiente. 

Uma vez armazenado, esse valor po- 
de ser utilizado por outras declarações 
em outros cálculos, etc. Você pode di- 
gitar, por exemplo: 



PRINT C/5 

Essas declarações deverão fornecer as 
I respostas 100 e 5 respectivamente, se 
I continuarmos com o valor definido pa- 



ra C, acima. Mas se você digitar: 
PRINT C 

verá que o valor de C permanece inal- 
terado. Para modificar o valor de C, 
aumentando-o para 30, por exemplo, di- 
gite diretamente: 



LET c • 



Note que a linha de comando acima 
não Faz sentido do ponto de vista mate- 
mático. Entretanto, o comando LET 
não deve ser entendido como uma equa- 
ção, apesar do sinal de igualdade. A de- 
claração acima significa apenas: "tome 
o valor numérico armazenado na variá- 
vel C, some 5 a ele, e coloque de volta 
o resultado na variável C". O que acon- 
tece é que o valor anterior presente em 
C (no caso, 25) é apagado quando ar- 
mazenamos um novo valor na variável. 



OS NOMES DAS VARIÁVEIS 



A combinação de caracteres permiti- 
dos pelo BASIC para se dar nomes às 
variáveis numéricas difere de computa- 
dor para computador. As principais re- 
gras são mostradas no box na página 99. 

Mas uma coisa que nenhum compu- 
tador aceitará é um nome de variável que 
se inicie por um número. Por exemplo: 



LET 7 



14 



não tem sentido. Um nome de variável 
pode incluir números (exemplos: VAR7, 
A1985, etc), mas o primeiro caractere 
precisa ser sempre uma letra. Além dis- 
so, não é permitido utilizar como nome 
de variáveis palavras que representem 
comandos, como TO, THEN, OR ou 
AND, etc. Alguns micros não aceitam 
que essas palavras-chaves façam parte 
do nome da variável: a variável BEND, 
não seria aceita pelo interpretador BA- 
SIC, pois inclui a expressão END. 



VARIÁVEIS EM AÇÃ0 



A maioria, dos programas que você 
escrever utilizará diversas variáveis. Eis 




um programa curto que simula a ação 
de uma bomba "universal" de combus- 
tível (gasolina, álcool, etc.) e que fun- 
ciona de maneira muito interessante: 



■■■■ 



10 LET LITROS-0 
20 LET CRUZ-Q 
30 CLS ! PRINT 

40 PRINT " ESCOLHA O COMBUSTIVE 
L: aLCOOL gASOLINA 

dIESEL ■ 
50 INPUT AS 

60 IF AS-"A" THEN GTY-0 . 3 
70 IF AS-"G" THEN QTY-0 . 2 
80 IF AS-"D" THEN ÇjTY-0.4 
90 CLS 

100 PRINT êl 30 , "COMBUSTÍVEL "| 
AS 
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0 QUE Ê UMA VARIÁVEL? 
COMO SAO UTILIZADAS AS 


■ 
■ 


0 QUE E CORDÃO (STRINGI 
VARIÁVEIS NUMÉRICAS E 




VARIÁVEIS? 




ALFANUMÉRICAS 


■ 


VARIÁVEIS DE CONTROLE 


■ 


CORDOES VAZIOS E 




PARA LAÇOS F0R...NEXT 




PROGRAMAÇÃO DE JOGOS 





110 PBINT §199, "LITROS" 

120 PBINT §256. "PREÇO A PAGAS" 

130 LET K-PEEK<344) 

140 IF K-251 THEN CLS:GOTO 10 

150 IF K-253 THEN LET CHUZ-CRUZ 

+1:LET LITROS-INT(<LITROS+QTY)* 

10) /IO 

160 PBINT §206. LITROS 

170 PRINT §270,CRUZ;"MIL CRUZEI 

HOS" 

200 GOTO 130 

Atenção: o programa listado acima 
rodará apenas nos compatíveis com o 
TRS-Color. Para poder executá-lo tam- 
bém em micros da linha TRS-80, faça 
as seguintes modificações: 

100 PBINT §258 . "COMBUSTÍVEL 
110 PRINT 6365, "LITROS" 



120 PRINT §512, "PREÇO A PAGAR" 
160 PRINT §396, LITROS; 
170 PRINT §526,CRU2;"MIL CRU- 
ZEIROS" : 



10 LET ll 
20 LET cri 
40 PRINT 



45 PRINT "A(lc 



90 CLS 

100 IF INKEYS"= "n" THEN LET cr 

uz-cruz+1: LET litroa-INT ((ll 
tros+qty) -10) /10 
105 PRINT AT 6,2;"COMBUSTIVEL 
" íAS 

110 PRINT AT 9,7; 
120 PBINT AT 9,15: 
130 PRINT AT 12,0; 
AR" 

140 PRINT AT 12.15;cruz;" mi: 

150 IF INKEYS-"f" THEN CLS 

GOTO 10 

200 GOTO 100 



LITROS" 
ítros; 

PREÇO A PAG 



THEN LET <jty-l/ 
THEN LET dty-1 



IF A5-"d" THEN LET qty-1/ 
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20 LET CHUZ-0 

40 PRINT " ESCOLHA O C0MBU5TIV 
EL: " 

45 PRINT "A(LCOOL) G(ASOLIN 
A) D ( IESEL) " 
50 INPUT AS 

60 IF AS""A" THEN LET QTY-1/3 
70 IF AS-"G" THEN LET QTY-1/5 

80 IF AS-"D" THEN LET QTY-1/3 

90 CLS 

100 IF INKEYS<>"N" THEN GOTO 10 
5 

101 LET CRUZ-CRUZ+1 

102 LET LITROS-LITROS+QTY 

105 PRINT AT 6,2; "COMBUSTÍVEL 
" ;AS 

110 PRINT AT 9.7;"LITROS" 

120 PRINT AT 9.15;LITROS; 

130 PRINT AT 12.0;"PRECO A PAGA 

B" 

140 PRINT AT 12,15; CRUZ r " MIL C 
RUZEIROS" 

150 IF INKEYS- "F " THEN RUN 
200 GOTO 100 



5 REM "««TECLE A BARRA DE ESPAÇ 
OS PARA LIGAR A BOMBA E D PARA 
DESLIGA-LA*** 
10 LET LITROS-0 
20 LET CRUZEIROS-0 

30 CLS : LOCATE 1 0 : PRINT "BOMBA DE 

COMBUSTÍVEL" 
40 PRINT:PRINT:PRINT"Escolha O 
aeu combuat ível " 

50 LOCATE 10 . 5 : PRINT"1- álcool" 
60 LOCATE 10.6:PRINT"2- gaaolin 



90 IF C-l THEN P-l/3 . 1 
100 IF C-2 THEN P-l/4.7 
110 IF C-3 THEN P-l/3. 5 
120 CLS 

130 LOCATE 10.5:PRINT"Combustív 
el "iC 

140 LOCATE 10 . 10 : PRINT"Preço a 
pagar ->" 

150 LOCATE 17,12:PRINT"Litros-> 

160 INS-INKEYS : IF INS-CHRS (68) 
THEN END 

165 IF INS<>CHRS<32)THEN 160 
170 CR-CR+1000 : LI-LI+P 
180 LOCATE 26, 10: PRINT CR 
190 LOCATE 26.12:PRINT LI 
200 GOTO 160 



um 



5 REM «"TECLE A BARRA DE ESPA 

COS PARA RODAR A BOMBA E F PARA 
TERMINAR 

10 LET LITROS - 0 

20 LET CRUZEIROS - 0 

30 HOME : HTAB 10: PRINT "BOMB 

A DE COMBUSTÍVEL" 
140 PRINT : PRINT "Escolha o se 
I u combustível : " 



50 PRINT : HTAB 5: PRINT "1- A 
LCOOL* 

60 HTAB 5: PRINT "2- GASOLINA" 
70 HTAB 5: PRINT "3- DIESEL" 
80 VTAB 15: HTAB 10: INPUT "Op 
cao ->";C 

90 IF C * 1 THEN P - 1 / 3.1 
100 IF C ' 2 THEN P » 1 / 4.7 
110 IF C - 3 THEN P - 1 / 3.5 
120 HOME 

130 VTAB 5: HTAB 10: PRINT "Co 
mbuativel ":C » 
140 VTAB 10: HTAB 10: PRINT "P 
reco a pagar ->" 

150 PRINT : HTAB 17: PRINT "Ll 
troa ->" 

160 GET INS: IF INS - CHRS (7 
0) THEN END 

165 IF INS < > CHRS (321 THE 
N 160 

170 CR - CR + 1000:LI - LI + P 
180 VTAB 10: HTAB 26: PRINT CR 
190 VTAB 12: HTAB 26: PRINT I 
NT (LI * 100 + .5) / 100 
200 GOTO 160 

Vale a pena experimentar esse pro- 
grama de muitas maneiras, até entender 
como ele funciona, pois há nele um con- 
junto razoável de variáveis. 

A função de algumas delas é bastan 
te evidente: a variável A, por exemplo, 
seleciona o tipo de combustível, através 
de um numero (1 , 2 ou 3) e determina, 
nas linhas 60 a 80, qual é a fração de li- 
tro do combustível escolhido que vale 
mil cruzados. 

A tecla N aciona a bomba que mede 
o fluxo de combustível. O programa 
começa então a incrementar o número 



de litros de combustível (variável 
CRUZ, inicialmente zerada na linha 
20, bem como a variável LITROS). 
Enquanto a tecla N estiver sendo pres- 
sionada, o programa continuará avan- 
çando; ao atingir a linha 200, ele re- 
tornará à linha 130 (100 no Speccrum), 
e manterá o medidor funcionando. Pa- 
ra terminar de abastecer, pressione a 
letra F. 

A presença na tela de fraçÒes deci- 
mais com muitos dígitos revela a impre- 
cisão própria do computador, quando 
é feita a conversão de números binários 
internos, para decimais comuns. 



VARIÁVEIS DE CONTROLE 



Assim como são utilizadas em decla- 
rações LET, as variáveis também podem 
aparecer em laços FOR...NEXT, como 
você já deve ter percebido. Neste caso, 
a variável que é alterada a cada repeti- 
ção do laço é chamada de variável de 
controle. 

Em alguns computadores, os carac- 
teres empregados para dar nome às va- 
riáveisde controle não podem ser aplica- 
dos a variáveis numéricas (veja quadro). 
Nos micros da linha Sinclair, por exem- 
plo, você pode digitar: 



para variáveis numéricas, mas não po- 
de utilizar nomes como estes em instru- 
ções FOR...NEXT, tais como em: 
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FOR TEMPO - 1 TO 99999 

Ao invés disso, você é obrigado a em- 
pregar a variável de controle com uma 
única letra, como por exemplo T. Os ou- 
tros computadores (linhas TRS, Apple 
e MSX) não têm essa exigência. 



VARIÁVEIS ALFANUMÉRICAS 



E se, além de números, quisermos ar- 
mazenar na memória do computador in- 
formações como nomes, endereços, etc? 

As variáveis capazes de armazenar um 
conjunto de caracteres, incluindo letras 
e números, são chamadas de variáveis al- 
fanuméricas, em BASIC. Outra denomi- 
nação usada é a de cordão (ou string, em 
inglês). Para facilitar a compreensão des- 
se novo elemenio, podemos partir de 
uma comparação: um cordão funciona 
como uma espécie de sacola de compras. 
Você pode enchê-la com um grande nú- 
mero de artigos e manejá-la como uma 
unidade — sem ter que ocupar-se com 
cada artigo separadamente. Da mesma 
forma, um único nome de variável alfa- 
numérica serve para caracterizar várias 
memórias, simultaneamente. 

Os cordoes podem conter quase tu- 
do: letras, números, sinais de pontua- 
ção, espaço em branco, e até mesmo ca- 
racteres gráficos. Eles devem estar sem- 
pre delimitados entre aspas 

"NOMES E ENDEREÇOS DE 
CLIENTES". 

"POR FAVOR ENTRE AGORA SUA 
RESPOSTA" 



"NE 135 S 181" 

O exemplo seguinte também é um 
cordão, embora apenas alguns compu- 
tadores, como o Spectrum, o TK-2000 
e o MSX, permitam que se possa digitá- 
los desta forma diretamente no teclado: 

A linguagem BASIC tem recursos pa- 
ra manipular cordões alfanuméricos de 
diversas maneiras. Por exemplo, existem 
funções e operações para juntar dois ou 
mais cordões uns nos outros (operação 
de concatenação), ou para dividi-los em 
dois ou mais subcordões . 

Entretanto, o computador não "en- 
tende" o que está dentro de um cordão 
e reproduz o conteúdo deste sempre de 
forma exatamente igual, mesmo que ele 
esteja escrito em sânscrito ou alemão. 

Não é possível, também, efetuar opera- 
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No Spectrurr 
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reconhecidas. 



□ permitidos. 



reconhecidas. 

No TRS-Color, só 

las No TRS-80 
hâ conversão au 



Caracteres espe 

nâo permitidos. 

Espaços no no- 
me: não permiti- 

Variável numéri- 



cas, seguida de 
DEFSTR CI3 



Mi 



Caracteres espe 
não permitidos. 
Espaços no no 



DE D3 



Caracteres aspe 
não permitidos. 
Espaços no no- 



Variável numêri- 



ções matemáticas com um cordão, como 
somas, multiplicações, divisões e outras. 

Para provar isso, rode o programa 
abaixo: 

ti ■ í/,'íhB5S 

10 PRINT "2+2- " ; 
20 FOR N-l TO 40 
25 NEXT N 
30 PRINT 1+2-2 

O conteúdo do cordão (entre aspas) 
é impresso como você o entrou. Na ver- 
dade, somente a linha 30 é calculada, e 
seu resultado, impresso (a linha 20 simu- 
la o tempo que o computador está "gas- 
tando" para pensar, antes de fornecer 
sua resposta). No MSX, no Apple e no 
TRS-80, modifique 40 para 2000, para 
um retardo razoável de tempo. 

Mas se quiser utilizar o mesmo cor- 
dão mais de uma vez, pode economizar 
tempo de digitação (e espaço em memó- 
ria) criando um rótulo para ele. Esse ró- 
tulo é chamado também de variável al- 
fanumérica. Sua extensão pode variar de 
um computador para outro (veja qua- 
dro) mas a variável deve ser sempre se- 
guida por um sinal de cifrão ($). 

Eis aqui, por exemplo, um sistema au- 
tomático de pedidos em uma lanchonete: 



DEDSMQEIE 



10 LET AS-"POR FAVOR, DIGITE QU 
ANT0S" 

VOCE QUER" 
'HAMBURGERES" ; BS 



20 LET 
30 PRINT AS; 
35 INPUT H 
40 PRINT AS 



SACOS DE FRITAS" 



45 INPUT S 

50 PRINT AS;" MILK SHAKES";BS 
55 INPUT M 

60 PRINT "OBRIGADO. IRA CUSTAR 
" ; ( H " 15000+S-5000+M* 13000) ; 
" POR FAVOR." 

A possibilidade de reduzir o tamanho 
dos programas é a razão pela qual sis- 
temas de processamento de dados e de 
textos — que incluem informações e 
mensagens muito utilizadas, tais como 
"número da conta do cliente" e "pre- 
ço por milhar" e "18% de ICM" — uti- 
lizam variáveis alfanuméricas. 

Você também poderá empregá-las na 
programação de jogos. Suponhamos que, 
em um jogo, seja necessário a todo mo- 
mento colocar na tela uma linha enorme 
de símbolos gráficos — o muro de uma 
prisão para um jogo de aventuras, por 
exemplo. Tudo o que você precisa fazer 
é digitá-lo uma única vez, "rotulá-lo" e 
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20 LET AS=B$+" UMA FELIZ PASÇO 

A PARA VOCES"+BS 

30 FOR N-l TO 65 

40 PRINT ei60.MIDS(AS.N.32) 

50 PRINT §320,MIDS(AS.66-N,32) 

60 SOUND N*3,1:NEXT N 

80 GOTO 30 

Para rodar o programa acima nos mi- 
cros da linha TRS-80, substitua as linhas 
40, 50 e 60; assim: 

40 PRINT e320,MID$(AS,N,32) 
50 PRINT e640,MIDSÍA3.66-N.32) 
60 NEXT N 



10 LET BS = " 

20 LET A3-BS+" UMA FELIZ 
PÁSCOA P ARA VOCÊS "+BS 
30 FOR N-l TO 65 
40 PRINT INK 2;AT 8.0;AS(N 
TO N+31) 

50 PRINT INK 2;AT 12,0;AS(66 

-N TO 97-N) 

60 SOUND .02. N/2 

70 NEXT N 

60 GOTO 30 



10 LET BS-" 

20 LET AS-BS+" UMA FELIZ PA 

SCOA PARA VOCÊS "+8S 

30 FOR N-l TO 65 

40 PRINT AT 8.0;AS(N TO N+31) 

50 PRINT AT 12.0;AS(66-N TO 97 

-N) 



A PARA UOCES " + BS 

40 FOR N-l TO 80 

50 LOCATE 0,7:PRINT MIDS(AS.N,3 

9) 

60 LOCATE 0,14:PRINT MID5(AS,81 
-N, 39) 

65 FOR X-l TO 50 : NEXT 
70 NEXT 



utilizá-lo sempre que quiser. 

Movimente esse cordão por toda a te- 
la, como mostramos no programa: 



10 CLS : CLEAR 1000 
20 BS-SPACES (40 ) 

30 AS-BS+" UMA FELIZ PASÇO 



" : REM 40 ES 

PAÇOS 

30 A$ - B$ + " UMA FELIZ 

PÁSCOA PARA UOCES " + BS 

35 INVERSE 

40 FOR N-l TO 80 

50 VTAB 7; PRINT MIDS (AS.N,4 

0) 

60 VTAB 14: PRINT MIDS (AS, 81 

- N.40) 
65 FOR X - 1 TO 100: NEXT 
70 NEXT 
80 GOTO 40 

Aqui você tem um cordão enorme, co- 
mo mostramos na linha 20 — todos os 
espaços na linha 10, mais a mensagem, 
colocados juntos. Mais adiante, veremos 
como isso é feito, e como o cordão é 
"cortado" novamente para caber na te- 
la. Mas, se nesse meio tempo você qui- 
ser modificar a mensagem, certifique-se 
de que sua nova declaração, incluindo os 
espaços, tem a mesma extensão da origi- 
nai. De outro modo você terá que desco- 
brir o que significam os números nas li 
nhãs 40 a 55 e modificá-los. 

As variáveis alfanuméricas são tam 
bém muito empregadas quando o pro- 
grama precisa entrar uma informação 
que é sempre modificada. Por exemplo: 

10 PRINT "QUAL E O SEU NOME " 

20 INPUT NS 

30 PRINT "ALO, " ;NS 

Neste programa a linha 10 imprime 
o seguinte cordão na tecla: QUAL É O 
SEU NOME, seguido por um ponto de 
interrogação. O computador espera que 
você entre um nome (um outro cordão) 
e o chama de NS. Na linha 30, ele im- 
prime o cordão "ALO", e chama de 
volta o cordão NS armazenado na linha 
acima. Assim será exibido na tela: 
ALO , TOM ( ou PAULO ou PEDRO ) 
ou qualquer outro. Observe que, aqui, 
os cordões QUAL É O SEU NOME e 
ALO não são armazenados dentro de 
variáveis, tais como A$ ou QUE$ ou 
ALOS, porque eles aparecem apenas 
uma vez no programa, e o computador 
não precisa se lembrar do que seja ALO 



— quando ele atinge a linha 20 simples- 
mente lê esse cordão e o imprime. 

Ao mesmo tempo, é necessário dar 
um rótulo para o nome que vai ser en- 
trado. Assim, ele poderá ser diferente ca- 
da vez que o programa for rodado. Ele 
é armazenado em uma variável, na linha 
20 do programa, e usado na linha 30. 

Existem computadores que admitem 
uma forma mais curta e mais clara de 
programação da declaração INPUT, 
através da combinação do PRINT 
"mensagem" da linha 10, com o IN- 
PUT da linha 20: 



Outro modo de trabalhar com variá- 
veis alfanuméricas já foi mostrado an- 
teriormente na lição "Apontar. ..Fogo!" 
(págs. 28 e 33 ). Embora varie de com- 
putador para computador a forma de 
escrever uma variável, nesse caso, é esta: 

20 IF AS ■ THEN GOTO 10 

As duas aspas sem nada entre elas são 
conhecidas como um cordão nulo ou va- 
zio. A linha de programa significa: "se 
a entrada for igual a nada" — isto é, se 
nenhuma tecla estiver sendo pressiona- 
da — "volte para a linha 10 e espere até 
que uma tecla seja pressionada". Isto 
evita que o computador salte para outra 
parte do programa tão rapidamente que 
o jogador não tenha tempo de pressio- 
nar uma tecla de comando qualquer, ou 
de ver um resultado ou gráfico na tela. 

Duas aspas com um espaço em bran- 
co entre elas, no entanto, são uma coi- 
sa muito diferente. Se você modificar a 
linha: 



2 0 IF as ■ 



THEN GOTO 10 



o programa retrocederá à linha 10 ape- 
nas se o caractere entrado pelo jogador 
for um espaço — isto é, se ele estiver 
pressionando a tecla de espaço. 



5 mOGKAMAÇÃODÍJOOOS 5 




■ 


IDEIAS PARA UM ■ 


COMO DESENHAR NA TELA 




JOGO ESPACIAL 


OS ELEMENTOS DO JOGO 



INCLU A MOVIMENTO 
MÍSSEIS: ELEMENTO DE PERIGO 
COMO CONTROLAR O JOGO 



Batalhas interplanetárias foram sempre 
um dos pratos fortes dos livros de 
ficção cientifica, inspirando até mesmo 
a estratégia de "Guerra nas Estrelas" 
proposta por Ronald Reagan. No 
computador, elas podem ser tema de 
um jogo fascinante. 



Os jogos para micros ficam muito 
melhores quando os recursos gráficos de 
alia resolução do computador são bem 
aproveitados. Esses gráficos permitem 
cenas muito mais delalhadas do que os 
simples caracteres ASCII (ou gráficos de 
baixa resolução), com os quais apren- 
demos a lidar até agora. Evidentemen- 
te, os programas que utilizam gráficos 



de alta resolução são bem mais comple- 
xos do que aqueles que trabalham ape- 
nas com os caracteres pré-programados 
do teclado, mas os resultados certamen- 
te valerão o esforço. 

Muitos jogos para computador do ti- 
po videogame envolvem oponentes, in- 
vasores extraterrestres ou outros adver- 
sários que revidam os disparos ao invés 
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de esperarem tranquilamente que você os 
aniquile. 

Agora, vamos ver um jogo chamado 
Estação Espacial, adequado a todos os 
tipos de computador (com exceçào do 
ZX-81 e do Apple II). que vai ensiná-lo 
a fazer rotinas gráficas para movimen- 
tar aleatoriamente uma nave extraterres- 
tre inimiga na tela, bem como lançar 
mísseis contra um alvo — no caso, a es- 
tação espacial controlada por você. 

O jogador dispõe de 4 blindagens que 
poderá utilizar para se proteger dos ata- 
ques dos mísseis inimigos. Entretanto, 
você não pode mantê-las "ligadas" du- 
rante todo o tempo, pois a quantidade 
de combustível destinada a alimentar 
sua potência é limitada. 

Para tornar o jogo mais difícil, o pro- 
grama não só movimenta a nave inimi- 
ga de um lado para o outro, mas pode 
também fazê-la desaparecer subitamente 
dentro do hiperespaço e reaparecer em 
algum lugar inteiramente inesperado. 

Do modo como foi descrito, o jogo 
não está realmente completo; assim, na- 
da existe nele para medir a passagem do 
tempo e os pontos, o que pode diminuir 
o interesse pelo combate. Mas isso po- 
de ser facilmente resolvido utilizando- 
se os métodos explicados nas páginas 61 
a 67. 

Embora a nave extraterrestre seja 
bem parecida com as dos fliperamas, a 
estação espacial é apenas um esboço. 
Você pode replanejá-la, se quiser gastar 
meia hora de modo interessante, utili- 
zando para isso gráficos que você mes- 
mo definirá. Os proprietários de micros 
da linha MSX podem ainda trabalhar 
com gráficos programáveis chamados 
sprites, que explicaremos em detalhes 
mais adiante. No entanto, mantenha o 
gráfico da sua nova estação espacial 



dentro da área utilizada por aquela de- 
finida neste jogo. Caso contrário, as 
blindagens defensivas poderão ser su- 
perpostas, tornando necessárias modi- 
ficações mais drásticas do programa. 



Digite e execute o programa abaixo: 

10 PCLEAR 4:PM0DE 4.1:PCLS 

15 SCHEEN 1 , 1 

20 DIM AL(6) ,BL(6) ,BO{4) 

30 DEFFNZ{X]-SGN<X)*SÇjfi(V*V*X*X 

/ ( (127-AX)* (127-AX) +(95-A¥) * (95 

-AY))) 

40 LET PW'250 

50 FQP. 1-0 TO 7 : BEAD A:POKE 153 

6+-I*32,A:NEXT I 

60 GET (0,0) -(7,7) , AL.G 

65 GOTO 65 

250 DATA 24.126,90,126,126,195. 
129,129 

Você verá a nave espacial extraterres- 
tre aparecer na tela. 

Os gráficos de alta resolução são 
apresentados na linha 10. Neste estágio 
a tela é ligada na linha 15; assim, você 
poderá ver como o programa funciona, 
porém, mais tarde, quando o jogo esti- 
ver completo, a linha será removida. 

Os conjuntos que conterão a nave ex- 
traterrestre (AL), o míssil (BO) e um 
bloco em branco (BL) são dimensiona- 
dos pela linha 20. A linha 30 utiliza a 
expressão DEITN que significa DEFi- 
ne a FuNctiort. Caso seja necessário em- 
pregar com frequência uma longa ex- 
pressão matemática no programa, a fun- 



sentido diag 



\ imanar um ir 
no video. A linha 40 estabelece na tela 
a posição final de um indicador de com- 
bustível. 

A linha 50 desenha a nave na tela, len- 
do os códigos gráficos correspondentes 
através de instruções READ e DATA na 
linha 250, e colocando-os na página de 
vídeo, no canto superior esquerdo da te- 
la, com comandos POKE. A linha 60 usa 
a função GET para capturar esse padrão 
gráfico definido pelo bioco que vai de 0.7 
a 7,7 na (ela, e armazená-lo no conjun- 
to denominado AL. 

A linha 65 também é temporária. Tu- 
do o que ela faz é manter a tela "con- 
gelada", de modo que se possa ver o re- 
sultado do processamento feito pelas li- 
nhas anteriores. Ela será removida mais 
tarde, quando o resto do jogo for acres- 
centado ao programa. 



Agora, remova a linha 65. digitando 
o número 65 seguido de <ENTER>: 
depois, acrescente essas linhas e to ' 
programa. 



pçâo predefinida o poupara de digita-la 

r diversas vez.es em diferentes pontos do 

-programa. Ela funciona, portanto, co- 
I mo uma espécie de sub-rotina em uma 

linha só. A expressão matemática na li- 
Ktiha 30 é chamada de KNZ e será utili- 

zada mais tarde no programa para mo- 



1 J=0 TO 4 : BEAD A-POKE 153 
!.A:NEXT J 
I GET (0,0)-(4,4) .BO.G 
85 GOTO 85 

260 DATA 32.112.248.112.32 

O míssil que será lançado pelo E.T. 
é lido em conjunto de códigos em DA- 
TA, e desenhado com o auxílio de co- 
mandos POKE no canto superior esquer- 
do da tela. Da mesma forma que ante- 
riormente, usamos GET para registrar 
essa forma no conjunto BO. 

Não importa que o foguete desenha- 
do na leia se sobreponha ao desenho an- 
terior da nave inimiga, deixando ainda, 
aparentemente, vestígios dela, pois a li- 
nha 80 apenas memoriza com o GET a 
área ocupada pelo míssil e não os seus 
arredores. 
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CONSTRUA A ESTAÇÃO ESPACIAL 



Remova a linha 85, digitando 85 se- 
guido de < ENTER > , acrescente essas 
linhas, e depois execute o programa. 

90 LET AX-RND(24B)-1:LET AY-RND 

(17B>+5 

100 PCLS 

110 CIRCLEU27.95) . 12 , 5 : DRAWBM 
127,95 :C5S4BNUNLNDNR" 
115 GOTO 115 

A linha 90 escolhe uma posição alea- 
tória para a nave E.T. A linha 100 lim- 
pa a tela e a linha 1 10 desenha a esta- 
ção espadai, que é simplesmente um cir- 



A linha 140 exibe o indicador cheio 
de combustível para as blindagens, uti- 
lizando um método rápido para dese- 
nhar retângulos. Usamos a instrução LI- 
NE para traçar uma linha no alto da te- 
la, indo da posição extrema esquei" 1 """ 
(coordenadas 25,1) até ; 



HnlO (comando C1RCLE). O comando 
' DRAW, no final dessa linha, traça uma 
cruz bem no meio da estação espacial. 
Bssc comando* DRAW) pode ser imagi- 
nado como uma sucessão de declarações 
LINE, como já se explicou na lição an- 
terior de programação BASIC. Ele será 
melhor explicado numa lição posterior. 



DESENHE 0 INDICADOR DE COMBUSTÍVEL 



Remova a linha 115 do mesmo mo- 
do que removeu as linhas 65 e 85. Acres- 
cente essas linhas e aparecerão na tela 
maiores detalhes gráficos. 



130 DRAWBM5 , 1 i L4D2NR4D28E4BR2D 
4R3U48R5L3D2NR3D2R3BE4D4R3" 
140 LINE (25 , 1 ) - (PW , 5) , PSET , BF 
145 GOTO 145 

A linha 120 traça na estação espacial 
um número que corresponde ã quanti- 
dade de blindagens. Na linha 130 mos- 
tramos a palavra FUEL (combustível). 
Infelizmente, o TRS-Color não conse- 
gue escrever caracteres normais numa 
tela gráfica de alta resolução; por isso, 
letras e números devem ser literalmente 
"desenhados" com comandos DRAW. 



combustível no momento (assinalada 
peta variável PW). O comando PSET 
diz ao TRS-Color para traçar essa linha 
em branco opaco e. deste modo, esta- 
belece a cor. BF é uma abreviação para 
box fill í 'preencher a caixa) e "pinta" o 
retângulo com a cor utilizada pela linha 
original. Sc você quiser traçar um retân- 
gulo vazio, utilize B ao invés de BF. Es- 
tão agora completos os gráficos de alta 
resolução para o jogo. O resto do pro- 
grama está relacionado com o movimen- 
to do E.T. e do míssil e a ativação das 
blindagens. 



MOVIMENTE A NAVE INIMIGA 



Existem três sub-rotinas que devem 
ser acrescentadas ao programa. A pri- 
meira diz respeito ao movimento da na- 
ve inimiga. Digite-a, mas não a rode ain- 
da porque não acontecerá nada. 

1000 LET LX-AX : LET LY-AY 

1010 IF RND(10)=1 THEN LET AX-R 

ND(248)-1:LET AY-RND ( 1 7B) +5 

1020 LET AX-AX+RND(15)-8:LET AY 

-AY+RND(15)-B 

1030 IF AX>103 AND AX<144 AND A 
Y>71 AND AY<112 THEN LET AX-LX: 
LET AY-LY 

1040 IF AX<0 THEN LET AX--AX 
1050 IF AX>248 THEN LET AX-497- 
AX 



AY 

1060 PUT (LX , LY) - (LX + 7 , LY+7 ) , BL , 
PSET 

1090 PUT (AX , AY) - (AX+7 , AY+7) , AL . 
PSET 

1100 RETURN 



^ A nave E.T. (extraterrestre) é contro- 
lada de forma semelhante à base de mís- 
seis da lição Apontar... Fogo! (páginas 
28 a 33). A linha 1000 iguala as coorde- 
nadas da última posição da nave às 
coordenadas da posição atual, antes que 
cia seja movimentada. 

A linha 1010 escolhe um número 
aleatório para que a nave inimiga possa 
mudar de posição na tela. Se esse núme- 
ro for 1 (ou seja, em 10^o das vezes, em 
média), então o E.T. saltará para uma 
nova posição na tela. Se o número não 
for 1, será escolhida uma nova posição 
para a nave, distante entre -7 e + 7 pon- 
tos na direção X (da esquerda para a di- 
reita), e entre -7 e +7 pontos na tela, 
na direção Y (de cima para baixo) — ve- 
ja a linha 1020. A linha 1030 impede que 
a nave E.T. sobreponha-se à estação es- 
pacial, enquanto as linhas 1040 a 1070 
não permilem que ela saia para fora da 
tela. 

A nave invasora é apagada na linha 
1080, colocando-se uma série de gráfi- 
cos em branco nas últimas posições; em 
seguida, ela é posta na nova posição pela 
linha 1090. A linha 1 100 retorna o pro- 
grama à linha 160, que, a propósito, ain- 
da não foi inserida. 



COMO DISPARAR OS MÍSSEIS 



A próxima-sub-rotina serve para de- 
cidir, em primeiro lugar, se o míssil de- 
ve ser disparado ou não. Caso ocorra o 
disparo, ela estabelece a posição do mís- 
sil na tela e define com que blindagem 
a defesa vai bloqueá-lo. 

2000 IF RND(7)<>1 THEN RETURN 
2010 V-RND(8)+5:DX-FNZC127-AX) : 
DY-FNZ(95-AY) 

2020 IF DXO0 AND DY>-0 THEN LE 
T HA- 1: GOTO 2050 

2030 IF DX<-0 AND DY<-0 THEN LE 
T HA-2:GOTO 2050 

2040 IF DX>-0 AND DY<-0 THEN LE 

T MA- 3 ELSE LET MA-4 

2050 LET MX-AX : LET MY-AY 

2060 PUT(MX.MY)- (MX+4.MY+4) ,BO, 



OR 

2070 LET AF-1 : RETURN 
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240 GOTO 160 

Antes de rodar o programa, remova 
as linhas 15 e 14 .\ lc\[o h>o, você não 
Verá O que esta se desenvolvendo na te- 
la durante a definição dos blocos gráfi- 
cos. Rodado o programa ocorrerá uma 
curta pausa, antes que uma exposição 
completa apareça na tela. 

A tela gráfica é agora ligada pela li- 
nha 150. A linha 160 checa se um míssil 
foi disparado. Se AF = 0, isso quer di- 
zer que não houve disparos, eoprogra- 
ma salta para a sub rotina que se refere 
ao lançamento do míssil, que começa na 
linha 2000; ou enião o programa pula 
para a sub-rotina que mm imcma o mis- 
ita ultima começa na linha 3000. 
is, a nave E.T. movimenta -se. -\ 



A linha 2000 decide se dispara um 

míssil. Existem seis chances em uma de 

que ele seja disparado, mas, se já há um 

míssil na tela, o programa não pode dis- 
parar outro. Se um foguete não puder 
ser disparado, a sub-rotina terminará. 

A linha 2010 estabelece a extensão do 
deslocamento do míssil na tela — você 
pode pensar em V como se fosse a sua 
velocidade. O conteúdo de V é passado 
para afunçâo FNZ — definida na linha 
30 — de modo a calcular a nova posi- 
ção do míssil na tela. 

As linhas 2020 a 2040 averiguam o 
ponto em que o míssil está na tela e tam- 
bém a blindagem necessária para blo- 
quear o míssil — MA é o ângulo de des- 
locamento do míssil. 

A linha 2050 inicia a irajetória do 
míssil a partir da posição da nave ini- 
miga F a linha 2060 coloca o foguete 
na tela ames de a linha 2070 definir a 
variável sinalizadora AF= 1, que diz ao 
programa se um míssil foi disparado. 
Uma mv concluídos esses passos, a sub- 
rotina termina. 

A sub-rotina finai vai da linha 3000 
á 3070. Digite as linhas, mas novamen- 
te nada acontecerá se você rodá-las. 

3000 .PUT(MX.MY) - (KX+4 , MY+4) , BL , 
PSET 

3010 LET MX-MX+DX:LET MY-MY+DY 
3020 IF MX>110 AND MX<140 AND M 
Y>79 AND MY<108 THEN GOTO 3050 
■ 3030 PUT{MX,MY)-(MX+4,MY+4) ,BO. 
OP. 



3040 RETURN 
3050 IF SH'(MA)-0 THEN GOTO 3070 
3060 LET AF-OrBETUBN 
3070 CLS : PRINT 0256 , "BANG ... SUA 
BLINDAGEM ESTAVA DESLIGADA!" 

O míssil é apagado pela linha 3000, 
e sua nova posição é computada pela li- 
nha 3010. A linha 3020 verifica se o mís- 
sil já atingiu a blindagem. Se isso não 
aconteceu, o programa pula rapidamen- 
te para a linha 3050, verificando se a 
blindagem correia estava posicionada. 
Quando nenhuma blindagem é encon- 
trada no caminho do foguete, o progra- 
ma limpa a tela e termina com a mensa- 
gem: "BANG! ... SUA BLINDAGEM 
ESTAVA DESLIGADA". 

Se o míssil ainda não atingiu o pon- 
to esperado para alcançar as blindagens 
da estação espacial, a linha 3050 o co- 
locará rapidamente em nova posição 
com o comando PUT. 

A linha 3040 finaliza a rotina. Para 
terminar, as seguintes linhas completam 
o nosso programa: 

150 screen 1 , 1 

160 if af-0 then gosub 2000 els 

E GOSUB 3000 
170 GOSUB 1000 
180 FOR J-l TO 4 

190 LET PE-PEEK ( 336+J) : IF Ptf<25 

THEN LET PE-225 
200 IF <255-PE)/160SH(J) THEN 
LET SH(J) -1-SH (J) :CIRCLE(127.95 
) , 16,5*SH(J) .1, (J42J/4, (J+3J/4 
21C IF SHIJJ-1 THEN LET PW-PW-2. 



linha 1 7(1 la/ com que o programa s, 

para a sub-rotina na linha 1000. 

A parte do programa das linhas ISO -1 ! 

a 220 diz respeito à ativaçào das blin- 
dagens. A linha 190 verifica que tecla es- 
tá sendo pressionada. Se a tecla for um 
número de 1 a 4, a linha 2000 desenha- 
rá a blindagem; se alguma das blinda- 
gens for acionada, a linha 210 diminui- 
rá o combustível. 

A linha 230 traça um retángulo ne- 
gro no final do indicador do combustí- 
vel, dando a impressão de que o supri- 
mento de combustível está acabando, à 
medida que o valor em PW vai dimi- 
nuindo. Finalmente, a linha 240 repete 
tudo de novo. 



O programa para o Spectrum utiliza 
diversos recursos novos que não foram 
explicados em capítulos anteriores. Por 
isso, é aconselhável estudar um pouco es- 
ses recursos e fazer algumas experiências. 
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Como de costume, você pode ir che- 
cando se os trechos que acabou de en- 
trar funcionam corretamenie. O primei- 
ro grupo de linhas define o gráfico da 
nave extraterrestre e o desenha na tela, 
quando executado. 

10 B0RDER 0: PAPER 0: INK 6: 
BRIGHT 1: CLS 

20 FOR n-USR "a" TO USR "b"+7 
: READ a: POKE n,a: NEXT n 
ZOO LET ax^INT (RND-32) 
210 LET ay-INT (RND*21)+1 

220 IF ax>ll AND ax<21 AND ay> 
6 AND ay<16 THEN GOTO 200 
490 PRINT INK 4 , AT ay,ax;CHRS 
144 



As linhas 20 e 800 definem a nave e 
seu míssil (que ainda não é visível). Elas 
utilizam a técnica de colocar em uma 
área de memória RAM uma série de blo- 
cos gráficos elementares, definidos den- 
tro das declarações DATA. Essa área é 
chamada de área de gráficos definiveis 
peio usuário (ou UDG, abreviatura em 
inglês da expressão user = defined- 
graphics). Os comandos USR "a" e 
USR "b" definem, para o laço 
FOR. ..NEXT, os endereços inicial e fi- 
nal dessa área. Os comandos POKE fa- 
es5c trabalho. 



tade de omitir a linha 10, pois pode ser 
mais difícil ler o programa listado em 
amarelo sobre uma leia negra. Se qui- 
ser fazer isso, lembre-se de reintegrá-la 
mais tarde, ou a linha 640 (explicada 
mais adiante) não funcionará. 



CONSTRUA A ESTACÃO ESPACIAL 



Estas poucas linhas desenharão a es- 
tação espacial: 

110 PRINT AT 1Q,15:"4 1";AT 12 
,15;"3 2" 

120 PLOT 132.107: DRAW 25,-25: 
DRAW -25,-25: DRAW -25,25: 
DRAW 25,25 

130 PLOT 107.82: DRAW 50,0: 
PLOT 132,57: DRAW 0,50 

Por enquanto, a estação espacial ain- 
da parece bastante primitiva. Se você 
quiser projetar e entrar uma mais ade- 
quada ou mais bonita, precisará apenas 
de duas adições ao programa: 

- Uma linha extra parecida com a 
linha 20, mas que comece com USR "c" 
e que continue por tantas leiras do al- 
fabeto quanto o tamanho de sua esta- 
ção espacial necessitar. 

- Um conjunto de declarações DA- 
TA em uma ou mais linhas extras no fi- 
nal do programa, listando os códigos 
gráficos que compõem a nova estação 
espacial na tela do computador. 



A próxima tarefa é imprimir na tela 
o míssil da nave E.T. e traçar sua traje- 
tória em direção à estação espacial. 



330 LET b-1: IF ABS fy>ABS fx - 
THEN LET b-2 

340 IF b-1 THEN LET ax-SGN fx 
: LET bv-SCN fy*ABS (fy/fx) 
350 IF b-2 THEN LET sy-SGN fy 
: LET ax-SGN fx*ABS (fx/fy) 
400 PRINT AT my.inx;" ": LET my 
-my+ay: LET mx-mx+ax: PRINT 
INK 5;AT my.mx;CHR$ 145: IF my 
>10 AND my<12 AND mx>15 AND mx 
<17 THEN GOTO 700 
620 IF RND>.9 THEN PRINT AT a 
y , ax; " " : GOTO 200 
630 IF mf-0 THEN GOTO 300 
650 GOTO 300 

700 CLS : PRINT FLASH li 
PAPER 2;AT 10,1;"BANG! Voce e 
ata 3ein proteção ! " 

Toda esta seção do programa, como 
você pode ver a partir da linha 650, é 
um laço que o computador percorre di- 
versas vezes sempre que a nave inimiga 
aparece. 

A linha 150 descreve todo o cenário: 
não existe nenhum míssil vindo em sua 
direção (até agora...). 

A linha 3 10 decide sc a nave lançará 
um míssil em sua direção, dentro dessa 
repetição do laço (existe uma chance em 
nove de que irá disparar). 

Se houver um míssil, a linha 320 o co- 
locará na posição inicial (my, mx), no 
lugar mais óbvio — ou seja, no lugar em 
que a nave E.T. se encontra no momen- 
to (ax, ay). A pane do meio da linha 400 
imprime o míssil, usando o caractere 
gráfico CHRS 145 (correspondente á te- 
cla B). 

O trecho do programa a partir da me- 
tade da linha 320 até a linha 400 é um 
pouco "manhoso". O que ele faz é to- 
mar as coordenadas do ponto médio da 
estação espacial e as coordenadas refe- 
rentes á posição atual da nave e subtrair 
estas das primeiras, de modo a disparar 
o míssil na direção exata da estação es- 
pacial (numa reta passando por dois 
pontos). 

Como alguns dos números envolvi- 
dos nesses cálculos podem ser negativos 
(em movimentos para a esquerda e pa- 
ra baixo) e outros positivos (em movi- 



As linhas 200 e 210 c 
espacial em uma posição aleatói 
la, e a linha 490 a imprime. (O PRINT 
CHRS 144 nessa linha mostra o carac- 
tere gráfico associado à tecla A). 

A linha 220 pode parecer estranha 
nesse estágio mas, à medida que o pro- 
grama progredir, você verá que esta é 
uma maneira de impedir que a nave ini- 
miga apareça inesperadamente no meio 
de sua estação espacial, trazendo pâni- 
co e destruição. 

No momento, você pode sentir von- 
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mentos para a direita e para cima), vo- 
cê vai achar difícil entender como o pro- 
grama funciona, caso não compreenda 
o que são ABS e SGN, que foram defi- 
nidos no capitulo anterior. Mas eis aqui 
algumas dicas para esclarecer o assun- 
to: 

A segunda metade da linha 320 de- 
duz a posição atual do míssil (my, mx) 
do ponto central da estação espacial (po- 
sição na tela II, 16) e chama as coorde- 
nadas resultantes (fy e fx), 

As linhas 330 e 350, utilizando ABS 
e SGN, acrescentam um fator de corre- 
ção de trajetória (sy, s.x) para fy e fx. 
A linha 400 começa imprimindo um es- 
paço em branco sobre a posição ante- 
rior do míssil. Em seguida, soma-se sx 
e sy às coordenadas da posição anterior, 
de modo a preparar a parte restante da 
linha 400 para imprimir o míssil em sua 
nova posição, apenas um passo distan- 
te da anterior. 



Agora que a nave inimiga já dispa- 
rou seu míssil, é hora de fazê-la mover- 
se; acrescente essas linhas: 

420 LET xx-ax: LET yy-ay: LET 
m-INT (RNDM) 

430 IF UI-0 AND ax<31 THEN LET 

xx-ax+1 

440 IF m-1 AND ax>0 THEN LET 
xx-ax-1 

450 IF m-2 AND ay<21 THEN LET 
yy-ay+1 

460 IF m-3 AND ay>l THEN LET 
yy-ay-1 

470 IF xx>ll AND xx<21 AND yy> 
6 AND yy<16 THEN GOTO 490 
480 PHINT AT ay.ax;" " : LET ax 
-xx : LET ay-yy 

Em primeiro lugar o Spectrum deci- 
dirá em que direção a nave E.T. se mo- 
vimentará. Uma vez que isso seja feito, 
por um número aleatório na linha 420, 
os objetivos das linhas 430 a 460 tomam- 
se óbvios. Estas são as linhas convencio- 
nais de animação gráfica. A linha 470 
mantém a nave fora da estação. A linha 
400 (inserida anteriormente) registra um 
impacto, direcionando o programa pa- 
ra a linha 700, caso o míssil atinja o meio 
da estação. Se você não sabe por que es- 
sa linha usa IF my> 10 AND my< 12, 
ao invés de um 11 (mais simples) e IF 
mx> 15 AND mx<17, em vez de 16, 
basta lembrar-se do seguinte: embora o 
computador imprima a nave extraterres- 
tre em uma posição com coordenadas in 
(eiras, os números calculados a cada pas- 
so do movimento são uma série de fra- 
cções decimais. Assim, torna-se remota a 
lehance de eles tornarem-se 11 e 16. 



Finalmente, depois de mais ou menos 
dez repetições do laço. a linha 620 apa- 
ga a nave inimiga de sua posição e co- 
meça tudo de novo na linha 200. 



CONSTRUA AS 8LINDAGENS 



As linhas seguintes constroem as blin- 
dagens destinadas a bloquear o avanço 
do míssil. 

140 PLOT INVERSE 1:132,122 
500 DIM a(4) 

510 LET a$-INKEYS: IF aS-"" 
THEN GOTO 600 

520 IF aS-"l" THEN LET a{l)-l 
530 IF aS-"2" THEN LET a(2)"l 
540 IF aS-"3" THEN LET a(3)-l 
550 IF a$-"4" THEN LET a(4)-l 
560 LET fu-fU-1 
600 DRAW INK a{l)M, INVERSE 
l-a(l) ,40,-40: DRAW INK a{2)* 
4. INVERSE 1-a (2) , -40 , -40 : 
DRAW INK a(3)*4. INVERSE l~a( 
3). -40. 40: DRAW INK a(4)*4, 
INVERSE l-a{4) ,40,40 
640 IF ATTR [my,mx)-68 THEN 
PRINT AT my.mx;" ": LET mf-0 

À primeira vista também existe 
ma coisa estranha com essas 
Quatro blindagens, mas apenas 
sição PLOT para traçar as li . 

De fato, o programa utiliz^ 
traço (INK), que é a mesma <" 
(PAPER), para traçar um L 
mente quando você pressiot 
teclas numeradas de l a 4, 
losango mudará de cor e 
tela. A linha 640 utiliza o A" 
número da cor das blindag 
repelir o míssil, se ele acert; 
gem, apagando-o da tela. 



As linhas restantes são muito fáceis 
de se compreender. Elas estabelecem o 
suprimento do combustível na linha 100 
e o fazem desaparecer até que, no meio 
da linha 5!0 (já modificada), as blinda- 
gens tornam-se inativas. Lembre-se de 
reintegrar a linha 10. 

100 PRINT PAPER 2: INK 6;AT 0 

,0;" COMBUSTÍVEL " 

160 LET fu-100 

510 LET a$-INKEY$: IF aS-"" 

THEN GOTO 600 
560 LET fu-fU-l 

610 PRINT PAPER 3; INK 7;AT 0 
.13;" ";Cu: p " 



10 R-HND(-TIME) 
15 SCREEN 2.0 

30 DEF FN Z(X)-SGN{X)*SQR(V*V*X. 



"X/t (127-AX)*(127-AX)+(95-AY)*( 

95-AY) ) ) 

32 LET PW-250 

50 FOR 1-0 TO 7 

55 READ A : LET AS-AS+CHRS (A) 

59 NEXT I 

60 SPRITES(1)-AS 

61 PUT SPRITE 1 . (8,0) 
65 GOTO 65 

250 DATA 24.126.90.126.126.195. 
129,129 

Digitando e executando esse progra- 
ma, você verá a nave espacial extrater- 
restre aparecer na tela. 

A linha 10 serve apenas pura jj 
duzir o gerador de números 
usando o conteúdo do n ' ' 
(TIME). 

A linha 30 i 
uma palavra dHl 




significa DEFme a Futocuon, ou seja, 
definição de função. Se você precisar 
utilizar com frequência uma longa ex- 
pressão matemática no programa, a fun- 
ção predefinida o poupará de digitá-la 
diversas vezes, em diferentes pontos do 
programa. Ela funciona, portanto, co- 
mo uma espécie de sub-rotina em uma 
linha só. A expressão matemática na li- 
nha 30 é chamada de FNZ e será utili- 
zada mais tarde no programa para mo- 
vimentar um míssil em sentido diagonal 
na tela. A linha 32 estabelece na tela a 
posição final de um indicador de com- 
bustível (variável PW). 

As linhas 50 a 61 desenham a nave 
E.T. na tela, lendo os códigos gráficos 
correspondentes através de instruções 
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READ e DATA na linha 250, e 
colocando-os na página de video, no 
canio superior esquerdo da tela, com o 
comando PUT SPRITE. A linha 60 
usa a função SPRITE para definir es- 
te padrão gráfico e armazená-lo no 
"sprite" número 1 (por enquanto, não 
explicaremos detalhadamente o que é 




70 FOR J-0 to 7 

75 READ B : LET BS-BS+CHRS (B) 

79 NEXT J 

80 SPRITES(0)-BS 

81 PUT SPRITE 0, (16,13) 
85 GOTO 85 

260 DATA 0,0.0,8,28.62,28,8 

O míssil que será lançado pelo E.T. 
é lido em um conjunto de códigos em 
DATA e definido como o sprite núme- 
ro 0, nas linhas 70 a 80. O comando 
PUT coloca-o no canto superior esquer- 
do da tela para você ver, na linha 81. 
Assim, as linhas 81 e 85 são temporá- 



A ESTAÇÃO ESPACIAL 



ra traçar retàngulos. Usamos a instru- 
ção LINE para traçar uma linha no al- 
to da tela, indo da posição extrema es- 
querda (coordenadas 30, 1 ) até a posição 
atual do combustível (assinalada pela 
variável PW). O número 10 diz ao MSX 
para traçar essa linha em cor branca. BF 
é uma abreviação para box fill e preen- 
che o retângulo com a cor utilizada pe- 
la linha original. Se você quer traçar um 
retângulo vazio, utilize B ao invés de 
BF. 

Estão agora completos os gráficos de 
alta resolução para o jogo. O resto do 
programa está relacionado com o mo- 
vimento do E.T. e do míssil e a ativa- 
ção das blindagens. 




um sprite: veja M1CRODICAS na pá- 
gina 108). A linha 61 é temporária, pois 
apenas mostra o resultado do SPRITE, 

' sendo retirada depois. 

A linha 65 também é temporária. Tu- 
do o que ela faz é manter a tela "con- 

j gelada", de modo que se possa ver o re- 
sultado do processamento feito pelas li- 

i nhãs anteriores. Ela será removida mais 

' tarde, quando o resto do jogo for acres- 

j centado ao programa. 



Agora remova as linhas 61 e 65, di- 
gitando os números 65, seguido de 

< ENTER > , e 61. Também seguido de 

< ENTER > . Acrescente depois essas li- 
nhas e rode o programa. 



^■Hniova as linhas 81 e 85 como ante- 
^Kbientc, e acrescente essas linhas, exe- 

aido em seguida o programa: 

■V AX-INT(RND(1)*200)-1:LET 
SlNTlRND(l)*100)+5 
Bt BCLE (127,95) . 12. 15:DRAW 
^Rl2 7 , 95 ; Cl 5S4 8NUNLNDNH" 
HT GOTO 115 

Hn\ linha 90 escolhe uma posição alea- 
^Ba para a nave E.T. A linha 110 de- 
Bpnha a estação espacial, que é simples- 
Kenie um circulo (comando CIRCLE). 
ÇÕ comando DRAW, no final dessa li- 
: nha, traça uma cruz bem no meio da es- 
tação espacial. Como foi dito anterior- 
mente, o comando DRAW pode ser 
imaginado como uma sucessão de decla- 
rações LINE. Uma explicação mais de- 
talhada será encontrada em outra lição, 
mais adiante. 

A linha 1 15 é temporária. 



0 INDICADOR DE COMBUSTÍVEL 



Remova a linha 115 do mesmo mo- 
do que removeu as linhas 61, 65, 81 e 
85. Acrescente essas linhas e aparecerão 
na leia maiores detalhes gráficos. 
120 DRAW *BM 131,87: 54D5BD6BR3B 
D4USG4R3BDBL12R3U2NL3U2NL3BU10B 
L3H3D2L3D2R3" 

130 DRAW "BM5 , 1 ; L4D2NB4D2BE4BR2 
D4R3U4BR5L3D2NR3D2R3BE4D4R3" 
140 LIME (30,1)- (PW.5) , 10, BF 
145 GOTO 145 



A linha 120 traça um número na es- 
tação espacial, que corresponde ao nú 
mero de blindagens. Na linha 130 mos 
iramos a palavra FUEL (combustível). 
Infelizmente o MSX não consegue escre- 
ver caracteres normais numa leia gráfi- 
ca de alta resolução; por isso letras e nú- 
meros devem ser literalmente "desenha- 
dos" com comandos DRAW. 

A linha 140 exibe o indicador cheio 
de combustível para as blindagens. Es- 
sa linha emprega um método rápido pa- 



Existem três sub-rotinas a serem 
acrescentadas ao programa. A primei- 
ra diz respeito ao movimento da nave 
inimiga. Digite-a, mas não a rode ain- 
da porque nada acontecerá. 

1000 LET LX-AX : LET LY-AY 

1010 IF INT(RNDI1)*10)-1 THEN L 

ET AX-RND (1) "248-1 : LET AY-INT(R 

ND(l)*176)+5 

1020 LET AX-AX+INT(RND(l>«15)-8 
: LET AY-AY+INT(RND(l)"15)-8 
1030 IF AX>103 AND AX<144 AND A 
Y>71 AND AY<112 THEN LET AX-LX: 
LET AY-LY 

1040 IF AX<0 THEN LET AX— AX 
1050 IF AX>248 THEN LET AX-497- 
AX 



A nave E.T. é controlada de forma 
semelhante à base de mísseis na lição das 
páginas 28 a 33. (Apontar.. .Fogo!). A 
linha 1000 iguala as coordenadas da úl- 
tima posição da nave às coordenadas da 
posição atual, antes que ela seja movi- 
mentada. 

A linha 1010 escolhe um número ao 
acaso, provocando uma brusca mudan- 
ça de posição da nave inimiga na tela 
("hiperespaço"). Se esse número alea- 
tório for 1 (ou seja, em 10% das vezes, 
em média), o E.T. saltará para uma no- 
va posição na tela. Se for diferente de 
I, será escolhida uma nova posição pa- 
ra a nave, distante entre -7 e + 7 pontos 
na direção X (da esquerda para a direi- 
ta), e entre -7 e + 7 pontos na tela, na 
direção Y (acima e abaixo) — veja a li- 
nha 1020. A linha 1030 impede que a na- 
ve E.T. superponha-se ao desenho da es- 
tação espacial, enquanto as linhas 1040 
a 1070 impedem que ela saia para fora ■ 
da tela. 
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A nave invasora é colocada na nova 
posição pela linha 1080. A linha 1100 
faz retornar a sub-rotina. 



A próxima sub-rotina serve para de- 
cidir, em primeiro lugar, se dispara ou 




O QUE É UM SPRITE? 

Um sprite é um tipo de caractere de 
alta resolução gráfica definido peto 
usuário. Ele é utilizado para acrescen- 
tar movimento aos gráficos de alta re 
solução do MSX. 

O uso do sprite fornece um aspecto 
continuo ao movimento de figuras na 
tela. Esse movimento pode ser facil- 
mente programado ponto por ponto, 
como se o objeto que se move fosse 
apenas um caractere. Além disso, um 
sprite pode ter até 16x1 6 pontos de al- 
ta resolução, enquanto um caractere 
comum tem 8x8 pontos. O contorno ou 
a forma do caractere ou do sprite é 
finido por pontos "acesos" que as 
mem a cor de frente, e por pontos "apa- 
gados" que assumem a cor de fundo. 

Í possível definir até 256 sprites pe 
quenos (8x8 pontos) e até 64 sprites 
grandes (1 6x 1 61, com padrões diferen 
tes. Todavia, só podem ser mostrados 
quatro sprites diferentes na mesma li 
nha horizontal de alta resolução. Spri 
tes podem ser agrupados para formai 
figuras maiores; podem ser sobrepôs 
tos para obtermos efeitos tridimensio- 
nais; podem, ainda, ter seu tamanho 
dobrado. Por outro lado, é possível sa 
ber quando dois sprites colidiram; tudo 
isso faz deles caracteres de alta i 
lução extremamente versáteis. 

Programar sprites é realmente mais 
fácil que utilizar caracteres definidos pe- 
lo usuário (compatíveis com o Sinclair 
Spectrum) ou funções como PUT, GET 
(compatíveis com o TRS-Color) e DRAW 
(compatíveis com o Apple III, principal- 
mente quando se deseja uma animação 
mais sofisticada. Não é necessário, por 
exemplo, seguir o rastro de um sprite, 
apagando as posições já ocupadas por 
ele. Os sprites são compatíveis com ou- 
tros modos de utilização da tela do MSX: 
texto em 32 colunas (SCREEN Demo- 
do multicor (SCREEN 3). Não se pode, 
contudo, utilizá-los em modo texto de 
40 colunas (SCREEN 01. 



não o míssil. Sendo positivo (isto é, se 
o disparo ocorrer), então ela estabele- 
cerá a posição do míssil na tela e deter- 
á a blindagem que irá bloqueá-lo. 



2000 IF INT(RND(1)*7)<>1 THEN H 
ETURN 

2010 LET v-INT<RNDU>*8)+5 
2015 LET DX-FNZ(127-AX) rLET DY" 
FNZ(95"AY) 

2020 IF DXOQ AND DY>-0 THEN LE 
T MA-l:GOTO 2050 

2030 IF DX<-0 AND DYO0 THEN LE 
T KA-4:G0T0 2050 

2040 IF DX>- 0 AND DYX-0 THEN LE 

T MA- 3 ELSE MA- 2 

2050 LET MX-AX:LET MY-AY 

2060 PUT SPRITE O.(HX.MY) 

2070 LET AF-1 : RETURN 

A linha 2000 decide se dispara um 
míssil. Existem seis chances em uma de 
que ele seja disparado; mas, se já há um 
míssil na tela, o programa não pode lan- 
çar ouiro. Se um foguete não puder ser 
disparado, a sub-rotina terminará. 

A linha 2010 estabelece a extensão de 
deslocamento do míssil na tela — você 
pode pensar em V como se fosse a sua 
velocidade. O conteúdo de V é passado 
para a função FNZ — definida na linha 
30 — de modo a calcular a nova posi- 
ção do míssil na tela. 

As linhas 2020 a 2040 investigam o 
ponto em que o míssil está na tela e tam- 
bém que blindagem será necessária pa- 
ra bloqueá-lo — MA é o ângulo de des- 
locamento do míssil. 

A linha 2050 inicia a trajetória do 
míssil a partir da posição onde está a na- 
ve inimiga. A linha 2060 coloca o míssil 
na tela antes de a linha 2070 definir a 
variável sinalizadora AF = I, que diz ao 
programa que um míssil foi disparado. 
A sub-rotina termina. 

A sub-rotina final vai da linha 3010 
à 3080. Digite as linhas, mas observe que 
novamente não acontecerá nada se vo- 
cê rodá-las nesse estado. 

3010 LET MX-MX+2*DX:LET MY-MY+2 . 
*DY 

3020 IF HX>110 AND MX<140 AND M 
Y>79 AND MY<108 THEN GOTO 3050 
3030 PUT SPRITE 0,(MX,MY) 
3040 RETURN 

3050 IF SH(HA)-0 THEN GOTO 3070 
3055 PUT SPRITE 0,(-l,-l) 
3060 LET AF-0: RETURN 
3070 SCREEN 0 

3080 LOCATE 0,11:PRINT "BANG! ! 
- Sua blindagem estava deslioad 



A nova posição do míssil é compu- 
tada pela linha 3010. A linha 3020 che- 
ca se o míssil já atingiu a blindagem. Se 
isso não aconlecer, o programa pula pa- 
ra a linha 3050, com o objetivo de veri- 



ficar se a blindagem correta estava po- 
sicionada. Se não for encontrada nenhu- 
ma blindagem no caminho do foguete, 
o programa limpará a tela e terminará 
com a mensagem: '"BANG! ... SUA 
BLINDAGEM ESTAVA DESLIGA- 
DA". 

Se o míssil ainda não atingiu o pon- 
to esperado para as blindagens da esta- 
ção espacial, então a linha 3050 o colo- 
ca em nova posição com o comando 
PUT. 

A linha 3040 finaliza a rotina. Final- 
mente, as seguintes linhas completam o 
nosso programa: 

160 IF AF-0 THEN GOSUB 2000 ELS 
E GOSUB 3010 
170 GOSUB 1000 
160 FOR J-l TO 4 

190 KS-INKEYS:IF KS-"" THEN KS- 

195 LET PE-ASC<KS)-48 

200 IF PE-J THEN SH(J)-1 ELSE S 
H(J)-0 

201 IF SHtJKM THEN LET SH(J>- 
0 

205 CTRCLE(127,95) . 18 . 15*SH (J) , 

6.2*(J-l)/4.6.2MJ)/4 

210 IFSHÍJ)-1 THEN LET PW-PW-2 

220 NEXT 

230 LINE (PW,1)-<PU,5> .0.BF 
240 GOTO 160 

Antes de rodar o programa, remova as 
linhas 115 e 145. Agora que a linha 145 
foi removida, você não verá o que está 
se desenvolvendo na tela durante a de- 
finição dos blocos gráficos. Após o pro- 
grama ler sido rodado, ocorrerá uma 
curta pausa, antes que uma exposição 
completa apareça na tela. 

A linha 160 verifica se um míssil foi 
lançado. A equação AF = 0 indica que 
nenhum míssil foi disparado, e o pro- 
grama pula para a sub-rolina que se refe- 
re ao lançamento do míssil — que come- 
ça na linha 2000 — ou pula para a sub- 
rotina que movimenta o míssil; esta co- 
meça na linha 3010, Depois, a nave E.T. 
é movimentada. A linha 170 faz com 
que o programa salte para a sub-rotina 
que tem início na linha 1000. 

A parte do programa das linhas 180 
a 220 diz respeit -> á ativação das blin- 
dagens. A linha 190 checa qual tecla es- 
tá sendo pressionada. Se a tecla for um 
número de I a 4, a linha 2000 desenha- 
rá a blindagem; se alguma das blinda- 
gens for acionada, a linha 210 diminui- 
rá o combustível. 

A linha 230 traça um retângulo ne- 
gro no final do indicador do combustí- 
vel, dando a impressão de que o supri- 
mento de combustível está acabando, à 
medida que o valor em PW diminui. 

Finalmente, a linha 240 repete tudo 
novamente, indo para a linha 160. 



Para entender a linguagem de máquina 
é necessário aprender primeiro como 
funciona o microprocessador, que é, ao 
mesmo tempo, o coração e o cérebro 
de um computador pessoal. 

Como você já sabe, os computadores 
possuem memória. Mas eles não se limi- 
tam a lembrar-se das coisas; na verda- 
de, essas máquinas também são capazes 
de manipular e processar aquilo que me- 
morizam, através da unidade central de 
processamento (UCP), que é formada 
por um único circuito integrado (chip), 
conhecido como microprocessador. 

Esse circuito integrado é muito mais 
complexo do que um circuito de memó- 
ria. As memórias são dispositivos rela- 
tivamente passivos, que armazenam pa- 
drões binários e os desenvolvem. O mi- 
croprocessador, entretanto, realiza fun- 
ções bem mais "inteligentes'". Ele pode 
adicionar, subtrair, movimentar infor- 
mação de uma locação de memória pa- 
ra outra, e deslocar e alternar seus pa- 
drões de bits. A programação em lingua- 
gem de máquina tem por objetivo "di- 
zer" ao microprocessador (UCP) como 
ele deve proceder para processar dados 
e informações, executando uma grande 
variedade de operações. 



0 CÉREBRO DA MÁQUINA 



Tudo que acontece no computador es- 
tá literalmente sob controle direto do mi- 
croprocessador. Verdadeiro "cérebro", 
ou centro de controle da máquina, ele 
efetua todas as operações aritméticas, 
copia dados de uma locação de memó- 
ria para outra, atribui funções para áreas 
de memória e executa os programas. E 
com o microprocessador que você está 
se comunicando quando escreve seus 
programas em código de máquina. Den- 
tro dele existem inúmeras locações espe- 
cializadas de memória, chamadas regis- 
tros. Cada registro tem uma função es- 
pecífica. E a seleção dos que serão utili- 
zados depende inteiramente das instru- 
ções que você fornece quando escreve o 
seu código de máquina. 



Uma das coisas mais importantes so- 
bre os registros é que eles não possuem 
endereços. Isso faz com que eles se tor- 
nem de utilização muito mais rápida. 



OS REGISTROS INTERNOS 



As diferentes linhas de computado- 
res pessoais utilizam, geralmente, micro- 
processadores de marcas diferentes. As- 
sim, os micros das linhas Sinclair, 
TRS-80 e MSX, por exemplo, empre- 
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0 QUE É E 0 QUE FAZ 



gam o microprocessador de oito bits de 
comprimento de palavra chamado Zilog 
Z-80A (este é o seu nome comercial). Já 
os micros da linha Apple II utilizam um 
microprocessador também de oito bits 
mas inteiramente diferente, o 6502. 

A complicação para o futuro progra- 
mador de linguagem de máquina come- 
ça aqui: cada um dos diversos chips de 
microprocessadores citados possui um 
conjunto diferente de registros internos 
e de instruções em código de máquina. 
Em geral, o que se aprende para um ti- 
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po de chip não se aplica para os outros. 

Felizmente, alguns dos registros têm 
funções similares em todas as máquinas. 
Os microprocessadores de oito bits pos- 
suem um registro chamado PC (Pro- 
gram Counter) de dezesseis bits: é o con- 
tador de programa. Este armazena o en- 
dereço do byte seguinte do código de 
máquina de um programa a ser execu- 
tado. Ele "avisa" ao computador onde 
se encontra, dentro de um programa. E, 
assim que o byte do programa de códi- 
go de máquina é executado, o registro 
PC è aumentado de um. 

Todos os microcomputadores de oi- 
to bits também têm, pelo menos, um ou- 
tro registro, chamado acumulador de oi- 
to bits ou registro A. E o registro utili- 
zado pela UCP para efetuar operações 
aritméticas. Se você quiser, por exem- 
plo, acrescentar um número a outro (ou 
subtraí-lo dele), uma das duas parcelas 
deverá estar no acumulador. Isso tam- 
bém afeta a multiplicação e a divisão — 
que são apenas combinações de opera- 
ções lógicas como as adições e as sub- 
traçõcs. 

Cada uma dessas máquinas possui 
também um par de registros de indexa- 
ção. Nos microprocessadores Z-80A es- 
tes são registros de dezesseis bits que 
contêm endereços. Tais endereços po- 
dem ser aumentados, diminuídos ou 
modificados aritmeticamente no acumu- 
lador, de modo a fornecer outros ende- 
reços. Os micros da linha Apple (micro- 
processador 6502) possuem registros de 
indexação de oito bits cujos conteúdos 
são incorporados a um endereço para 
fornecerem um endereço adicional. 

Conhecido como endereçamento in- 
dexado, esse tipo de operação é mais co- 
mumente utilizado para ler dados de 
uma tabela, byte por byte. O programa 
começa com o endereço do primeiro 
byte da tabela e, a seguir, percorre seu 
caminho aumentando o registro de in- 
dexação de um em um. 



O sinalizador (registro-bandeira, ou 
flag-regisrer, em inglês, numa ana- 
logia à bandeira dos taxímetros) é ou- 
tro registro existente em todos os micro- 
processadores de 8 bits. Um registro si- 
nalizador tem normalmente oito bits, 
que podem estar "ligados" (bit 1), ou 
"desligados" (bit 0), dependendo do re- 
sultado de certas operações. Cada bit de 
um registro sinalizador é chamado de 
bandeira, ou sinalizador. 

Todo sinalizador tem um significado 
I próprio. Por exemplo, o bit número 0, 
I ou seja, o bit menos significativo do re- 



gistro sinalizador (o último bit à direita 
na convenção normal de escrita), é o bit 
de transporte ou sinalizador C (carry, 
em inglês). Se a UCP efetuar uma adi- 
ção, uma subtração, ou qualquer outra 
operação lógica ou aritmética que exija 
um bit para ser emprestado ou transpor- 
tado (o "vai-um" das operações aritmé- 
ticas), então o sinalizador C será esta- 
belecido em 1. 

Os outros bits indicam se o resulta- 
do de uma operação foi zero (o sinali- 
zador de zero) ou negativo (o sinaliza- 
dor de sinal), ou ainda se um registro foi 
excedido em capacidade porque o núme- 
ro era muito grande (o sinalizador de ex- 
cesso, ou overflow). Esses sinalizadores 
são comuns a todas as máquinas, em- 
bora não estejam necessariamente na 
mesma posição no registro sinalizador. 
Existem também sinalizadores específi- 
cos para cada máquina. 

Os sinalizadores são utilizados em 
instruções de desvio condicional em lin- 
guagem de máquina — o equivaiente em 
BASIC ao IF...THEN. No programa 
em código de máquina, podemos escre- 
ver instruções que farão com que a má- 
quina salte ou desvie se um sinalizador 
estiver em 0 ou em 1, por exemplo. 



Comum a todos os computadores, o 
indicador da pilha (em inglês: stack- 
pointer) é um registro desiinado a reter 
o endereço de uma locação de memória 
RAM. Esse endereço marca o fim de 
uma área de memória, como todos os 
indicadores fazem; mas, aqui, essa é uma 
área especializada de memória, de uso 
exclusivo da UCP e conhecida como pi- 
lha. Ela é uma área de rápido acesso, 
onde a informação pode ser temporaria- 
mente armazenada e chamada de volta 
sem precisar dos procedimentos normais 
de endereçamento. 

A pilha da UCP funciona de modo pa- 
recido a uma pilha comum de papéis: to- 
da informação nova que se quer acrescen- 
tar a ela deve ser colocada em seu topo. 
Inversamente, quando se quer tirar dela 
alguma coisa, é necessário começar pelo 
topo, retirando as folhas mais altas (não 
vale tirar um papel do meio ou da pane 
mais baixa da pilha). A regra é: o último 
a entrar é o primeiro a sair (em inglês: las! 
in, first out). Por isso, esse tipo de pilha 
é chamado de L1FO. Existem outras es- 
pécies como a pilha FIFO (first in, first 
out), A fila de um supermercado é um 
exemplo de pilha FIFO... 

Uma das funções do microprocessa- 
dor consiste em colocar dados, endere- 
ços ou códigos no topo da pilha da me- 



mória. Se ele for instruído para retirar 
algo da pilha, começará sempre pelos 
itens mais altos. Isso significa que você 
não precisa especificar a locação de me- 
mória que lhe interessa, ou sua posição 
na pilha. Existe apenas uma locação do 
topo de cada vez; assim, o microproces- 
sador não se confundirá. 

Mas você, o programador, pode fi- 
car extremamente confuso, se não pres- 
tar atenção! É importante lembrar-se de 
tudo o que existe em cada locação de 
memória da pilha, quando se estiver fa- 
zendo um programa que a utiliza, e 
certificar-se de que o dado desejado es- 
tá no topo da pilha. 

Agora que você já domina o concei- 
to de pilha LIFO, podemos revelar-lhe 
um segredo: em todas as máquinas ci- 
tadas aqui, a base da pilha é dirigida pa- 
ra o topo da RAM. com o resto da pi- 
lha acumulado abaixo, item por item. 
Assim, na verdade, você introduz e tira 
coisas da parte inferior da pilha! 

Isto quer dizer que, quando um novo 
item é introduzido, o indicador de pilha 
é diminuído, e, quando um item é tira- 
do, o indicador é aumentado. 

Apesar disso, o conceito de pilha se 
mantém verdadeiro, com a base da pi- 
lha fixada por uma variável de sistema, 
e os itens dos dados adicionados ou sub- 
traídos a partir de um final livre, um de 
cada vez. 



Uma das funções mais comuns de 
uma pilha é manter a UCP a par de seu 
lugar em um programa quando uma 
sub-rotina for executada. Isso pode pa- 
recer simples, mas devemos nos lembrar 
de que uma sub-rotina pode chamar ou- 
tra; esta, uma outra, e assim por dian- 
te. Quando o computador atinge uma 
instrução que lhe diz para saltar para 
uma sub-rotina, o conteúdo do conta- 
dor de programa nesse momento (isto 
é, onde o programa se encontra no ins- 
tante em que a instrução de desvio ocor- 
re) é copiado no topo da pilha. 

O endereço inicial da sub-rotina é en- 
tão escrito no registro contador de pro- 
gama. À medida que cada instrução é 
executada em uma sub-rotina, o conta- 
dor de programa é incrementado da ma- 
neira normal, até que atinja uma instru- 
ção de retorno. Então, o endereço que 
está no topo da pilha é retirado e colo- 
cado de volta no registro contador de 
programa. Esse processo permite que a 
UCP reinicie a execução do programa 
exatamente no ponto onde estava antes 
de chamar a sub-rotina e passe a incre- 
mentar o contador de programa nova- 
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mente. Isso explica por que, em progra- 
mas BASIC, cada sub-rotina encaixada 
dentro de uma outra deve estar conti- 
da completamente naquela que a pre- 
cede; do contrário, os endereços incor- 
retos de partida seriam colocados no to- 
po da pilha. O mesmo acontece com os 
laços de repetição, tipo FOR...NEXT, 
cujos endereços de retorno no progra- 
ma são armazenados na pilha. Agora 
que você domina os conceitos básicos 
da programação de códigos de máqui- 
na, descubra como eles se relacionam 
ao microprocessador especifico de seu 
computador. 



D! 



O microprocessador dessas máquinas 
é o Zilog Z80A, de oito bits. Ele tem ca- 
racterísticas exclusivas, como o fato de 
contar com um grande número de regis- 
tros internos (21, para ser exato). Estes 
são também chamados de registros do 
usuário, porque podem ser controlados 
diretamente pelo usuário ou pelo pro- 
gramador da máquina. 

Existem dois acumuladores de oito 
bits: A e A'. Esses acumuladores não 
podem ser utilizados ao mesmo tempo, 



s você pode comutá-los para desem- 
penharem simultaneamente duas opera- 
ções. Contudo, nào é aconselhável ten- 
tar isso no ZX81. Se a máquina estiver 
na modalidade SLOW (lenta) você po- 
derá perder o conteúdo da tela. 

O registro sinalizador F também pos- 
sui oito bits. O bit na posição 0 é o si- 
nalizador de transporte C; o bic na po- 
sição 1 é o sinalizador de subtração N, 
o qual entra em ação apenas quando 
operações codificadas em BCD (decimal 
codificado em binário — uma represen- 
tação especial de números decimais em 
binário) são utilizadas; o bit 2 é o sina- 
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lizador de paridade/excedente P/V; o 
bit 4 é o sinalizador de meio transporte 
H, que também é utilizado em BCD; o 
bit 6 é o sinalizador de 0 Z, e o bit 7 é 
o sinalizador de sinal S. Existe um re- 
gistro sinalizador alternativo F' que é 
comutado junto com A'. 

Existem seis registros de propósitos 
gerais — B, C, D, E, H e L — que tan- 
to podem ser utilizados separadamente, 
como registros de oito bits, quanto em 
pares, como registros de dezesseis bits 
(neste caso, são chamados coletivamente 
de registros BC, DE e HL). Também 
existe um conjunto alternativo: B 'C\ 
D 'E' e H 'L'. O HL e os registros al- 
ternativos H 'L' podem igualmente ser 
utilizados como acumuladores de dezes- 
seis bits. Contudo, os registros H 'L' 
devem ter seus valores anteriores 
restaurados antes de retornarem para 
BASIC. 

O indicador de pilha do Z-80 tem de- 
zesseis bits, assim como os registros de 
indexação IX e IY, Estes últimos retêm 
endereços que podem ser aumentados 
ou deslocados por meio da adição ou 
subtração de números conhecidos como 
"deslocamentos" (offsets), destinados 
a fornecer um outro endereço. O 1Y 
aponta para o centro das variáveis de 
sistemas e é utilizado pelas rotinas ROM 
para indexá-las. Se o registro IY for 
acionado, seu valor original deverá ser 
restaurado mais tarde ou o computador 
não funcionará. 

Existem mais dois registros de pro- 
pósitos especiais no microprocessador 
Z-80: o I e o R. O registro I armazena 
parte do endereço utilizado para iniciar 
"rotinas interrompidas". São rotinas 
que interrompem o curso normal do seu 
programa de código de máquina a cada 
1/50 de segundo, para desempenhar al- 
guma função vital tal como a varredu- 
ra do teclado. 

O registro R renova a memória dinâ- 
mica (re/reshj, mas você não poderá 
utilizá-lo no Spectrum ou no ZX-81. 

A parte inferior da pilha está no RAM- 
TOP (locação máxima da memória RAM 
em um microcomputador) e pode ocupar 
uma área tão grande da RAM quanto se- 
ja necessário. O indicador de pilha, ou 
registro SP, possui dezesseis bits; assim, 
ele armazena todo o endereço do último 
byte ocupado da pilha. 



Os micros da linha Apple II, bem co- 
mo o TK-2000, utilizam o microproces- 
sador 6502. 

IEsse chip possui um único acumula- 
dor de oito bits e dois registros de inde- 



xação de oito bits cada: X e Y. Estes 
contêm deslocamentos (off-sets), que 
são acrescentados a um endereço-base 
para se obter outro endereço. Esse mé- 
todo é muito utilizado para ler uma ta- 
bela de dados, por exemplo. O endere- 
ço-base, no caso, é o início da área de 
memória contendo uma tabela. Para ler 
a tabela, usamos um laço, que incremen- 
ta apenas o deslocamento a cada passa- 
gem. Com isso, o programa é direcio- 
nado para o próximo byte de tabela, ca- 
da vez que o laço é repetido. 

É possível direcionar um programa 
em código de máquina para um endere- 
ço que contenha um outro endereço — 
desde que este se encontre na página 
zero da RAM, pois os endereços 
indiretos podem ter só oito bits de 
comprimento (isto limita em 255 o nú- 
mero de memórias endereçáveis por es- 
te método). Você pode deslocar um des- 
ses dois endereços, mas o registro X de- 
ve ser utilizado para deslocar a partir do 
primeiro endereço, e o registro Y 
deve deslocar a partir do segundo 
endereço. 

O registro processador P de oito bits. 
também conhecido como registro de es- 
lado (status-register), contém um sina- 
lizador. Os sinalizadores de transporte 
C são os mais importantes e ocupam o 
bit 0; o sinalizador de 0 Z ocupa o bil 
I ; o sinalizador de excesso V ocupa o bit 
6; e o sinalizador de sinal N ocupa o 
bit 7. 

Existem mais três sinalizadores que 
você pode utilizar. O sinalizador de de- 
cimal D, que é o bit 3, é estabelecido 
quando o microprocessador efetua ope- 
rações aritméticas em binário codifica- 
do em decimal (BCD). O sinalizador de 
pausa B e o sinalizador de interrupção 
I são utilizados em "rotinas de interrup- 
ção". Estas interrompem, a intervalos 
regulares, o fluxo normal dos seus pro- 
gramas em código de máquina para de- 
sempenharem funções vitais, como a 
varredura do teclado. 

O 6502 também tem uma pilha que 
está limitada à página 1, com sua base 
em S01FF, pois o indicador de pilha, ou 
registro SP, tem apenas 8 bits. Esse in- 
dicador pode conter qualquer número 
de $00 a SFF e fornece o byte menos sig- 
nificativo do primeiro endereço livre lo- 
calizado abaixo da pilha. O micropro- 
cessador já sabe que o bit mais signifi- 
cativo do endereço é 01 , pois a pilha es- 
tá na página 1. 



O microprocessador existente nos 
computadores da linha TRS-Color é do 



tipo Motorola 6809E de oito bits, ope- 
rando a uma frequência de 0,895 MHz. 
Ele tem dois acumuladores: os registros 
A e B, que podem ser utilizados inde- 
pendentemente, como registros separa- 
dos de oito bits, ou juntos, como um 
acumulador D de dezesseis bits. 

Ele conta ainda com dois registros de 
indexação de dezesseis bits — X e Y — 
que retêm os endereços que podem ser 
aumentados ou deslocados, por meio da 
adição ou subtração de números (conhe- 
cidos como "deslocamentos" ou off- 
sets), para fornecerem um outro ende- 
reço. Frequentemente, essa forma de 
programação é utilizada para ler uma ta- 
bela de dados a partir de um endereço- 
base. 

O registro de código de condição re- 
tém os diversos bits sinalizadores. O bit 

0 é o sinalizador de transporte C; o bit 

1 é o sinalizador de excesso V; o bit 2 
é o sinalizador de zero Z; o bit 3 é o si- 
nalizador de sinal N; o bit 5 é o sinali- 
zador de meio transporte, que é ativa- 
do apenas com operações aritméticas 
com BCD (decimal codificado em biná- 
rio, que é uma representação especial de 
números decimais); o bit 4 é o sinaliza- 
dor da máscara de interrupção normal 
I; o bit 6 é o sinalizador da máscara de 
interrupção rápida F; e o bit 7 é o sina- 
lizador de total E — todos são utiliza- 
dos em rotinas de interrupção, que in- 
terrompem, a intervalos regulares, o flu- 
xo normal do programa de código de 
máquina para desempenharem funções 
decisivas, como atualizar o cronometro 
interno, fazer a varredura do teclado pa- 
ra ver se alguma tecla foi apertada 
etc. 

O chip 6809 possui ainda um regis- 
tro de página direta — ou DP — de oi- 
to bits. A função desse registro é arma- 
zenar o byte mais significativo dos en- 
dereços que você escolheu para a pági- 
na direta, de modo que a locação nessa 
página possa ser endereçada apenas pe- 
lo seu byte menos significativo. 

São dois os indicadores de pilha, de 
dezesseis bits cada: Se U. O primeiro 
revela o último endereço completo no 
hardware da pilha cuja base está em 
RAMTOP ou &H7FFF (a menos que 
tenha sido empurrado para baixo, de 
modo a deixar espaço a um programa 
em código de máquina). O indicador U, 
por sua vez, é utilizado com a pilha do 
usuário, cuja base deve ser normalmente 
definida pelo programador. A pilha do 
usuário é pouco utilizada; assim, o re- 
gistro U serve como um registro extra 
de indexação de dezesseis bits pelos có- 
digos de máquinas mais sofisticados no 
TRS-Color ou pelo programador de lin- 
guagem Assembly. 
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TRIÂNGULOS E CÍRCULOS 
USE FLASH PARA ANIMAR 
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UTILIZE OS COMANDOS 




PROGRAMAS NO SPECTRUM 




GRÁFICOS DO BASIC 


■ 


GRÁFICOS NO APPLE E NO MSX 



Alguns comandos simples e muita 
imaginação: isso é tudo que você 
precisa para produzir imagens 
sensacionais na tela do computador. 
Veja aqui por onde começar. 



Ligue um aparelho de TV ou um mo- 
nitor de vídeo ao seu computador e a le- 
linha ficará à sua disposição. Pratica- 
mente lodos os microcomputadores pes- 
soais permitem que você desenhe nela, 



acrescente cor onde e como desejar, etc. 
Em pouco tempo você estará fazendo 
desenhos realmentte complicados. 

Os gráficos para computador evoluí- 
ram muito nos últimos anos e atualmen- 
te são utilizados em muitos tipos de apli- 
cações. Gráficos e tabelas constituem 
um exemplo óbvio, mas você também 
já deve ter notado o aumento no núme- 
ro de imagens geradas por computado- 
res em propagandas de TV, revistas e até 
mesmo em efeitos especiais de filmes. 
Na verdade, muitas das ilustrações de 
1NPUT foram produzidas ou modifica- 



das, por um computador. 

É claro que os computadores utiliza- 
dos para esses tipos de imagem sofisti- 
cada são muito maiores do que o mo- 
desto micro que você tem em casa. Mas 
existe uma quantidade impressionante 
de coisas que você pode fazer em sua 
maquininha doméstica. 

A maioria dos micros entende co- 
mandos simples, tais como PLOT, 
DRAW, PAINT e INK. Para usá-los 
com eficiência e facilidade, contudo, é 
preciso compreender bem como a tela 
gráfica do computador é organizada. 
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Praticamente todos os computadores 
com capacidade gráfica de alta resolu- 
ção utilizam a mesma forma de organi- 
zação da tela. Esta é dividida em um 
conjunto de elementos individuais de 
imagem chamados pixels (termo que de- 
riva da abreviatura da expressão ingle- 
sa picture element). Cada pixel é um pe- 
queno retângulo na tela, que pode ser 
'"ligado" ou "desligado" individual- 
mente, por diferentes comandos. Os pi- 
xels são dispostos em uma espécie de 
matriz retangular, como um sistema de 
coordenadas, e cada um deles tem um 
"endereço", que geralmente é um par 
de números: sua posição na tela em re- 
lação ao eixo horizontal e ao vertical. 

O número de pixels na tela define o 
seu grau de resolução gráfica. Em al- 
guns computadores, você pode escolher 
entre desenhos de alta resolução com 
poucos "pixels" e linhas finas, ou de- 
senhos de baixa resolução, com pixels 
maiores e linhas grossas. Muitos com- 
outadores permitem lambem que você 
Btelecione a cor que o pixel terá na tela 
ao ser iluminado. 

Assim, desenhar na tela é apenas uma 
questão de dizer ao compulador quais 
pixels devem ser acendidos. Em poucos 
minutos, experimentando os comandos 
gráficos mais .simples, você esiará fazen- 
do belos desenhos sozinho 

Alguns micros, como os compatíveis 
com o ZX-S1 , têm uma capacidade grá- 
fica relativamente limitada, pois seus 
programas exploram a utilização de dois 
comando 1 ;, apenas: o PLOT. que sim- 
plesmente acende um ponto na tela, e o 
UNPLOT, euearreeado de apagá-lo. 
Além disso, a resolução gráfica da tela 
é bastante pequena. No entanto, esses^ 
micros podem ser equipados, opcior 
mente, com uma placa ou um i 
para gráficos de alta resoluçj 

Já os microcomputador^ 
TRS-Color. Apple 11, Sinclair Spectrum 
e MSX dispõem de recursos bastante so- 
fisticados pata desenhar em alta re- 
solução. 

Além disso, os micros mais moder- 
nos contam com comandos gráficos adi- 
cionais que permitem criar figuras geo- 
métricas, como círculos e retàngulos, e 
pintá-las com cores diversas. 

Para esses computadores, existe o 
conceito de cursor gráfico, ou seja, um 
ponto imaginário na tela que indica as 
coordenadas finais do último ponto ou 
reta traçados. 



IA imagem de alta resolução que o 
Spectrum produz na tela é de 256 pixels 



no sentido horizontal e 176 no sentido 
vertical . 

Os pixels são numerados de uma ma- 
neira aparentemente estranha à primei- 
ra vista. Se você já utilizou as declara- 
ções PRINT AT antes, sabe que: 
PRINT AT 10,15 ... 

significa que o que deve ser impresso se- 
rá colocado na tela em uma posição de- 
finida por 10 linhas, contadas a partir 
do alto da tela, e 15 colunas, contadas 
a partir da borda esquerda. 

Entretanto, quando você emprega a 
instrução PLOT para acender um pixel, 
o primeiro parâmetro do comando for- 
nece a distância a partir da margem es- 
querda do vídeo, e o segundo define a 
distância para cima, a partir do lado in- 
ferior da tela. Esse método, aparente- 
mente em conflito com o anterior, se- 
gue a convenção adotada para o siste- 
ma de coordenadas ortogonais (cartesia- 
nas). Assim, por exemplo, 0 comando 

PLOT 10,15 

diz ao compulador para colocar um si- 
nal na tela distante 10 pixels da margem 
esquerda e 15 linhas contadas de baixo 
para cima. Equivale, portanto, a X = 10 
e Y = 15. Se você fizer a experiência ve- 
rá o ponto aparecer na parte inferior es- 
querda da leia. As posições horizontais 
são numeradas de 0 a 255, e as verticais, 
de 0 a 175. Para sentir melhor como 
kfunciona a numeração das posições de 
tela. tente digitar essas linhas, uma de 
cada \ e/ : 



PLOT O.o 
PLOT 0.1 /i 
PLOT 255,0 
PLOT 255.175 




Os quatro pcwuos vistos agora na tela 
marcam oslimkesda área na qual se pode 
desenhar alguma coisa. Tudoo que esti- 
■ fora desses limites cairá numa parte da 
nhecida como moldura ou borda 
IJ (veja mais adiante). Você po- 
de usar, nestecaso, o comando PLOT com 
todas as cores disponíveis no Spectrum. 



COMO DESENHAR RETAS 



O comando DRAW do Spectrum faz 

exatamente o que você espera: ele dese- 
nha uma linha reta. 

Antes, porém, o computador lem que 
saber onde começar a desenhá-la, qual 
será o seu comprimento, e em que dire- 
ção você quer orientá-la. 

Para iniciar a reta, você pode utili- 
zar uma posição qualquer na tela, con- 
forme foi definido para o comando 



PLOT. Tente essas retas em ordem, sem 
limpar a tela entre elas: 



Se você não fornecer uma nova coor- 
denada na leia, por intermédio do co- 
mando PLOT (que pula para ela, sem 
desenhar nada), o computador conti- 
nuará a desenhar a partir da última po- 
sição, ou seja, do ponto final da úitima 
reta traçada (que é onde está o cursor 
gráfico). Para comprovar isso, adicio- 
ne as seguintes retas, uma de cada vez, 
às duas que você acabou de desenhar: 

DRAW 0 , 50 
DRAW -50,0 
DRAW 0,50 

Como você pode observar, é neces- 
sário empregar números positivos para 
desenhar para cima ou para a direita e 
números negativos para desenhar para 
baixo ou para a esquerda. 

Para traçar uma reta inclinada, você 
deve seguir a mesma regra: primeiro, es- 
tabeleça quantas posições para a direi- 
ta ou para a esquerda o cursor gráfico 
deve se movimentar, depois quantas po- 
sições para cima ou para baixo. Por 
exemplo, acrescente essa reta àquelas já 
traçadas acima: 

DRAW 50,50 



CONSTRUA UM PROGRAMA 



te aqui um programa mais interes- 
!íte, utilizando o comando DRAW. 
Para que você possa ver o que está acon- 
.çcendo, entre e execute as linhas dos 
tramas abaixo: 



p Tb ink 2 

20 PLOT 0,175 

30 LET t-255: LET r--175; 

LET b--255: LET 1-169 

40 DRAW t,0: DRAW O.r: DRAW b 

, 0 : DRAW 0 , 1 

Se você digitou o programa correta- 
mente (e não cometeu erros, como uti- 
lizar o número 1 no lugar do L minús- 
culo, ou vice-versa), obterá um retângu- 
lo sem um dos lados. Em seguida, adi- 
cione ao programa as linhas abaixo: 

50 LET t-t-6 

60 LET r-r+12: LET b-b+12: 
LET 1-1-12 ^^^^^^ 

70 DRAW t,0: DRAW O.r: DRAW b 

,0: DRAW 0,1 

Ao executar o programa, você nota- 
rá que agora apareceu um outro retân- 
gulo menor, dentro do primeiro. Acres- 
cente então o resto do programa: 
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80 LET t=t-6 
90 GOTO 50 

Veja o que acontece: cada vez que o 
seu programa execuia o laço entre as li- 
nhas 50 e 90, deduz 12 de cada um dos 
números positivos. A variável t (topo), 
por exemplo, diminui 255 para 243, de- 
pois para 231... para 219... e assim por 
diante. Eventualmente, ele vai aquém do 
zero e se torna um número negativo — 
assim, a reta que está sendo controlada 
pelo laço muda de direção. Do mesmo 
modo, as variáveis inicialmente negati- 
vas (tais como b, para baixo) podem 
tornar-se positivas e também mudar de 
direção. 

Para observar mais de perto esse pro- 
cesso, rode novamente o programa com 
a seguinte adição: 

85 PAUSE 100 



LUZ E SOMBRA 



O Spectrum não lem a declaração 
COLOR, usada para colorir Fácil e ra- 
pidamente uma área de fundo. 

Todavia, você pode "sombrear" o 
desenho, utilizando uma série de retas 
paralelas de uma só cor. Mas, como ca- 
da nova reta precisa ter seu próprio co- 
mando PLOT, os programas tendem a 
se (ornar demasiado lentos. 

Um modo de se coniornar essa difi- 
culdade é utilizar um laço FOR...NEXT: 
o programa seguinte desenha a parede 
direita de uma casa (figura 2): 

20 FOR h-56 TO 100 STEP 3 

30 PLOT 160, h 

40 DRAW 23,12 

50 NEXT h 

60 PLOT 183,110 : DRAW 0,-9/ 

: DRAW -23,-13: DRAW 0.100 

Como isso funciona? Cada vez que 
o laço é executado, o programa desenha 
uma linha de 23 pixels, inclinando-a de 
12 pixels, da esquerda para a direita. A 
cada nova linha, ele inicia 160 pixels à 
esquerda. 




Fig. 1: Um padrão de gráfico para <i Spectrum. 




Fig. 2: A ca.sa em perspectiva. 



Mas a cada "viagem" do laço a li- 
nha 20 acrescenta 3 à variável h, que re- 
presenta a altura da posição PLOT. As- 
sim, o início de cada linha será três pi- 
xels mais alto que o da anterior. 

Acrescente as próximas linhas e sua 
casa passará a ter a maior parte do 
telhado: 

70 LET r-100 

80 FOR D-140 TO 150 

90 PLOT r.P 
100 DRAW 69.-44 
110 LET r-r+2 
120 NEXT P 

Existem aqui duas variáveis, per. Is- 
so se deve a que as posições PLOT 
movimentam-se não apenas para cima 
mas também para a direita. 

Observe a utilização de números ne- 
gativos na linha 100 para fazer o decli- 
ve do telhado para baixo. As próximas 
linhas completam o contorno da casa: 

130 PLOT 100,140 
140 DRAW -60,-40 
150 PLOT 46,103 
160 DRAW 0,-96 
170 DRAW 113,-7 

Agora você pode terminar a casa, 
uma porta, as janelas e uma chaminé 
com D auxílio dos comandos PLOT e 
DRAW. Se você decidir copiar a casa 
que aparece na figura 1, eis aqui algu- 
mas sugestões: 

O triângulo do revestimento abaixo 
do telhado requer três variáveis. A pri- 
meira define a altura onde cada linha co- 
meça. A segunda controla a distância, 
à direita, de onde ela parte. A terceira, 
finalmente, determina o comprimento 
da linha. 

As janelas do andar superior são tra- 
çadas sobre o revestimento, depois que 
este é desenhado. Para fazer isso, você 
precisará jogar espaços em branco, 
usando o PRINT AT, nos pontos ade- 
quados. Em seguida, trace o contorno 
das janelas, utilizando PLOT e DRAW 
da maneira usual. 



COMO DESENHAR CÍRCULOS 



A declaração CIRCLE do Spec- 
trum também se comporta de modo pre- 
visível: ela desenha um círculo. 

É necessário não esquecer que os pri- 
meiros dois números após uma declara- 
ção CIRCLE definem as coordenadas 
do centro do circulo — o qual não é tra- 
çado — , enquanto o terceiro número 
fornece o seu raio em pixels. Assim a 
Unha: 

CIRCLE 127,87,50 
... desenha um circulo de 100 pixels de 
diâmetro (50 de raio) no meio da tela 
(posição x = 127 e y= 87), 

No programa da casa, por exemplo, 
você pode "instalar" uma janela redon- 
da na porta da frente, utilizando a de- 
claração CIRCLE. 

Se você seguir um CIRCLE com uma 
declaração DRAW, a linha que você de- 
senhar começará a partir do ponto on- 
de o circulo termina. 



CORES NO SPECTRUM 



O Spectrum tem uma gama de oito 
cores, identificadas por rótulos acima 
das teclas numéricas de 0 a 7, que são 
utilizadas para chamá-las quando isso se 
faz necessário. O comando BORDF.R 
(bordas) controla a área externa da te- 
la, sobre a qual você não pode desenhar 
nem imprimir nada. 

Os outros comandos de cores podem 
ser utilizados de duas maneiras bem di- 
versas. Se você rodar um programa 
com, por exemplo, 

10 BORDER 2:PAPER 2:INK 7 
tudo o que se seguir no programa, de- 
pois que essa linha for executada, será 
impresso em branco (1NK 7), sobre uma 
tela de fundo vermelho (PAPFR 21 
Tal situação só será alterada quando 
você substituir essa linha por outra que 
modifique os comandos de cor. Note 
que a moldura é da mesma cor que o 
fundo da tela (BORDER 21. mas 
você poderia ter especificado outra cor 
para ela. Até mesmo as listagens dos 
programas aparecerão nas cores indica- 
das, o que pode dificultar a sua leitura. 
Se, por outro lado, você iniciar com: 

10 PRINT PAPER 2:INK 7 : AT 

15,10; "■" 
então, apenas a pequena área da tela on- 
de o asterisco entre aspas aparece fica- 
rá vermelha. 

Observe que no primeiro exemplo as 
declarações de cor são seguidas por dois H 
pontos, ao passo que no segundo exem- 1 



mu 
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pio cada uma delas é separada por um 
ponto e virgula. 

Você pode incorporar essas declara- 
ções de cor a qualquer linha do progra- 
ma, utilizando PLOT, DRAW ou CIR- 
CLE. Tente essas linhas limpando a te- 
la (comando CLS) entre as linhas: 

PLOT PAPER liXNK 7:125.87 
(Dá para ver o ponto?) 
PLOT 125,a7:DRAW INK 2:50,50 
PLOT 125.87:DRAW PAPER Ij INK 

7 -, 50, 50 
CIRCLE INK 4;127.87,50 

e até mesmo esta: 

CIRCLE PAPER 2:INK 6;125,87.50 
:DRAU 

PAPER 3: INK 7; 75.0 

Esta última combinação pode ser uti- 
lizada para produzir alguns efeitos es- 
petaculares. 

O último dos comandos gráf icos do 
Spectrum tratados neste artigo — o 
FLASH — é igualmente espetacular, e 
muito utilizado em programação de jo- 
gos. O que ele faz é reverter rapidamente 
as cores da tinta e do papel. 

O FLASH deve ser seguido por um 
número — tanto o I para ligar, como 
o 0 para desligar; eis aqui um exemplo 
de sua utilização: 

10 pause 0 

20 if inkey3-"" then goto 30 

30 FOR n-10 TO 23: SOUND .015 
,n: NEXT n 

40 BORDER 2: PAPER 2: INK 6: 
FLASH 1 

50 PRINT "NAO TOQUE ! " 

60 PRINT "ESTE COMPUTADOR E P 

ERIGOSO! " 

70 PRINT 

80 GOTO 30 

Quando você tiver entrado esse pro- 
grama, rode-o. Então pressione qual- 
quer tecla... e saia de perto! 



O ZX-8 1 utiliza o comando PLOT de 
um modo parecido ao do Spectrum: 
PLOT, seguido por dois números que 
controlam a posição do pixel. Mas existe 
uma diferença: os pixels do ZX-81 são 
dezesseis vezes maiores do que os pixels 
do Spectrum, pois neste existem apenas 
quatro pixels em cada espaço de carac- 
tere, enquanto que o Spectrum tem 64 
pixels em um espaço de caractere. 

Como resultado, você não consegui- 
rá fazer desenhos ou padrões tão deta- 
lhados: mas tornará cada pixel mais 
■ visível. 

| O programa a seguir traça um padrão 



gráfico na tela. Como ele recomeça ca- 
da vez que vai para a linha 70, você de- 
verá pressionar a tecla <BREAK> 
quando quiser parar: 

10 LET X-INT (RND*32) 

20 LET v-iNT (RND-24) 

30 PLOT X,Y 

40 PLOT 63-X.Y 

50 PLOT X.43-Y 

60 PLOT 63-X.43-Y 

70 GOTO 10 

O ZX-81 não tem o comando 
DRAW, mas você pode utilizar a instru- 
ção PLOT para compor uma reta com 
pontos. Você poderá ver como isso fun- 
ciona com o programa seguinte, o qual 
desenha um certo número de quadrados 
utilizando dois laços FOR. ..NEXT. 

10 FOR N-0 TO 20 STEP 2 

20 FOR M-N TO 43-N 

30 PLOT M.N 

40 PLOT M.43-N 

50 PLOT N,M 

60 PLOT 43-N.H 

70 NEXT M 

80 NEXT N 

E de um modo parecido, você pode 
imitar o comando CIRCLE, empregan- 
do a seguinte rotina: 



30 NEXT N 

Ela utiliza as duas funções matemá- 
ticas — o seno (SIN) e o cosseno (COS) 
— para calcular as coordenadas dos pi- 
xels que compõem o círculo. Elas serão 
explicadas em detalhes em um artigo 
posterior, mas, no momento, você po- 
de experimentar com o tamanho do cír- 
culo, modificando os dois números 20. 
O número máximo que você pode ter é 
22 (maior que isso não caberá na tela). 
Outra maneira é modificar a posição do 
círculo. No momento, seu centro está 
em 32,22 (você pode ver essas coorde- 
nadas na linha 20). Não se esqueça de 
fazer o circulo menor se você movê-lo 
para perto da borda da tela. 



HM1I 



Os microcomputadores compatíveis 
com Apple II também têm recursos ra- 
zoáveis para a elaboração de desenhos 
em alta resolução, em cores. 

O Apple tem três modalidades de te- 
la: a tela de texto (invocada pelo coman- 
do TEXT e limpada pelo comando HO- 
ME); a leia gráfica de baixa resolução 
(que tem 40 pixels na direção horizon- 
tal e 40 pixels na direção vertical, usan- 
do dezesseis cores); e a tela gráfica de 



alta resolução (que tem 280 pixels na di- 
reção horizontal e 192 na direção verti- 
cal, com seis cores). O comando para li- 
gar a tela gráfica de baixa resolução é 
o GR; e, para a tela de alta resolução, 
o HGR. 

Existe um conjunto diferente, embo- 
ra parecido, de comandos gráficos pa- 
ra os modos de alta e de baixa resolu- 
ção. Para o modo de baixa resolução te- 
mos os seguintes: COLOR, PLOT, 
Hl. IN e VLIN. Para a alta resolução, 
os comandos que mostraremos nesta li- 
ção são o HCOLOR e o HPLOT. 

Além disso, existem outros comandos 
mais sofisticados para o modo de alta 
resolução, tais como DRAW, ROTA- 
TE, SCALE, ele, que serão tratados em 
uma lição futura. 

Os micros da linha Apple II têm a li- 
mitação de não permitir a exibição si- 
multânea de letras e de gráficos de bai- 
xa e de alta resolução na mesma tela. Só 
o modelo nacional TK-2000, da Micro- 
digital, tem essa capacidade. 



Para demonstrar a utilização dos co- 
mandos gráficos de alta resolução no 
Apple II e no TK-2000, vamos fazer um 
desenho bem simples, passo a passo: um 
aparelho de TV em que aparecem uma 
série de pontos coloridos, distribuídos 
aleatoriamente na tela. O programa co- 
meça com as linhas a seguir, que dese- 
nham a caixa do televisor: 

10 HGR2 

20 HCOLOR- 3 

30 HPLOT 10,75 TO 200,75 

40 HPLOT 200,75 TO 200.190 

50 HPLOT TO 10,190 ( 

60 HPLOT TO 10,75 

A linha 10 define o tipo de tela grá- 
fica a ser utilizada, com o comando 
HGR2. O HGR significa que a tela será 
de alta resolução (High-resolution GRa- 
phics), e o número 2 diz ao computador 
que a tela será inteiramente tomada pe- 
los gráficos (se não houvesse esse 2, o 
computador reservaria automaticamen- 
te cinco linhas de texto na parte de bai- 
xo da tela). Sem esse comando, o com- 
putador não aceitaria os comandos grá- 
ficos subsequentes. 

A linha 20 define a cor a ser usada 
para o traço em alta resolução. É usa- 
do o comando HCOLOR, seguido do 
número da cor desejada. O Apple não 
tem um comando para definir a cor de 
fundo, como é o caso do MSX e do 
TRS-Color. Se for necessário ter uma 
cor de fundo diferente do preto (a nor- 
mal da tela), usa-se uma sucessão de li- 




nhãs paralelas da mesma cor (essa ma- 
nobra, porém, leva muito tempo). 

As linhas 30 a 60 traçam um retân- 
gulo na tela, com o canto superior es- 
querdo em (10,75) e o canto inferior di- 
reito em (200,190). O comando utiliza- 
do é o HPLOT. Esse comando pode ser 
usado de várias maneiras. 

A variante do HPLOT mostrada nes- 
se segmento de programa serve para tra- 
çar retas. Os parâmetros básicos para o 
HPLOT são conjuntos de dois números 
ou expressões numéricas, separados por 
uma vírgula. Tais parâmetros indicam 
a posição em que o cursor gráfico deve- 
rá ser colocado na tela de alta resolução. 
Por exemplo: HPLOT 10,75... diz ao 
computador para começar a traçar uma 
reta em alta resolução, nas coordenadas 
X = 10 e Y = 75 (ou seja. 10 pixels dis- 
tantes da margem esquerda da tela, e 75 
pixels abaixo do topo). 

Para traçar uma reta, usa-se o co- 
mando do HPLOT seguido da palavra 
TO. Por exemplo, na linha 30 do pro- 
grama, traçamos uma reta começando 
no ponto (10,75), e indo até o ponto 
(200,75) — portanto, paralela ao eixo 
horizontal — usando o comando: 
HPLOT 10.75 TO 200,75 

O cursor gráfico agora fica no últi- 
mo ponto da tela depois do TO: no 
exemplo acima, em (200,75). Se quiser- 
mos traçar uma reta a partir daí, não é 
necessário especificar um novo começo 
para ela. Basta usar o comando assim: 

HPLOT TO 200,190 

Essa nova forma vai traçar uma linha 
de (200,75) a (200, 1 90) — uma reta ver- 
tical, portanto. 

A linha 300 simplesmente "congela" 
a tela gráfica, impedindo que o fim do 
programa a cancele. 

Vamos traçar agora o restante do te- 
levisor, adicionando as linhas abaixo: 

70 HPLOT 25,85 TO 155. B5 TO 15 
5.180 TO 25. 180 TO 25.85 
80 HPLOT 10, 7S TO 45,50 
90 HPLOT 200.75 TO 235,50 
100 HPLOT 200,190 TO 235,165 
110 HPLOT 45,50 TO 235,50 TO 2 
35.165 

120 HPLOT 190.60 TO 230,0 
130 HPLOT 190.60 TO 150.0 
140 HPLOT 175.85 TO 179,85 TO 
179.89 TO 175,69 

150 HPLOT 175,105 TO 179,105 T 

O 179,109 TO 175,109 

160 HPLOT 175,135 TO 179,135 T 

0 179.139 TO 175,139 

170 HPLOT 175.155 TO 179,155 T 

O 179,159 TO 175,159 

A linha 70 traça um outro retângulo 
dentro do primeiro. Note que podemos 



utilizar uma série de cláusulas TO, den- 
tro da mesma linha com o HPLOT. A 
linha 70| funciona de modo idêntico às 
quatro linhas dos números 30 a 60. 

As linhas 80 e 90 servem para dese- 
nhar a antena. Note que linhas inclina- 
das são traçadas exatamente com a mes- 
ma técnica do HPLOT. As linhas res- 
tantes, de 100 a 170, servem para traçar 
o restante do desenho do televisor, e dar 
perspectiva a ele, 

Finalmente, para fazer aparecer um 
"chuvisco" colorido na tela do televi- 
sor que está sendo esboçado no vídeo do 
seu computador, adicione as linhas: 

180 X - INT ( RND (1) * 130) + 
26 

190 Y - INT ( RND (1) * 95) + 
66 

200 COLOR- RND (1) * 10 
210 HPLOT X.Y 
220 COTO 180 

As coordenadas dos pontos aleató- 
rios são definidas nas linhas 180 e 190 
e são armazenadas nas variáveis X e Y. 
Note que a expressão aritmética sorteia, 
usando a função RND, um número in- 
teiro dentro dos limites da tela. 

O HPLOT mostrado aqui é mais sim- 
ples, pois é seguido apenas por dois nú- 
meros ou duas expressões numéricas, se- 
paradas entre si por uma vírgula. Esses 
dois parâmetros indicam a posição em 
que o cursor gráfico deverá ser coloca- 
do na tela de alta resolução. 

HPLOT X.Y 



diz ao computador para traçar um pon- 
to em alta resolução, nas coordenadas 
X e Y. 

Finalmente, a linha 220 gera novos 
pontos aleatórios em um laço infinito. 
Para interrompê-lo, use as teclas 
<CTRL> <C>. 



círculos na tela 



Os micros da linha Apple não têm um 
comando específico para traçar círculos, 
mas você pode imitar o comando CIR- 
CLE utilizando a seguinte rotina: 

10 HOME : INPUT "COR:";C 

12 INPUT "CENTRO (X.Y) : " ;XC , YC 

14 INPUT "RAIO: " ;R 

15 HCOLOR- C 

16 HGR 

17 HPLOT XC.YC + R 

20 FOR N - 0 TO 6.2856 STEP .1 




Formas simples como esta televisão podem ser 
desenhadas no Apple II e no TK-2000. 
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30 HPLOT TO XC + R * SIN (N) 
, YC + R * COS (N) 
40 NEXT N 

Essa rotina utiliza as duas funções 
matemáiicas — o seno (SIN) e o cosse- 
no (COS) — para calcular as coordena- 
das de cada pixel que compõe o círcu- 
lo. Tais funções serão melhor explica- 
das em uma futura lição; no momento, 
porém, você pode experimentar com o 
tamanho do círculo, modificando os 
dois números 20 na linha 20. O número 
máximo que se pode ter é 22 (a tela não 
comporta um valor mais alto). Você po- 
de também modificar a posição do cír- 
culo. Seu centro está em 32,22; observe 
essas coordenadas na linha 20. Não se 
esqueça de fazer o círculo menor se vo- 
cê movê-lo para peno da borda da tela. 




Assim que você liga o computador, 
ele exibe a tela de texto. Nela você pode 
mostrar todos os caracteres do teclado, 
mais os caracteres gráficos da ROM, já 
utilizados antes. 

Se você quiser desenhar qualquer coi- 
sa mais sofisticada do que aquiio que es- 
ses simples gráficos permitem, deve em- 
pregar os gráficos de alta resolução da 
máquina. Estes são obtidos em uma te- 
la completamente diferente da tela de 
texio — pois, nos computadores com- 
patíveis com o TRS-Color, não é possí- 
vel colocar-se, ao mesmo tempo, texto 
e gráficos de alta resolução na mesma 
tela. 



RETAS CRUZADAS 



Eis aqui um programa que desenha 
duas relas cruzadas na tela, utilizando 
a tela gráfica em modo 3; 

20 pmode 3,1 

30 PCLS 

40 SCHEEN 1.0 

50 LINE (0.191)-[255.0) . PSET 
60 LINE t0.0)-(Z55. 191) .PSET 
70 GOTO 70 

O programa começa especificando a 
modalidade gráfica e a página (parte da 
memória do computador) em que você 
deseja colocar a informação gráfica. A 
linha 20 declara isso com PMODE 3,1. 
Essa informação diz à máquina para de- 
senhar em modalidade de gráficos 3 e 
para armazenar qualquer coisa que vo- 
cê desenhar na tela na página de memó- 
ria gráfica número I . Se você quiser de- 

senhar apenas uma tela cheia de gráfi- 

cos será mais fácil especificar a página 1 . 
I A linha 30 limpa a tela de alta reso- 



lução. PCLS é o comando p;ira alta re- 
solução, equivalente ao CLS. 

Para "ligar" a leia de alta resolução 
o programa utiliza o comando SCREEN 
1,0. O conjunto de cores c escolhido 
coloeando-se 0 como o segundo no co- 
mando SCREEN: esse conjunto consiste 
de verde, amarelo, azul e vermelho. Se, 
ao invés disso, você tivesse colocado 1 , 
o conjunto de cores seria branco, azul 
ciano, magenta e laranja. 

Esse programa desenha linhas em 
verde e vermelho, que são as cores pré- 
definidas (são as normalmente utiliza- 
das pelo computador, se você não espe- 
cificar nenhuma oulra). Para utilizar 
qualquer outra combinação do conjun- 
to de cores você deverá utilizar o coman- 
do COLOR. Isso será explicado em de- 
talhes, futuramente. 

A primeira reia é desenhada pelo co- 
mando LINE na linha 50. Os números en- 
tre parênteses dizem ao computador em 
que pontos você quer que a linha comece 
e termine. A tela de alta resolução c divi- 
dida em 256 pixels por 192 — no sentido 
vertical, eles são numerados de 0 a 191, 
a partir do alto; no sentido horizontal, 
de 0 a 255, a partir da esquerda. Note que 
a convenção adotada no TRS-Color pa- 
ra as coordenada* cartesianas é o oposto 
ao normal. 

Portanto, LINE (0,191)-(255,0) tra- 
ça uma reta com a origem em X = 0 e 
Y= 191 e fim cm X = 255 e Y=0. 

Finalmente, PSET sozinho, no co- 
mando LINE, diz à máquina para dese- 
nhar a cor de maior número do conjunto 



de cores — neste caso, o vermelho. 

A linha 60 desenha a próxima reta. 
Isto funciona exatamente do mesmo 
modo como na linha 50, mas os pontos 
iniciais e finais são definidos no- 
vamente. 

Para evitar que o computador retor- 
ne automaticamente para a tela de tex- 
to, uma vez que a tela de alta resolução 
tenha sido desenhada, estabelecemos um 
laço sem fim: é o que a linha 70 faz, com 
o comando GOTO 70. Se o computador 
ligasse novamente a tela de texto, não 
seria possível ver o que foi desenhado 
na tela de alta resolução. 



círculos no trs-color 



É muito fácil desenhar círculos no 
TRS-Color, pois o seu BASIC possui 
um comando CIRCLE. 

Este programa desenhará três círcu- 
los com tamanhos diferentes, cada um 
com uma cor diferente. 

20 PMODE 3,1 

30 PCLS 

40 SCREEN 1 , 0 

50 CIRCLE (70.95) ,10.2 

60 CIRCLE (116,95) ,20.3 

70 CIRCLE (184.95) . 30,4 

60 GOTO 80 

A modalidade gráfica é escolhida co- 
mo no programa anterior, assim como 
o conjunto de cores para os círculos. 

O comando CIRCLE nas linhas 50 a 
70 tem quatro elementos. O primeiro e 
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o segundo números definem as coorde- 
nadas do centro do círculo, o lerceiro é 
o seu raio, em pixels, e o quarto é a cor. 
Assim, o círculo desenhado pela linha 
50 lem o seu centro em (70,95), um raio 
de 10 pixels e está colorido de amarelo 
(Cor 2). 

O círculo desenhado pela linha 60 é 
azul, com raio de 20 pixels, e com cen- 
tro em (1 18,95). O último circulo, dese- 
nhado pela linha 70, é vermelho, com 
raio de 30 pixels e com centro em 
(184,95). 

Finalmente, a linha 80 é um laço que 
impede que o programa pare e desligue 
a tela de alta resolução. 



DESENHE UM JIPE 



Agora você possui os ingredientes pa- 
ra desenhar muitas coisas diferentes. Di- 
gite e rode o programa abaixo e você ve- 
rá o esboço da carroçaria de um jipe, 
ainda sem os detalhes internos mostra- 
dos na figura 3. 

20 pmode l , l 

30 PCLS 

40 SCREEN 1 . 0 

bO LINE (106.64) - (188,64) .PSET 

60 LINE- C188. 116) .PSET 

70 LINE- (104. 116) , PSET 

80 LINE- (96, 96) . PSET 

90 LINE-170.96) , PSET 

110 LINE-(74.96! , PSET 

120 LINE- (74 , 86) . PSET 

130 LINE- (114 . 86) , PSET 

140 LINE- (132. 104) . PSET 

ISO LINE- (140. 104) ,PSET 

160 LINE-U40.64) , PSET 

170 LINEI76.96) - (76. 108) , PSET 

ISO LINE- (100. 108) -PSET 

320 GOTO 320 

Assim como antes, a modalidade es- 
colhida é a de número 3. A linha 50 co- 
meça traçando uma linha vermelha de 
(108.64) a( 188,64). Para continuar o de- 
senho a partir do mesmo ponto, não se 
deve dizer ao computador por onde co- 
meçar — ele apenas prossegue de onde 
estiver no momento. As linhas 60 a 160. 
portanto, apenas definem os finais de li- 
nhas sucessivas. 

A linha 170, no entanto, desenha 
uma linha a partir de um novo ponto 
inicial: assim tanto o inicio como o fim 
devem ser definidos. 

Acrescente agora algumas linhas pa- 
ra definir o pára-brisa, as rodas e as 
calotas: 

200 LINE(140.86)-(188.88) , PSET 
220 LINE ( 1 18 , 64) - (104 , 86) .PSET 
230 CIBCLE(82,116) ,14,3 
250 CIRCLE(82,116) ,6,2 
270 CIRCLEU68. 116) .14.3 
290 CIHCLEU6a,116> .6,2 



A linha 200 desenha a janela, en- 
quanto o pára-brisa é determinado pela 
linha 220. O comando CIRCLE é utili- 
zado pelas linhas 230 e 270 para definir 
as rodas e pelas linhas 250 e 290 para 
desenhar as calotas. 




Agora que o desenho está feito, é fá- 
cil colorir o seu jipe: você nem precisa 
de uma pistola de pintura, porque a má- 
quina faz isso através do comando 
PAINT. 

O comando PAINT preenche com 
uma cor específica qualquer forma que 
você tenha desenhado na tela. Ele tam- 
bém possui quatro elementos. Os dois 
primeiros, como você já deve ter adivi- 
nhado, marcam o local onde a pintura 
deve começar. O terceiro é o código da 
cor a ser utilizada. E o quarto é o códi- 
go de cor da borda, ou da linha onde 
a pintura deve acabar. 

Acrescente essas linhas e você verá, 
na prática, como fica o programa: 

190 PAINTÍ90.100) .2,4 
210 PAINTU20.110) ,4,4 
240 PAINT (82 , 116) . 3 . 3 
260 PAINTI82, 116) ,2,2 
280 PAINT (166 , 116) , 3, 3 
300 PAINTU66.116) .2,2 
310 PAINTI180.80) ,2,4 

Rode agora o programa: como num 
passe de mágica, o jipe se cobrirá de 
cores. 

Não é possível colocar ao final do 
programa todas as linhas com PAINT, 
por uma razão muito importante: 

A área que você quer colorir deve ser 
fechada completamente por uma série 
de rctas da mesma cor (a cor da borda), 
ou pela borda da tela. Qualquer linha 
de cor diferente que estiver localizada no 
meio da figura geométrica a ser preen- 
chida será pinlada por cima. 

As cores disponíveis no PMODE 3,1 
são: verde (l), amarelo (2), azul (3) e 
vermelho (4). Se você quiser pintar o ji- 
pe de modo diferente, tudo o que tem 
a fazer é modificar o número de cor da 
pintura nas linhas PAINT correspon- 
dentes. 

Você pode, se quiser, acrescentar ou- 
tras partes ao jipe, equipando-o com no- 
vos elementos, como uma roda de dire- 
ção, por exemplo. Para isso, empregue 
os comandos LINE e CIRCLE. 



Assim que você ligar o computador, 
ele exibirá a tela de texto, na qual po- 
dem ser mostrados todos os caracteres 



do teclado, mais os caracteres do gráfi- 
co da ROM. Estes últimos já foram uti- 
lizados em programas anteriores. 

Para desenhar figuras mais sofistica- 
das do que aquelas que vimos até ago- 
ra, é necessário utilizar os gráficos de al- 
ta resolução da máquina. Estes são ob- 
tidos em uma tela completamente dife- 
rente da tela de texto, já que os compu- 
tadores da linha MSX não permitem que 
sejam colocados, ao mesmo tempo, tex- 
to e gráficos de alta resolução numa úni- 
ca tela. 



VOLTANDO Ã LINHA RETA 



Eis aqui um programa que desenha 
duas retas cruzadas no vídeo, utilizan- 
do a tela gráfica em modo 2: 

10 SCHEEN 2 

20 LINE(0.191)-(255.0) .15 
30 LINE (0.0)-(255, 191) .1 
40 GOT040 

O programa começa especificando a 
modalidade gráfica e a página (parte da 
memória do computador) na qual você 
deseja colocar a informação gráfica. A 
linha 20 declara isso com SCREEN 2, 
dizendo à máquina para desenhar em 
modalidade de gráficos 2. 

A primeira reta é desenhada pelo co- 
mando LINE, na linha 20. Os números 
entre os parênteses dizem ao computa- 
dor onde a linha deve começar e termi- 
nar. A tela de alta resolução é dividida 
em 256 pixels por 192: no sentido verti- 
cal eles são numerados de 0 a 1 9 1 , a par- 
tir do alto; no sentido horizontal, de 0 
a 255, a partir da esquerda. 

Portanto, LINE <0,191)-U55.0) tra- 
ça uma reta com origem em X = 0 e 
Y = 191 e fim em X = 255 e V = 0. 

O número no final do comando LI- 
NE diz à máquina que cor ela deve em- 
pregar (neste caso, existem dezesseis co- 
res, numeradas de 0 a 15). 

A linha 30 desenha a próxima reta. 
Isso funciona do mesmo modo que na 
linha 20, mas os pontos iniciais e finais 
são definidos novamente. 

Para evitar que o micro reiorne à te- 
la de texto unta vez que a tela de alta re- 
solução tenha sido desenhada, estabele- 
cemos um laço sem fim: é o que a linha 
40 faz, com GOTO 40. Se o computa- 
dor religasse a tela de texto, você não 
seria capaz de ver o que foi desenhado 
na tela de alta resolução. 



CÍRCULOS NO MSX 



Assim como no TRS-Color, é fácil 
desenhar círculos no MSX, pois o seu 
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BASIC conta com um comando chama- 
do CIRCLE. Este programa desenha 
três círculos com tamanhos diferentes, 
cada um de uma cor: 



A modalidade gráfica é escolhida co- 
mo no programa anterior. Só que a cor 
de fundo da tela é definida antes, com 
o comando COLOR. O primeiro núme- 



10 COLOR 4,15 
20 SCREEN2 

30 CIRCLE(70.9S) ,10,2 
40 CIHCLKU18.95) .20,4 
50 CIRCLE (164, 9 Ti ) .30,8 
60 GOTO 60 



Qual a diferença entre gráficos de 
baixa, média e alta resolução? 

O grau de resolução gráfica a ser ob- 
tido em um computador depende do 
número 6e pixels que se pode endere- 
çar individualmente na tela. O pixel 
(que vem da abreviação, em inglês, de 
picture eíement) é o pontinho gráfico 
que um comando BASIC acer de ou 
apaga. Naturalmente, como a tela tem 
um tamanho limitado, a resolução é 
proporcional âs dimensões físicas de 
cada pixel. 

Do ponto de vista técnico, a alta re- 
solução gráfica é obtida quando hã 
mais de 100 000 pixels por tela (por 
exemplo, o micro de tipo IBM-PC tem 
600 pixels na horizontal por 200 na 
vertical). A resolução média ficaria com 
algo entre 30 000 e 1 00 000 pixels; a 
essa faixa pertencem o Sinclair Spec- 
trum, o TRS-Color, o Apple II e 0 
TK-2000. Jé a resolução baixa tem de 
2 500 a 10 000 pixels por tela Ipor 
exemplo, o TRS-80 e o ZX-81 1. Entre- 
tanto, muitos fabricantes (como os da 
linha Apple III chamam de alta resolu- 
ção os gráficos tecnicamente definidos 
como de média resolução. 

O TRS-80 pode ser usado para de- 
senhar em BASIC? 

Sim. embora os seus gráficas apa- 
reçam apenas em baixa resolução (128 
por 48 pixels, em preto e branco!. O co- 
mando a ser utilizado para "acender" 
um pixel na tela é o SET. Esse coman- 
do deve ser seguido de dois parâmetros 
ou expressões numéricas: o primeiro 
IX) indica a posição horizontal do pixel 
e o segundo (V), a sua posição vertical. 
Ele equivale, portanto, ao comando 
PLOTdos micros da linha Sinclair. Exis- 
tem ainda os comandos gráficos RESET 
(para "apagar" o pixel aceso) e POINT 
luma função que informa se um deter- 
minado pixel está aceso ou apagado). 



ro é a cor do caractere (cor de frente), 
e o segundo, a cor de fundo. 

O comando CIRCLE nas linhas 30 a 
50 tem quatro elementos. O primeiro e 
o segundo números definem as coorde- 
nadas do centro do círculo, o terceiro é 
o seu raio, em pixels, e o quarto é a cor. 
Assim, o círculo desenhado pela linha 
30 tem o seu centro em (70,95). um raio 
de 10 pixels e é colorido de amarelo 
(cor 2). 

O circulo desenhado pela linha 40 é 
azul, com um raio de 20 pixels, e centro 
em (1 18,95). O último circulo, desenha- 
do pela linha 50. é vermelho, com raio 
de 30 pixels e centro em (184,95). A li- 
nha 60 é um laço que impede que o pro- 
grama pare e desligue a tela de alta re- 
solução. 



DESENHE 0 JIPE NO MSX 



Como você já deve ter percebido, al- 
gumas seçòes de nosso texto repetem se- 
ções anteriores. Isso se deve à similari- 
dade dos procedimentos nos diversos 
micros. Agora, digite e rode o progra- 
ma abaixo. 

10 COLOR 4,15 
20 SCREEN2 

30 LINE (108,64)- (188. 64} ,10 

40 LINE -{188.88) ,10:LINE-<188, 

116) 

50 LINE -'(104,116) 

60 LINE- (96.96) 

70 LINE-(70.96) 

80 LINE-(74,96) 

90 LINE-(74,86) 

100 LINE-(114,86) 

110 LINE-U32.104) 

120 LINE-(140.104) 

130 LINE- (140,64) ,10 

140 LINE {76,96)-{76,108) 

150 LINE- (100,108) 

160 LINE(140.88)-(188.88) .10 

290 GOTO 290 

Isso mesmo, ele recria o jipe. agora 
em outra máquina. Assim como ames, 
a modalidade escolhida éa2. A linha 30 
desenha uma linha vermelha de (108,64) 
a (188,64). Como da vez anterior, você 
nào precisa dizer ao computador onde 
começar a desenhar: ele apenas prosse- 
gue de onde estiver no momento. As li- 
nhas 40 a 160, portanto, apenas definem 
os finais de linhas sucessivas. 

A linha 150. no entanto, desenha 
uma linha a partir de um novo ponto 
inicial; assim, tanto o início como o fim 
devem ser definidos. 

Acrescente agora algumas linhas pa- 
ra o pára-brisa, as rodas e as calotas: 



180 LINE (140 ,89) - (188,89) 

200 LINE(118,64)-(104.86) 

210 CIBCLE(82. 116) .14,3 

230 CIRCLE(82,116) ,6,2 

250 CIRCLE(168, 116) .14.3 

270 CIRCLE(168,116) ,6.2 

As linhas 170 e 180 desenham a ja- 
nela, e a linha 200, o pára-brisa. O co- 
mando CIRCLE é utilizado pelas linhas 
210 e 250 para definir as rodas, e peias 
linhas 230 e 270 para desenhar as 
calotas. 




Para pintar o seu jipe, você nào pre- 
cisa de uma pistola de pintura: a máqui- 
na faz isso para você por meio do co- 
mando PAINT. 

O comando PAINT preenche com 
uma cor específica qualquer forma que 
você tenha desenhado na tela. Ele tam- 
bém possui quatro elementos. Os dois 
primeiros, como você já deve ter adivi- 
nhado, marcam o local onde a pintura 
deve começar. O terceiro é o código da 
cor a ser empregada. O quarto é o códi- 
go de cor da borda, ou da linha, onde 
a pintura deve acabar. 

Acrescente essas linhas ao programa 
e você verá, na prática, como fica o 
programa: 

170 PAINT (142.66) .10.10 
190 PAINT{77,99) ,4,4 
220 PAINT(82 , 116) .3,3 
240 PAINT (82. 116) ,2.2 
260 PAINT(168,116) .3.3 
280 PAINT(168,116) ,2.2 

Rode agora o programa e você verá 
cada seção do jipe sendo preenchida 
com belas cores. 

Não é possível colocar todas as linhas 
com PAINT no final do programa, por 
uma razão muito importante: 

A área que você pretende colorir de- 
ve ser fechada completamente por uma 
série de retas da mesma cor (a cor da 
borda), ou pela borda da tela. 

Qualquer linha de cor diferente que 
estiver localizada no meio da figura geo- 
métrica a ser preenchida deve ser pinta- 
da por cima. 

As cores disponíveis no PMODE 3,1 
são: verde (I), amarelo (2), azul (3) e 
vermelho (4). Mas você pode querer pin- 
tar o jipe de modo diferente; nesse ca- 
so, tudo o que tem a fazer é modificar 
o número de cor da pintura nas linhas 
PAINT correspondentes. 

Outras partes, contudo, podem ser 
incorporadas ao nosso jipe (uma roda 
de direção, por exemplo, ou outro equi- 
pamento qualquer). Para isso, utilize os 
comandos LINE e CIRCLE. 



6 PROGRAMAÇÃO 01 JOGOS 
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■ 


COMO CRIAR FLASHES NA TELA 


■ 


UM PROGRAMA SIMPLES OE 


BOMBARDEAMENTO AÉREO 


■ 


ENRIQUEÇA A AÇAO COM 


CHAMAS E EXPLOSÕES 



Faça de seus jogos de ação um 
eletrizante passatempo, aprendendo 
a obter efeitos gráficos de explosões 
e incêndios na tela do micra 



É relativamente fácil tornar seus pro- 
gramas de jogos mais espetaculares e 
emocionantes: para isso, basta acrescen- 
tar algumas rotinas com efeitos gráficos 
especiais. E elas não precisam ser mui- 
to complexas para dar a esses jogos um 
dinamismo bem diferente. 

Como você verá nesta lição, existem 
muitas maneiras de produzir efeitos vi- 
suais em BASIC. É preciso apenas sa- 



ber usar o tipo certo de efeito para o jo- 
go que está sendo programado. 

Os efeitos gráficos para chamas e ex- 
plosões explicados aqui são adequados 
a todos os tipos de jogos que envolvem 
a destruição de objetos como constru- 
ções, carros, aviões, tanques, navios, 
etc. Alguns deles ficarão ótimos também 
em jogos espaciais. 

Entretanto, como os efeitos de cha- 
mas e explosões utilizam o conceito de 
blocos gráficos, o tamanho máximo do 
alvo sobre o qual serão colocados é res- 
tringido pelas dimensões desses efeitos. 
Isso significa que você não pode 



adicioná-los a um programa qualquer; 
pelo contrário, essa inclusão deve ser 
cuidadosamente planejada. 

Por outro lado, muitos computado- 
res têm comandos embutidos no BASIC 
que permitem a obtenção de flashes (in- 
versão rápida de cores no vídeo), que 
são suficientes para muitos tipos de jo- 
gos, como os de guerra espacial, e que 
têm a vantagem de não exigir adapta- 
ções para uso em um jogo determinado. 



Vamos mostrar aqui como criar, nos 
micros compatíveis com o Sinclair Spec- 
trum (como o TK-90X), o efeito visual 
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de um incêndio provocado pela explo- 
são de uma bomba; depois de ir rom- 
per fortemente, o fogo se extingue gra- 
dualmente, desaparecendo da tela à me- 
dida que o prédio desaba. Isso será ex- 
plicado mais adiante. 

Mas, primeiro, precisamos de um 
avião e de uma bomba. Portanto, digi- 
te o programa abaixo: 
10 FOB N-USR "P" TO USR "q"+7 
20 READ a 
30 POKE n,a 
40 NEXT n 

50 DATA 32.16,136.154,155,9, 
16,32 

60 DATA 0,16,16,120,28,28,0,0 

Usamos aqui a técnica convencional 
de blocos gráficos definidos pelo usuá- 
rio (UDG), disponível no Spectrum. As- 
sim, criamos imagens tanto para o avião 
quanto para a bomba, armazenadas em 
uma área especial, definida pelos ende- 
reços devolvidos pelas expressões USR 
"p" e USR "q" na linha 10. Os códi- 
gos correspondentes estão nas declara- 
ções DATA das linhas 50 e 60, e são co- 
locadas na memória com o POKE da li- 
nha 30. Ao rodar o programa, nada 
acontecerá de inicio. Para verificar se os 
códigos gráficos em DATA foram digi- 
tados corretamente, digite a linha de co- 
mando abaixo (sem precedê-la com um 
número de linha). 

PRINT AT 10,15;CHRS 159:" " ; 
CHRS 160 

— que mostrará na tela os dois blocos 
gráficos definidos. 

Em seguida, você precisará de um 
prédio ou casa para bombardear. Não 
há necessidade de um novo programa 
para isto. Apenas modifique as linhas 
10 e 50 do programa anterior. 
10 FOR N-USR "r" TO USR *r"+7 
20 READ a 
30 POKE n.a 
40 NEXT n 

50 DATA 255.153,255,153,255, 
153,255.255 

Execute o programa de novo e teste- 
o, digitando esta linha (novamente, sem 
colocar número de linha antes): 

PRINT AT 20.15; CHRS 161 

Tendo ficado satisfeito com o resul- 
tado visível na tela, digite NEW para 
apagar o programa da memória. Os bio- 
cos gráficos definidos antes ficarão ar- 
mazenados na memória RAM do com- 
putador, a menos que você o desligue. 



COMECE 0 BOMBARDEIO 



Entre agora o programa do bombar- 
l# deio por meio das linhas seguintes: 



10 BORDER 0: PAPER 5: INK 0: 
CLS 

20 LET aS-" 
200 PRINT PAPER 4 ; AT 20.0;aS; 
aS;aSr aS 

210 PRINT INK 1;AT 19,12;CHRS 
161; CHRS 161;CHRS 161 

O que estas linhas fazem, como você 
verá ao executá-las com o comando 
RUN, é apenas desenhar uma faixa ver- 
de, com dezesseis pixels de altura, na 
parte de baixo da leia; sobre eia ergue- 
se um armazém ou coisa parecida. A 
forma como isso é feito ilustra bem o 
uso de variáveis alfanuméricas no tra- 
balho com gráficos. 

Como você precisa de 64 bloquinhos 
coloridos de verde para fazer o terreno 
gramado, a linha 20 coloca em a$ uma 
sequência de dezesseis espaços em bran- 
co. Em seguida, a linha 200 a imprime 
na tela quatro vezes, começando na li- 
nha 20 e prosseguindo na linha 2 1 . Isso 
economiza a digitação de 64 aS! 

A construção é colocada na tela por 
meio de um quatro PRINT do caracte- 



1040 NEXT n 
1050 STOP 

Mas, espere: não digite o comando 
RUN, ainda. Você poderia destruir a 
parte do programa que já foi digitada. 
Ao invés disso, digite RUN 1000, para 
começar a executar só essa pane do pro- 
grama. Você verá então uma letra G 
aparecer na tela e depois esvanecer-se 
gradualmente, até ser substituída pela le- 
tra F. Isso acontece porque o laço 
FOR.NKXT, que vai da linha 1000 à 
1040, diminui de um em um o valor ar- 
mazenado na locação de memória 
23675, que é o ponto inicial para 0 seu 
bloco gráfico UDG. Assim, a letra exi- 
bida na tela reiroeede gradualmente no 
alfabeto. 

O programa de explosão usa um tru- 
que semelhante. Para fins de segurança 
de seu programa, digite: 
POKE 23675,88 

que restaura o valor original do núme- 
ro armazenado na locação de memória 



re gratico de coaigo i n i (que e o asso- 
ciado à tecla r, no computador, confor- 
me a definição no programa anterior). 

Para fazer o avião voar, sò é preciso 
incluir no programa as seguintes linhas: 
215 PAUSE 100 
220 LET ay-6: LET by-ay 
230 FOR x-0 TO 30 
240 PRINT AT ay , x ; " ";CHRS 159 
250 LET bx-x 

260 IF by<19 THEN PRINT AT by 
+l,bx+l;CHRS 160;AT by , bx ; " " 
270 LET by-by+1; LET bx-bx+1 
280 IF X>29 THEN PRINT AT ay, 
X+li" " 
290 NEXT X 

Não existe nada de incomum nessa 
seção do programa: apenas as técnicas 
convencionais de movimentação de um 
bloco gráfico na tela, que temos usado 
em praticamente todos os programas de 
jogos para o Spectrum. Observe, entre- 
tanto, que as linhas 240, 260 e 280 são 
necessárias para apagar as últimas po- 
sições do avião e da bomba, à medida 
que estes são deslocados pela tela. 



Vamos agora à parte mais importante 
do nosso exercício de programação: a 
explosão. É mais fácil vê-la na tela do 
que tentar descrevê-la. 

Portanto, antes de entrar o restante 
do programa, digite as linhas abaixo: 

1000 FOR n-88 TO 80 STEP -1 

1010 PRINT AT 10.15;CHRS 150 

1020 POKE 23675. n 

1030 PAUSE 50 
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indicada. Em seguida, apague todas as 
linhas de 1000 a 1050 e digite o restante 
do programa de bombardeio: 

90 POKE 23675,88 
100 FOR n-0 TO 31: READ a: 
POKE USR -a"+n.a: NEXT n 
300 FOR e-86 TO 80 STEP -1 
310 POKE 23675, e 
320 PRINT INK 2;AT 19,12;CHH$ 
145 :CHRS 147rCHR$ 145: ,PAUSE 
6 

330 PRINT INK 2;AT 19,12;CHRS 
147 ;CHR$ 145; CHRS 147: PAUSE 
6 

340 NEXT e 

400 POKE 23675.88 

500 GOTO 210 
8000 DATA 0,0.0.0.0,0,0,0,2,128 
,25,126,126.255.255,255 
9000 DATA 0..0. 0,0. 0.0. 0,0. 4. 33, 
144,66.231.255,255.255 

As linhas 100, 8000 e 9000 definem 
os UDG que você precisa para explosão. 
A linha 100 lê os dados contidos nas li- 
nhas 8000 e 9000, com os códigos nu- 



, das parles dos gráficos e os co- 
loca na memória através do POKE. As 
linhas 300 e 340 usam a técnica descrita 
anteriormente para retirar uma imagem 
e substituí-la por outra. 

Existe, entretanto, uma diferença 
muito importante. Os UDG que criam 
a explosão são baseados nos caracteres 
gráficos B e D — respectivamente, 
CHRS 145 e 147. À medida que eles fo- 
rem desaparecendo da tela, você não vai 
querer que eles sejam substituídos por 
outras letras do alfabeto. Assim, os pri- 
meiros oitos elementos de cada declara- 
ção DATA, representando os caracteres 
A e C — CHRS 144 e 146, respectiva- 
mente — são todos zeros. 

Deste modo, ao invés de obter A e C 
substituindo B e D na tela, você obtém 
espaços em branco. Se você quiser ver 
como isto funciona em "câmara lenta", 
inclua a linha abaixo (não esqueça de 
retirá-ta, depois): 
335 PAUSE 100 

A linha 400 é necessária, evidente- 
mente, para restaurar o valor original 
da memória 23675, que era 88, antes 
que o programa se repita de novo. 
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iputadores compatíveis com 
essa linha têm excelentes recursos para 
a obtenção de efeitos visuais dramáticos, 
usando programas bastante curtos. Ten- 
te digitar e executar o programa abai- 
xo: 

7960 PMODE 3,1 
7990 PCLS 

8000 FOR F-l TO 1000 
8010 SCREEN 1,0 
8020 SCREEN 1,1 
B030 NEXT F 
6040 CLS 

Observe que o programa coloca fai- 
xas coloridas que migram através da te- 
la; esse efeito é causado peta alternân- 
cia super-rápida dos diferentes conjun- 
tos de cores no computador. Ele pode 
ser usado, entre outras coisas, para as- 
similar o fim de uma fase do jogo. co- 
mo uma blindagem que foi penetrada. 

O modo gráfico é definido pela linha 
7980, e a seguir a tela gráfica é limpa pe- 
la linha 7990. A linha 8010 liga um con- 
junto de cores, enquanto a linha 8020 
religa o conjunto anterior. O laço 
FOR... NEXT nas linhas 8000 e 8030 al- 
terna os conjuntos de cores em 1000 

A alternância liga e religa os conjun- 
tos de cores muito rapidamente — tão 
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rapidamente, na verdade, que o apare- 
lho de TV nunca tem tempo de mudar 
as cores na tela completamente antes de 
entrar em ação o outro conjunto. Co- 
mo consequência, apenas uma faixa es- 
treita da tela é mudada para cada cor. 

Se você pretende utilizar esse progra- 
ma na forma de uma sub-rotina dentro 
de outro jogo (no qual funcionará ape- 
nas com um dos comandos PMODE 
descritos na página 144) ou com o pro- 
grama de batalha espacial apresentado 
a seguir, terá que fazer algumas altera- 
ções. Primeiro, apague as linhas 7980 e 
7990; em seguida, adicione a linha: 
8500 RETURN 

Veja agora o programa a seguir: 

10 PMODE 1,1 

20 DIM A{3) ,BÍ3) ,M{3) 

200 FOR K-1536 TO 2016 STEP 32 

210 READ A . 8 : POKE K . A : POKE K+l 

, B 

220 NEXT 

230 GET(0,0)-(15,15) ,A,G 
240 GET{0.16)-(15,31) ,M,G 
250 PCLS 

260 MX-120:MY-191:PX-120:PY-20 
270 PUT (PX.PY) -(PX+15.PY+15) ,A 
.PSET 

280 SCREEN 1,0 

290 PUT (MX,MY)-(MX+15.MY+15) ,B 
. PSET 

300 MY-MY-4 

310 IF MY<36 THEN GOSUB 8000 :GO 
TO 260 

320 PUT (MX.MY)-(MX+15,MY+15) ,M 
. PSET 

330 GOTO 290 

9000 DATA 252,63,3,192,15,240.6 
1,124.58,172,245,95,213,87,213, 
87 



O programa mostra uma nave extra- 
terrestre na iminência de ser atingida por 
um míssil. No momento que este alcan- 
ça o alvo, entra em ação a sub-rotina de- 
finida anteriormente, que move faixas 
coloridas pela tela. 

Quando usado com a sub-rotina, 
ele faz faixas com qualquer PMODE 
que se queira, de modo que pode ser adi- 
cionado ao final de um programa, sem 
que seja necessário alterar as linhas 8000 
a 8040. 

Eis aqui uma adaptação do progra- 
ma para fazer faixas que resulta em um 
efeito visual mais elaborado, embora os 
gráficos na tela não permaneçam into- 
cados como anteriormente. Você pode 
digitá-lo e executá-lo do jeito que está, 
ou incorporá-lo a um outro programa 
— como o da animação da nave espa- 
cial — na forma de sub-rotina. Neste ca- 
■ so, você precisará alterar o programa, 
I apagando a linha 7990 e adicionando ao 



final uma linha com comando RE- 
TURN como foi feito anteriormente. 
7990 PMODE 3,1 
8000 FOR F-l TO 3 
8010 FOR K-0 TO 1 
B020 SCREEN l.K 
8030 FOR J-l TO 4 
8040 PCLS J 
8050 NEXT J 
B060 NEXT K 
8070 NEXT F 
8080 CLS 

Sob a forma de sub-rotina, ele funcio- 
nará em qualquer um dos modos gráfi- 
cos com conjuntos de duas cores (PMODE 
0, 2 e 4) e de quatro cores (PMODE 1 e 3). 
Além de mudar os conjuntos de cores, a ro- 
tina também limpa a tela 

As linhas 80.10 a 8050 são um laço FOR . . . 
NEXT que colore a tela com as cores dis- 
poníveis no conjunto ativo. 

Uma última variação do programa: 
7990 PMODE 3,1 
8000 FOR F-l TO 5 
B010 SCREEN 1.0 
8020 FOR K-l TO 200: NEXT K 
8030 SCREEN 1,1 
8040 FOR K-l TO 200: NEXT K 
8050 NEXT F 
8060 CLS 

Você pode escolher entre digitá-lo as- 
sim como está (como um programa au- 
tónomo) ou na forma de sub-rotina (di- 
gitando a linha 7990 e adicionando um 
comando RETURN ao seu final). 

A tela piscará rapidamente, pois as 
linhas 8020 e 8040 inserem pequenos re- 
tardos de tempo, dando oportunidade 
suficiente para a mudança de cor entre 
um conjunto e outro. 



Podemos obter efeitos visuais ainda 
melhores através da programação de 
gráficos animados. Eis aqui uma idéia 
para fazer a animação gráfica das cha- 
mas de um incêndio, que você poderia, 
por exemplo, superpor a um alvo atin- 
gido por uma bomba. O programa foi 
escrito para o PMODE 1, e não pode ser 
usado, do jeito que está, com jogos em 
outros PMODE. Digite-o e execute-o: 
10 PMODE 1,1 
20 DIM B(3) ,E1 (3) . E2(3) 
30 FOR K-1536 TO 2016 STEP 32 
40 READ A, B : POKE K , A : POKE K+l.B 
50 NEXT 

60 GET(0,0) -(15,15) ,E1,0 

70 GET(0,16)-(15,31) ,E2,G 

80 SCREEN 1,0 

250 PCLS.HX-124:HY-146 

8000 FOR N-0 TO 15 

8010 PUT <HX,HY+N)-(HX+1S,HY+15 

) , El. PSET 

8020 FOR K-l TO 100:NEXT 



8030 PUT (HX,BY+N)-(HX+15,BY+15 
) , E2 , PSET 

8040 FOR K-l TO 100:N£XT 

8050 PUT (HX,HY+N)-(HX+15,HY+15 

) , B , PSET 

6060 NEXT 

9000 DATA 0,12,192,0,3,195,63,2 
52,63.252,255,255,255,255,255,2 
55 



Dois conjunios de chamas são colo- 
cados na tela pelo comando PUT. 

Os dados para os conjuntos de cha- 
mas estão nas declarações DATA das li- 
nhas 9000 e 9010. Eles são colocados 
com comandos POKE na tela, com as 
linhas 30 e 50. O programa está escrito 
em uma modalidade gráfica de quatro 
cores. As linhas 60 e 70 capturam, atra- 
vés do comando GET, as formas gráfi- 
cas na tela e as armazenam nos conjun- 
tos El e E2, dimensionados na linha 20. 

As linhas 8000 e 8060 animam as cha- 
mas. Quando o programa passa pelo la- 
ço FOR. ..NEXT, os conjuntos El e E2 
surgem na tela, e apagam quando se 
coloca sobre eles o conjunto de espaços 
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em branca B, com PUT. O topo das cha- 
mas é abaixado um pouco de cada vez, 
pelo+ N nas linhas com comando PUT. 

Você pode usar esse programacomo sub- 
rotina do programa abaixo, que simula um 
bombardeio, mas não se esqueça dc alte- 
rar a linha 20 para como ela aparece no pro- 
grama: edite-a com o comando EDIT ou 
digite-a novamente. Apague a linha 80, di- 
gitando o número 80, seguido de 
<ENTER> . 

20 DIM A I 3 ) ,B(3) . H ( 3) ,E1(3) , E2 ( 
3) 



220 NEXT 

230 GETÍ0.0)- (15.15) ,A,G 

240 GET (0 . 16) - (15,31) , H , G 

250 PCLS:LINE (0..163)- (255, 191) , 

PSET, BF 

260 HX-124:HY-146:PX-0:PY-40:B- 





270 PUT (HX,HY)-(HX+15,HY+15) ,H 
, PSET 

280 SCREEN 1,0 

290 PUT (PX.PY) -(PX+15.PY+15) ,B 
,PSET 

300 PX-PX+4 

310 PUT(PX,PY)-(PX+15,PY+15) ,A, 
PSET 

320 IF PX-20 THEN B-l : BX-PX+8 :B 
Y-PY+8 

330 IF B-l THEN PRESET (BX , 8Y) : P 
RESET (BX+2 . BY) : BX-BX+2 : BY-BY + 2 : 
PSET(BX.BY,4) : PSET (BX+2 , BY , 4) 
340 IF BY-148 THEN GOSUB B000:B 
Y-0:GOTO 250 
350 GOTO 290 
8070 BETUBN 

9020 DATA 0,0,2,0,130,128,162,1 
60,170,170.162,160,130,128,2,0 
9030 DATA 0.3,12,51,60,243,255, 
255,255,255,85,85,86,149,86.149 

Eis aqui duas versões que permitirão 
usar a sub-rotina em jogos programa- 
dos em outras modalidades gráficas 
(PMODE). A primeira é um programa 
que deve ser usado com as PMODE 3 
e 4; mude apenas o número apropriado. 
10 PMODE 3,1 
20 DIM B(6) .El (6) ,E2(6) 
30 FOR K-1536 TO 2496 STEP 64 
40 READ A,B:POKE K,A:POKE K+l , B 
45 POKE K+32,A:POKE K+33.B 
50 NEXT 

60 GET (0,0)-U5,15) ,E1,G 

70 GET (0,16)-(15,31) ,E2,G 

80 SCREEN 1,0 

250 PCLS:HX-124:HY-146 

8000 FOR N-0 TO 15 

8010 PUT(HX,HY+N)-(HX+15,HY+15) 

, El , PSET 

8020 FOR K-l TO 100: NEXT 

8030 PUT (HX,HY+N)-(HX+15,HY+15 

) . E2, PSET 

8040 FOR K-l TO 100: NEXT 

8050 PUT(HX.HY+N)-(HX+15,HY+15) 

-B.PSET 

8060 NEXT 

9000 DATA 0,12,192,0.3,195.63.2 
52,63.252,255,255,255,255,255,2 
55 



Em segundo lugar, temos um progra- 
ma adequado para uso com PMODE 2: 
10 PMODE 2.1 
20 DIM B(6) .El (6) ,E2(6) 
30 FOR K-1536 TO 2496 STEP 32 
40 READ A: POKE K.A: POKE K+16. 
A 

50 NEXT 

60 GET(0,0)-(15,15) ,E1,G 

70 GET(0,16)-(15.31) ,E2.G 

80 SCREEN 1,0 

250 PCLS:KX-124:HY-146 

8000 FOR N-0 TO 15 

8010 PUT(HX,HY+N)-(HX+15,HY+15) 

El PSET 
8020 FOR K-l TO 100:NEXT 
8030 PUT <HX.HY+N)-(HX+15,HY+15 



) .E2.PSET 

8040 FOR K-l TO 100: NEXT 

8050 PUT<HX,HY+N)-(HX+15,HY+15) 

.B.PSET 

8060 NEXT 

9000 DATA 2.128.25.126.126,255, 
255,255 

9010 DATA 4.33,144.66.231.255,2 
55,255 

9020 DATA 0,12,192.0,3,195,63,2 
52.63,252,255.255,255,255,255,2 
55 



Os computadores compatíveis com a 
linha MSX têm excelentes recursos (tais 
como os spriles), para se conseguir elei- 
tos visuais dramáticos, usando-se pro- 
gramas bastante curtos. Tente digitar e 
executar o programa abaixo: 

7990 SCREEN 0 : KEY OFF 
8000 FOR F-l TO 300 
8010 COLOR 10,10,10 
8020 COLOR 4,4,4 
8030 NEXT F 
8040 COLOR 15.4.4 

O modo de texto da tela é definido 
pela linha 7990 (SCREEN 0). A linha 
8010 estabelece uma cor de fundo (10) 
para a tela, com a mesma cor de mol- 
dura e de frente (por isso todos os nú- 
meros são iguais); a linha 8020 especifi- 
ca um segundo conjunto de cores para 
a tela. O laço FOR. ..NEXT nas linhas 
8000 e 8030 alterna os conjuntos de co- 
res trezentas vezes. A linha 8040 volta 
tudo ã situação original de cor da tela, 
antes de interromper o programa (se vo- 
cê interrompê-lo usando as teclas 
<CTRL> <STOP>. antes de termi- 
nar o laço de repetição, terá que digitar 
pelo teclado, ou com a tecla Fl, o co- 
mando existente na linha 8040). 

Como a alternância das cores é mui- 
to rápida, apenas uma faixa estreita da 
tela é mudada para cada cor. Esse efei- 
to só pode ser conseguido, no MSX, 
com a tela de texto. Podemos introduzi- 
lo como fase final de um programa de 
animação gráfica. Acrescente as seguin- 
tes linhas ao programa: 
10 SCREEN 2,2 
200 FOR K-l TO 24 
210 READ A: READ B 
220 AS-AS+CHRS (A) : BS-BS+CHRS (B) 
230 NEXT 

240 SPRITES(2)-A$:SPRITES(1)-BS 

250 MX-120:MY-191 

260 PX-120:PY-20 

270 PUT SPRITE 2, (PX.PY) 

280 PUT SPRITE l.(MX.MY) 

290 PUT SPRITE 1, (MX.MY) 

300 MY-MY-4 

310 IF MY<36 THEN GOTO 7990 
320 PUT SPRITE 1. (MX.MY) 
330 GOTO 290 
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8050 RUN 

9000 DATA 252,0,3.0,15,0,61,2,5 

8,10,24,5,0,213,3,213,15 

9010 DATA 0,0.0.0,0,0,0,0.0.0,0 

,0,0.0,0,0 

9020 DATA 63,128,192,128,240,12 
8.124.160.172,168.95.192,87,240 
,87,60 

Os dois objetos a serem movimenta- 
dos na leia (um míssil e uma nave) são 
definidos pelos códigos gráficos das li- 
nhas 9000 a 9020, montados nos sprites 
1 e 2. As linhas 270 e 290 colocam esses 
sprites na tela, animando o sprite 1 (o 
míssil) através do ciclo repetido entre 
290 e 330. 

Quando o míssil atinge a nave (linha 
310). o programa de eleito visual de fai- 
xas começando em 7990 é acionado. A 
linha 8050 manda executar o programa 
principal desde o começo, em virtude da 
necessidade de redefinição da tela grá- 
fica na linha 10. 

Em seguida, temos uma adaptação 
do programa para fazer faixas. Você po- 
de digitá-lo e executá-lo como está, ou 
adicioná-lo a outro programa, como o 
da animação da nave espacial. 

7990 SCREEN 0 : KEY OFF 
8000 FOR F-l TO 15 
8005 FOR K-l TO 15 
8010 COLOR F.K.K 
8020 COLOR K,F,F 
8025 NEXT K 
8030 NEXT F 
8040 COLOR 15.4,4 
8050 RUN 

As linhas 8000 a 8030 formam dois 
laços FOR.. .NEXT que colorem a tela 
com cores disponíveis na tela do texto 
MSX. A última variação do programa é: 

7990 SCREEN 0 : KEY OFF 

8000 FOR F-l TO 5 

6010 COLOR 4,10.10 

8015 FOR K-l TO 150:NEXT K 

8020 COLOR 10,4,4 

8025 FOR K-l' TO 150:NEXT K 

8030 NEXT F 

8040 COLOR 15,4,4 

8050 RUN 

A tela pisca rapidamente, em cores 
porque as linhas 8015 e 8025 inserem pe- 



quenos retardes de tempo, dando opor- 
tunidade para o vídeo mudar de cor en- 
tre um conjunto e outro. 




Efeitos visuais ainda melhores podem 
ser obtidos através da programação de 
sprites nos gráficos animados. Eis aqui 
uma idéia para fazer a animação gráfi- 
ca de um incêndio. 

O programa foi escrito para a tela 
gráfica SCREEN 2. Esse comando tam- 
bém é usado para definir o tamanho do 
sprite. Digite o comando NEW e entre 
as seguintes linhas: 

10 SCREEN 2,2 
a 30 FOR K-l TO 32 
40 READ A: READ B 
45 AS-AS+CHRSÍA) :BS-BS+CHR3(B) 
50 NEXT 

60 SPRITES (2) -AS 

70 SPRITES(1)-B$ 

75 SPRITES(0)-STRINGS(32.255) 

250 HX-124:HY-146 

8000 PUT SPRITE 0 , (HX , HY+16) , 12 

8005 FOR N-0 TO 15 

8010 PUT SPRITE 2, (HX.HY+N) ,6 

8020 FOR K-l TO 100:NEXT 

8025 PUT SPRITE 2, {HX, HY+16) 

8030 PUT SPRITE 1 , (HX , HY+N) , 6 

8040 FOR K-l TO 100:NEXT 

8060 NEXT 

9000 DATA 0,0,192,12,3.195,63,4 
8,63,252,255,255.255,255,255,25 
5 

9010 DATA 255,255,255.255.255.2 
55,255,255.255,255,255,255,255, 
255.2S5, 255 

9020 DATA 12,48,0,3,195.0.252,1 
2,252,63,255,255,255.255.255,25 
5 

9030 DATA 255,255.255,255,255,2 
55.255,255,255.255,255,255,255, 
255,255,255 

Dois conjuntos de chamas, armaze- 
nados em sprites de tamanho 2 (ou se- 
ja, 16 por 16 pixels), são colocados na 
tela pelo comando PUT. Os dados pa- 
ra os conjuntos de chamas estão nas de- 
clarações DATA das linhas 9000 a 9030. 
Eles são lidos pelas declarações DATA 



na linha 40 e colocados nas variáveis AS 
c BS, na linha 45. Após isso, os sprites 
números I e 2 recebem o conteúdo des- 
ses cordões. Um terceiro sprite (um blo- 
co gráfico uniformemente cheio) tam- 
bém é definido na linha 75. A cor que 
esse bloco de sprite vai assumir ao ser 
colocado na tela é determinada pelo co- 
mando PUT na linha 8000 (no caso, 
azul, que é o código 4). 

As linhas 8000 a 8060 animam as chamas. 
Cada vez que o programa passa pelo laço 
FOR...NEXT, os dois sprites 1 e2são colo- 
cados na tela. O topo das chamas é abaixa- 
do um pouco de cada vez, pelo + .N nas li- 
nhas com o comando PUT, de modo que 
dá a impressão de diminuição do fogo. 

Esse programa pode ser usado como uma* 
sub-roiina do programa a seguir, que simu- 
la um bombardeio: um prédio é alvejado. 
Adicione as linhas: 

200 FOR K-l TO 32 

210 READ A : READ B 

215 DS-DS+CHRSÍA) : ES-ES+CHRS (B) 

220 NEXT 

230 SPRITES (3) -DS 

240 SPRITE${4)-ES 

250 LINE(0.163)-{255.191) ,12.BF 

260 HX-124:HY = 146:PX = 0:PY'-40:B- 

0 

270 PUT SPRITE 4,(HX,HY),9 
300 PX-PX+4 

310 PUT SPRITE 3.{PX.PY).14 
320 IF PX-20 THEN B-l : BX-PX+8 : B 
Y-PY+8 

330 IF B-l THEN PRESET (BX.BY): 
PRESET (BX+2 ,BY) : BX-BX+2 : BY-BY+2 
: PSET (BX ,BY) , 1 : PSET (BX + 2 . BY) , 1 
340 IF BY-148 THEN PUT SPRITE 4 
, {HX , HY+16) : PRESET (BX.BY) : PRES 
ET (BX+2.BY) : GOSUB 8000:BY-0:GO 
TO 250 
350 GOTO 300 
8070 RETURN 

9040 DATA 0,0,0,0,2,12,2,12.130 
,60.130,60,162,255.162,255 
9050 DATA 170,255,170.255.162.8 
5,162.85,130.86,130.86,2.86,2.8 
6 

9060 DATA 0,3.0.3,0,51,0,51,128 
,243,128.243,160,255,160,255 
9070 DATA 170,255,170,255.160,8 
5,160,85,128,149,128.149,0,149. 
0, 149 
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Nesse trecho suplementar, mais dois 
sprites, 3 e 4, são definidos peias linhas 
200 a 240, a partir dos códigos gráficos 
armazenados nas declarações DATA 
nas linhas 9040 a 9070. 

A linha 250 traça um retângulo de cor 
verde (o chão gramado); a linha 270 co- 
loca dentro dele o desenho da casa. A 
animação gráfica do avião e da bomba 
caindo é realizada pelas linhas 310 e 350. 
Na linha 340 é chamada a sub-rotina de- 
finida a partir de 8000, que recebe um 
RETURN na linha 8070. 



m et 




Não é Ião fácil criar efeitos visuais no 
Apple se o compararmos com outros 
micros. Ao invés de representar os de- 
senhos através de números binários con- 
vertidos para decimais e colocados na 
memória de vídeo ("1" representaria 
ponto aceso, e "O", ponto apagado), 
temos que criar uma tabela que pode ter 
até 256 figuras, e uma vez que esteja 
num lugar apropriado da memória po- 
de-se desenhar e mover as figuras com 
o comando DRAW, sendo a cor defini- 
da por HCOLOR. O programa a seguir 
move uma chama na base da tela, 
10 HOME : HGR : SCALE- 1: ROT" 
64 

20 POKE 232.0: POKE 233,3 
30 FOR K - 768 TO 866 
40 READ A: POKE K , A 
50 NEXT 

250 HX - 124:HY - 146 

8000 FOR N - 1 TO 15 

8010 HCOLOR- 5 

8020 FOR K - 1 TO 3 

8030 DRAW 1 AT HX , HY + N: HCOL 

OR- 0 

8040 DRAW 1 AT HX.HY + N: HCOL 
OR- 5 

8050 DRAW 1 AT HX + 3,HY + N + 

2: HCOLOR- 0 
8060 DRAW 1 AT HX + 3.HY + N + 

2: HCOLOR- 5 
8070 NEXT K 
8080 NEXT N 



8090 TEXT 

9000 DATA 3,0,8,0.64,0,0,1,15 
0.18,54,37,36,36,4,11,54,54.54, 
46,36 

9010 DATA 36,11,54,54,46.36,4 
,100,100.11,54,54,54,37,36,4.10 
0,100.11,54 

9020 DATA 54,54,46,36.100,100 
,100.11,22.54,54,37,36,100,100, 
11,54,54.54,37 

9030 DATA 36,4,0,45.56.255.21 
9,35,109.73,45,37,63,63.63.63,3 
9.45.45,45 

9040 DATA 45,45,46,44.46,45,3 
7.63,231,219,63.255.219,39,64,7 
3,44,46.5,0 

O mesmo incêndio é desenhado e 
apagado rapidamente em duas posições 
diferentes, dando a impressão de fogo. 
As chamas desaparecem lentamente na 
parte inferior do vídeo. O programa 
funciona da seguinte maneira: 

A tabela de figuras está nas linhas 
DATA (9000 a 9040). Ela é colocada na 
memória pela repetição do comando 
POKE da linha 40, devida ao laço 
FOR.. .NEXT das linhas 30 e 50. A li- 
nha 20 informa onde está a tabela de fi- 
guras na memória. A linha 10 limpa a 
tela, estabelece o modo gráfico de alta 
resolução, fixa o tamanho (SCALE) e 
a orientação (ROT) da figura. 

As linhas 8000 a 8060 animam as cha- 
mas e as fazem desaparecer. Cada vez 
que o programa repeli.' as linhas que fi- 
cam entre FOR e NEXT, as chamas são 
desenhadas e apagadas em duas posições 
diferentes da tela. Elas vão baixando 
lentamente devido ao +N nas linhas 
HPLOT, de forma que o fogo parece 
acabar. Isso acontece porque o desenho 
invade o espaço reservado para texto na 
parte inferior da tela, onde podemos co- 
locar dados gráficos sem que eles apa- 
reçam. Para entender melhor, experi- 
mente introduzir a linha: 

15 POKE -16302,0 



Essa linha elimina o espaço reserva- 
do para textos da parte inferior da tela, 
tornando visíveis quaisquer gráficos ali 
colocados.. Rodando o programa com 
essa modificação, você verá as chamas 
ocuparem posições cada vez mais bai- 
xas sem desaparecer. Não se esqueça de 
apagar essa linha digitando 15 e < RE- 
TURN >. Nosso incêndio ficará mais 
interessante se for produzido por uma 
sub-rotina dentro de um jogo, como no 
exemplo a seguir. Após acrescentar es- 
sas linhas, você verá uma pequena casa 
ser bombardeada e pegar fogo. Não se 
esqueça de apagar a linha 15. 

55 I - 0 

60 FOR J - 8674 TO 15810 

STEP 10 24 
70 READ A(I) ,B (I) 
80 I - I + 1 
100 NEXT 
190 I - 0 

200 FOR J - 8674 TO 15810 

STEP 1 024 
210 POKE J,B(I) : POKE J + 

1. AU) 
215 I - I + 1 
220 NEXT 

235 FOR K - 1 TO 1000: NEXT 
250 HX - 139:HY - 153 : PX - 259: 

PY - 40 :B - 0 
290 PX - PX - 4 

300 HCOLOR- 6: DRAW 2 AT PX.PY 
310 HCOLOR- 0: DRAW 2 AT PX.PY 
320 1F PX - 239 THEN B - 

1:BX - PX:BY - PY + 8 
330 IF B - 1 THEN HCOLOR- 0: 

HPLOT BX.BY: HPLOT BX - 

2, BY:BX - BX - 2:BY - 
BY + 2: HCOLOR- 3: HPLOT 
BX.BY: HPLOT BX - 2 . BY 

340 IF BY - 152 THEN GOSUB 

8000 : BY - 0: COTO 190 
350 GOTO 290 
8090 RETURN 

9050 DATA 0,3.12,51,60.243, 
255.255.255,255.85.85,86. 
149,86,149 

A casa é desenhada pelos comandos 
POKE da linha 210. O padrão do dese- 
nho é obtido da linha 9050 e guardado 
nas variáveis indexadas A e B. Progra- 
mar desenhos dessa maneira é mais fá- 
cil que definir tabelas, mas quando se 
deseja movimento e velocidade (como 
nas chamas e no avião) é preciso usar 
as tabelas e o comando DRAW. 

O formato do avião já estava na ta- 
bela do programa anterior. As chamas 
são a figura 1 da tabela, e o avião é a 
figura 2. Essas figuras são desenhadas 
respectivamente pelos comandos 
DRAW í e DRAW 2. 

Para parar o programa aperte simul- 
taneamente < CTPL > e C. Mesmo que 
não apareça nada na tela, digite TEXT 
e aperte < RETURN > e tudo voltará 
ao normal. 
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©S COMAN 
EDATA 



REÂD 



Se você pretende evitar a digitação 
de programas longos e cansativos, 
convém preparar seu computador para 
a leitura de dados armazenadas 
internamente em declarações DATA. 



As variáveis são o grande responsá- 
vel pela versatilidade do computador. 
Atribuir valores a elas é, a maior parle 
das vezes, simples e direto: basta, por 
exemplo, dizer LET X = 5. Mas há oca- 
siões em que a quaniidade de informa- 
ções que se deseja utilizar em um pro- 
grama é muito grande. Nesses momen- 
tos, é preciso recorrer às declarações 
DATA, e aos comandos READ e RES- 
TORE (esses comandos não estão dis- 
poníveis no BASIC de alguns micros). 

A palavra DATA (dados, em inglês) 
é utilizada para muitas coisas. Assim, 
tudo o que é fornecido ("dado" pelo 
programador ou pelo usuário) ao com- 
putador é incluído nessa categoria. Nes- 
se artigo, porém, vamos usar a expres- 
são dados apenas em seu sentido mais 
restrito, ou seja, informações incluídas 
em um programa por meio da declara- 
ção DATA. 

A declaração INPUT serve para atri- 
buir valores a uma variável. Mas ela é 
útil somente enquanto a informação es- 
tiver sendo fornecida ao computador ca- 
da vez que o programa for rodado. 

Existem valores fixos, porém, que 
não precisam ser entrados ou alterados 
pelo operador, e podem, assim, ser in- 
corporados permanentemente ao pro- 
grama. Neste caso, entra em cena o se- 
gundo método de atribuição: a declara- 
ção LET. Mas, quando as informações 
são em grande quantidade, o emprego 
de comandos LET torna-se cansativo. 

Veja a seguir um exemplo onde uma 
lista fixa de cabeçalhos é utilizada para 
imprimir um documento: 

10 LET AS-"DIA" 

20 LET B3" "SEMANA" 

30 LET CS-"MES" 

40 LET C$-"AN0" 

50 PRINT AS.BS.CS.DS 

Veja como DATA pode ser utilizada 
com o mesmo objetivo e com uma re- 
dução no número de linhas necessárias: 

10 READ AS.BS.CS.DS 
Z0 PRINT AS.BS.CS.DS 
100 DATA DIA. SEMANA. MES, ANO 

Em programas curtos não há quase 
diferença entre usar LET ou DATA. 
■ Agora, se você quiser trabalhar com cin- 
Iqúenia cabeçalhos, em vez de qualro, o 



primeiro programa precisará de 46 de- 
clarações LET a mais, enquanto o se- 
gundo exigirá apenas uma ou duas li- 
nhas a mais. 

Nos compatíveis com o Spectrum 
(como o TK-90X), as palavras D AT A 
devem estar sempre entre aspas. Nos ou- 
tros modelos as aspas são dispensáveis. 
A linha 100 passaria a ser escrita assim: 
"MES" , 



COMO FUNCIONAM READ E DATA 



Quando o computador se depara com 
uma instrução READ, ele passa a procu- 
rar em todo o programa onde se encontra 
a primeira declaração DATA. Então ele a- 
tribui o primeiro item de DATA à varíávei 
correspondente no comando READ. No 
programa acima, o cordão "DIA", na de- 
claração DATA, é atribuído à variável AS, 



"SEMANA" é atribuído a B$, etc O com- 
putador ignora qualquei declaração DA- 
TA a menos que uma declaração READ fa- 
ça com que ele a leia. 

10 DATA ALEMANHA 
30 READ AS.BS 

30 DATA BRASIL. ITÁLIA. ESPANHA 
40 READ CS.DS 

É mais fácil ler o programa quando 
lodos os DATA estào reunidos em um 
mesmo lugar. E existe uma regra inaba- 
lável: os comandos DATA devem apa- 
recer na ordem em que o computador 
vai lê-los, por meio da instrução READ. 



DIFERENTES TIPOS DE DATA 



Além de cordões alfanuméricos,- as 
declarações DATA podem conter núme- 
ros, A linha Sinclair Spectrum também 
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DE DATA 
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UTILIZE DATA PARA FAZER 
UMA LISTA TELEFÓNICA 
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COMO DESENHAR GRÁFICOS 
SIMPLES A PARTIR DE DATA 




e que você utilize variáveis e fun- 
ções dentro de declarações DATA. 



RECIFE, a #5, então AS receberia o va- 
lor 256! Embora errada, ela não seria re- 
jeitada {a não ser no Spectrum) pois o 
computador interpreta o valor numéri- 
co 256, neste caso, como o cordão alfa- 
numérico "256". 

Em contrapartida, se o computador 
tentasse Jer o cordão "RECIFE" e o 
atribuísse à variável numérica N, pode- 
ria perceber o erro e responder com uma 
mensagem tal como: "tipo inadequado" 
(erro TM, ou TYPE M1SMATCH), ou 
"dado incorreio" (erro BAD DATA, ou 
INVAL1D DATA, dependendo do com- 
putador); ou poderia supor que "RECI- 
FE" é um nome de variável não defini- 
do anteriormente; sua resposta, neste 
caso, seria uma mensagem de erro co- 
mo: "variável não encpnrrada". 

Outro erro comum é colocar itens a 
menos em DATA. 



UMA LISTA TELEFÓNICA 



Eis aqui um programa que utiliza um 
lavo para a leitura interna de dados, 
através das declarações READ e DATA. 
É um programa muito simples para ela- 
borar uma lista telefónica particular. 



■ ■■■ 



DATA "RECIFE" , 256,3*5, SQH (n 



No comando READ BS variáveis devem 
ser colocadas na mesma ordem que os itens 
relativos a DATA. A linha DATA acima 
pode ser lida com o comando: 

READ AS.N.X.Y 

A primeira variável é uma variável al- 
fanumérica, para coincidir com o pri- 
meiro item de DATA. Mas os três itens 
seguintes são variáveis numéricas. 

É fácil cometer erros quando se usa 
DATA em um programa. Os principais 
problemas ocorrem quando não se pos- 
sui um número suficiente de itens ou 
quando se tenta ler com READ uma va- 
riável de outro tipo, em DATA. Se a li- 
nha DATA acima tivesse sido digitada 
incorretamente, tal como DATA 256, 



ICO" 

15 RESTORE 

20 INPUT "Digite o nome" , RS 
30 FOR J-l TO 5 
40 READ NS.TS 

50 IF NS-RS THEN PRINT AT 10 
,1;"0 numero de ";NS;" e ":TS 
: GOTO 80 

60 IF NS-"FIM" THEN PRINT AT 
10,3;RS;" NAO ESTA NA LISTA" 
70 NEXT J 

60 PRINT AT 12,0;"Quer outro 

numero {S/N)7" 

90 PAUSE 0 
100 IF INKEYS-"S" THEN GOTO 5 
110 IF INKEYS-"N" THEN GOTO 
2000 

500 DATA "ZULEICA" , "22-6400" , " 
MARIA" , "33-7237". "MARCELO" ,"3 
4-4009" , "RICARDO" ,"13-71824" , " 
FIM". "FIM" 



O programa abaixo roda apenas no 
TRS-Color. Para utilizá-lo nos micros 
TRS-80, modifique os números do 
PRINT nas linhas 50 e 60, para 640. 

5 CLS 

10 PRINT è"70,"DIRETORIO TELEFON 
ICO" 

12 PRINT 

20 INPUT "DIGITE O NOME";RS 
30 FOR J-l TO 5 
40 READ NS.TS 

50 IF NS-RS THEN PRINT §320. "0 
NUMERO DE ";RS;" E: ";T$:END 
60 IF NS-"FIM" THEN PRINT «320, 
RS;" NAO ESTA NA LISTA" 
70 NEXT J 

500 DATA ALCINO. 384-4276. JÚNIOR 
,997-4036, RODRIGO, 52-5114, GERTR 
UDES . 5666-99994 , FIM , FIM 



10 LOCATE 12 . 3 : PRINT"Li3ta tele 
fOnica" 

12 PRINT : PHINT 
15 RESTORE 

20 INPUT"Digite O nome";R$ 
30 F0RJ-1TO5 
40 READ NS.TS 

50 IFNS-8S THEN LOCATE 5,15:PRI 
NT"0 número de ";NS;" é ";TS:GO 
TO 80 

60 IFN$-"END" THEN LOCATE 5.15: 
PRINTRS;" n&o está na listai" 
70 NEXT J 

500 DATA ESTELA, 321054, JOSÉ .529 
884, CELI. 326747. FERNANDO. 511934 
.END.END 



5 HOME 

10 VTAB 3: HTAB 12: PRINT "Lis 

ta telefónica" 

12 PRINT : PRINT 

20 INPUT "Digite o nome: ";RS 

30 ' FOR J - 1 TO 5 

40 READ NS.TS 

50 IF NS - RS THEN VTAB 15: H 
TAB 5: PRINT "O numero de ";NS; 
" e ";TS: END 

60 IF NS - "END" THEN VTAB 15 
: htab 5: PRINT RS;" nao eata n 
a lista!" 
70 NEXT J 

500 DATA FERNANDO, 510536, MA 
RILIA, 543286 , JOAQUIM, 28999 . ROB I 
ERTA. 719852, END. END 




Você pode utilizar os nomes e os nú- 
meros dos telefones dos seus amigos na 
linha DATA e colocar íamos itens DA- 
TA quanto desejar; mas não se esqueça 
de ajustar o contador de laços na linha 
30. 

A lista de itens em DATA é finaliza- 
da com as palavras FIM, FIM, para a 
linha 60 checar se já foi alcançado o fim 
da lista. Se o programa tiver lido a lista 
em DATA até o fim, isso significa que 
o nome não foi encontrado, e o progra- 
ma imprimirá uma mensagem para di 
zer isto a você. FIM (ou "FIM" no 
Spectrum) deve ser entrado duas vezes 
porque a linha 40 lê dois itens DATA 
de cada vez. 

Os cordões em DATA podem conter 
espaços, mas não vírgulas Se você pre- 
cisar entrar um cordão DATA com uma 
vírgula, coloque o cordão entre aspas: 

10 RE AD NS.ASlBS.CS 

20 DATA JOSE DOS CAMPOS 

"AU. BRASIL . 23" . 

CAMPINAS, 13100 

A primeira linha do endereço deve ser 
escrita entre aspas por causa da vírgula 
depois de AV. BRASIL. 



COMO USAR A DECLARAÇÃO REST0RE 



Com os métodos vistos alé agora, um 
programa poderá ler uma lista de DA- 
TA apenas uma vez. a menos que você 
o rode de novo. Para ler mais uma vez 
o conjunto de itens em DATA você de- 
ve incorporar ao seu programa a decla- 
ração RESTORE {restaurar, em inglês). 
Se você quiser consultar os números dos 
telefones dos amigos sem rodar o pro- 
grama, substitua END ou STOP na 
linha 50 por GOTO 80 e acrescente: 



DQ 



O programa listado abaixo roda ape- 
nas no TRS-Color. Para utilizá-lo em 
micros da linha TRS-80, modifique o 
número do PR1NT na linha 80 para 832. 

80 PRINT e416."U0CE QUER OUTRO 
NUMEROCS/N)?* 
90 KS-INKEYS:IF KS 1 




80 LOCATE 3,21:PRINT"Voce quer 

outro numero? (S/N) " 

90 KS-INKEYS:IF KS-"" THEN 90 

100 IF KS-"S" THEN 5 

110 END 



90 GET KS 

100 IF K$ - "S" THEN 5 
110 END 

Mas o que acontecerá quando você 
rodar o programa? Na primeira vez, ele 
funcionará bem. Mas, se você pressio- 
nar uma tecla para outra repetição da 
consulta, ele falhará devido à falta de 
mais itens em DATA. Mas existe uma 
solução para o problema. Acrescente: 



THEN GOTO 16 RESTORE 



THEN GOTO 5 



80 PRINT AT 12,0; 

numero (S/N)?" 

90 PAUSE 0 
100 IF INKEY$-"S" ' 
110 IF INKEY$-"N" ' 
2000 



Desta vez o programa continuará 
funcionando toda vez que se repetir, 
pois o comando RESTORE instrui o 
computador a voltar ao início da lista 
em DATA. E uma boa idéia colocar 
sempre uma declaração RESTORE no 
inicio de um programa que você estiver 
desenvolvendo. Isso faz com que você 
não fique sem nenhuma DATA, ao ten- 
tar testá-lo. Se, mais tarde, você quiser 
remover a linha RESTORE, bastará co- 



locar uma declaração REM após a linha 
em que ela está, para lembrá-lo. 

Com o comando RESTORE você po- 
de reutilizar uma lista DATA sempre 
que necessário. Ele é particularmente 
útil quando se quer ler várias vezes uma 
mesma lista de dados para pesquisar um 
determinado item, como no caso do 
programa para a lista telefónica. 



APLICAÇÕES PARA DATA 



As declarações DATA são úteis pa- 
ra todos os tipos de programa e você cer- 
tamente já as utilizou em desenhos de 
labirintos e outros efeitos. 

Frequentemente, um grande número 
de linhas DATA é utilizado para conter 
todo o texto necessário a um jogo de 
aventuras, ou em programas aplicativos 
simples. Pode-se também armazenar 
questionários com todas as perguntas e 
respostas em linhas DATA. E os jogos 
de fliperama em BASIC as utilizam pa- 
ra definir tanto os caracteres como os 
planos de fundo. 

Programadores experientes empre- 
gam DATA para linguagem Assembly 
ou em programas em código de máqui- 
na (veja a primeira lição de Código de 
Máquina). Tais programas consistem de 
um laço FOR...NEXT curto que lê os 
códigos de máquina em uma lista DA- 
TA e usa o comando POKE para inseri- 
los na memória. 




IHIIIIIIIIIII 



Qualquer programa que contenha 
textos padronizados, figuras ou funções 
pode fazer um largo uso das listas DA- 
TA. Empregadas de maneira cuidado- 
sa, essas listas constituem um poderoso 
instrumento de programação. 



UTILIZE DATA PARA GRÁFICOS 



As declarações DATA servem igual- 
mente para programas de gráficos, pa- 
ra definir coordenadas, desenhar ou 
evocar caracteres gráficos predefinidos 
na memória ROM. Sua utilidade, po- 
rém, diminui quando o que se quer é tra- 
çar formas regulares onde as coordena- 
das ou o formato dos gráficos podem ser 
calculados. Um exemplo disso pode ser 
encontrado no programa para o TRS- 
Color, onde os padrões repetitivos no 
topo das muralhas de um forte são cal- 
culados. 

As declarações DATA no programa 
abaixo foram deliberadamente divididas 
em várias linhas. Assim, se você quiser 
examinar ou modificar o programa fu- 
turamente e achar os itens em DATA 
que correspondem às variáveis do pro- 
grama, poderá seguir uma a uma as ins- 
truções READ; mas para um programa 
longo isto será muito cansativo. O me- 
lhor será dividir as declarações DATA 
em grupos, e — se você quiser evitar a 
memorização de tudo o que está lá den- 
tro — utilizar comandos REM para ex- 



plicar para que serve cada grupo de de- 
clarações DATA. 



O programa seguinte desenha uma casa: 

10 CLS:COLOR 4,5 
20 FOR A-0 TO 8 
30 FOR B-l TO 17 
40 READ C 

50 VPOKE (171+A*40)+B.C 
60 NEXT B 
70 NEXT A 

500 DATA 32,32,32,32,32,32,32,3 
2,32,32,32,32,219,219.219,32,32 
510 DATA 32,32,32,32,32,32,32,3 
2,32,32,32,219,219,219,219,219, 
32 

520 DATA 32,32,32,32,32,32,32,3 
2,32,32,219.219,219,219,219,219 
,219 

530 DATA 32.32,32,199,219,219,3 
2,32,32,32,32,222.219,219,219,2 
19,219 

540 DATA 32,32,199,219,219,219. 
219,32,221,32,32.219,219,219,21 
9, 219,32 

550 DATA 32,32,215,215,215,215. 
215,219,219,193,32,32,222,215,2 
19,32,32 

560 DATA 32,32,215,16,215,202,2 
15.215.21,215,32,32,32,215,32,3 
2,32 

570 DATA 32.32.215,215,215,202, 
215.215,215,215,32,32,32,215,32 
,32, 32 

580 DATA 195,195,195.195,195,19 
5.195,195,195,195,195.195,195,1 
95,195,195,195 

Os números em DATA fornecem as 
coordenadas das várias panes da casa (li- 
nhas 500 a 580). A parte principal do pro- 
grama estabelece os laços FOR...NEXT pa- 
ra a leitura (comando READ na linha 40) 
das partes pertinentes em DATA e as dese- 
nha, colocando os códigos de caracteres na 
página de memória da tela, por meio do co- 
mando VPOKE. 



Este programa utiliza READ. ..DA- 
TA para desenhar uma ponte. Se você 
entrar o programa e rodá-lo em estágios, 
será bem mais fácil ver o que está acon- 
tecendo, e assim verificar se o digitou 
corretamente: 

10 FOR t-74 TO 80 STEP 3 

20 PLOT 35, t 

30 DRAW 175,0,-2.5 

40 NEXT t 

Este segmento do programa utiliza 
um laço FOR.. .NEXT para ajudar a 
traçar três pontos próximos ao lado es- 
querdo da tela; em seguida, ele desenha 



uma linha em forma de arco a partir de 
cada ponto. A linha 30 significa: "de- 
senhe até um ponto localizado 175 pi- 
xels à direita do pixel inicial". O parâ- 
metro -2,5 dá à linha sua forma curva, 
evitando a linha reta. 

100 FOR n-lB TO 39 

110 READ a 

120 PLOT n,45 

130 DRAW 0,a 

132 PLOT n+188,45 

134 DRAW 0,a 

140 NEXT n 
1000 DATA 70,70,67,67.70.70.60. 
60,57,57,60,60,57,57,60,60,70,7 
0,67,67,70,70 

Esta é a seção que desenha as torres. 
O laço entre as linhas 100 e 140, mais 
o número 45 (pixels da parte inferior da 
tela), nas linhas 120 e 132, traçam os 
pontos na parte inferior de cada um dos 
conjuntos de linhas verticais que defi- 
nem a torre. 

Então, as linhas 1 10 e 1000 assumem 
o comando. A linha 1 10 diz ao compu- 
tador para ler, na linha 1000, a altura 
(novamente em pixels) de cada uma das 
22 linhas verticais. Assim, a primeira li- 
nha será 0,70 — isto é, vertical e com 
70 pixels de altura; a segunda linha será 
0,70, a terceira 0.67 e assim por diante. 
Se você quiser ver o que está acontecen- 
do, tente inserir uma linha temporária 
tal como 135 PAUSE 100 após a linha 
134. 

300 PLOT 0,75 

310 DRAW 255,0-0.1 

320 PLOT 0, 78 

330 DRAW 255,0.-0.1 

Essas linhas desenham a pista de ro- 
lamento e -0. 1 produz uma ligeira cur- 
va para cima. 

400 FOR r-62 TO 182 STEP 20 
410 PLOT r,78 
420 READ b 
430 DRAW 0,b 
440 NEXT r 
1010 DATA 42, 55, 63, 65, 63, S5, 42 

Essas, por sua vez, produzem os ca- 
bos verticais entre o arco e a pista de ro- 
lamento; o laço FOR... NEXT ajuda a 
traçar as posições iniciais dos cabos, en- 
quanto as linhas 420 e 1010 regulam as 
suas fespectivas alturas. 

Se você quiser que o programa rode 
de novo, automaticamente, acrescente 
essas linhas: 



A linha 5 limpa a tela e permite que 
o programa leia novamente o DATA. 
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TRABALHE COM INDICADORES RESTORE 



Até agora, o único problema com 
DATA se resumiu a que a informação 
precisou sempre ser chamada na mesma 
sequência, começando do mesmo lugar. 
Utilizando o RESTORE, é possível vol- 
tar ao início de uma lista, mesmo que 
não se tenha atingido o fim. Mas como 
se salta para o meio de uma lista? 

Nos computadores das linhas Sinclair 
Spectrum e MSX, existe um modo para 
se responder a essa questão. Em vez de 
uma lista apenas, você pode utilizar vá- 
rias, direcionando assim o computador 
para a lista adequada. Tente acrescen- 
tar essas linhas extras ao programa pa- 
ra o Spectrum: 



6 INPUT "PONTE ANTIGA OU MOD 
ERNA?" ; yS 

7 IF yS-"a" THEN RESTORE 
1000 

8 IF yS-"m" THEN RESTORE 
2000 

9 IF y$<>"a- AND y$<>"nT 
THEN GOTO 5 

10 FOR t-74 TO 80 STEP 3 

20 PLOT 35, t 

30 DRAW 175,0,-2.5 

40 NEXT t 
2000 DATA 83,84,85,86.87,88,89. 
90,90.90,90,90,90.90,90,89,88,8 
7,66.85.84,83 

2010 DATA 42,55,63,65,63,55.42 

Os números que seguem o comando 
RESTORE são conhecidos como indi- 
cadores de RESTORE. Eles direcionam 
o computador para uma lista DATA. 
No programa acima, se você pressionar 
a tecla O. o indicador RESTORE será 
definido com o 1000, na linha 7. 

Se você quiser que o micro vá para 
a primeira lista DATA disponível no 



programa, não será necessário um indi- 
cador: usar o RESTORE sem um núme- 
ro de linha é o mesmo que restaurar o 
número da primeira linha DATA. 

Indicadores de restauração são mui- 
to úteis em programação de jogos. Nu- 
ma aterrissagem, por exemplo, você po- 
deria escrever uma rotina para checar se 
houve uma colisão ou um pouso segu- 
ro. As listas DATA poderiam então 
conter informações para gerar sons pa- 
ra as duas alternativas, e o indicador 
RESTORE serviria para indicar a lista 
correta. 

Outra vaniagem do RESTORE inde- 
xado pára definir os elementos de uma 
figura é que fica bem mais fácil acres- 
centar novos elementos a um desenho 
terminado; se quisermos adicionar um 
muro à casinha da ilustração abaixo, 
bastará colocar mais linhas DATA: 



90 IFINKEYSO" "THENRESTORE520 : G 

OTO10:ELSEGOTO90 

590 DATA 203,203,203,203,203,20 

3,203,203,203,203,203,203.203,2 

03,203.203,203 

600 DATA 203,203,203,203,203,20 
3,203.203,203,203,203,203,203,2 
03.203.203,203 

Feito o desenho, o computador per- 
guntará se você quer uma casa com mu- 
ro. Se você pressionar qualquer tecla, o 
comando RESTORE 520 na linha 90 in- 
dicará, para a próxima execução do pro- 
grama (a partir da linha 10), que as li- 
nhas DATA lidas pelos comandos 
READ na linha 40 deverão começar na 
linha 520, e não em 500, que é o seu iní- 
cio físico. De acordo com uma nova se- 
quência de caracteres gráficos (que ter- 



mina com as linhas adicionais 590 e 
600), o desenho será diferente do ame- 
rior. 



10 PCLEAR 4 

20 PMODE 4.1 

30 PCLS 5 

40 SCREEN 1,1 

50 READ SX.SY 

60 LINE - (SX.SY) , PSET 

70 FOR K-l TO 18 

80 READ X.Y 

90 LINE -tX.Y) , PRESET 

100 NEXT K 

270 GOTO 270 

500 DATA 64. 160 

510 DATA 64,60.32.60,48,40,64.6 
0,32,60,32.160,110,160.110,120 
520 DATA 152,120.152.160,228.15 
0,228,60.212,40.196,60,228,60 
530 DATA 196.60,196,160.196,74 

As linhas de 10 a 40 deixam a tela pa 
ra gráficos de alta resolução pronta pa 
ra desenhar. A linha 270 a manté 
gada. As linhas 50 e 60 são um tanto in 
comuns. As coordenadas do ponto im 
ciai do castelo são lidas, e uma Einha em 
branco é desenhada em fundo branco 
para o ponto inicial. Algumas vezes, es- 
sa capacidade para desenhar linhas "in- 
visíveis" [orna-se bastante útil, pois elas 
podem se juntar às linhas visíveis em um 
esquema contínuo de programação. 

Da linha 70 à 100, é desenhado o con- 
torno do castelo. No final desta pane do 
programa foram lidos 38 itens de DA- 
TA. Agora acrescente essas linhas e 
construa algumas muralhas: 
110 FOR K-l TO 33 
120 LET X-X-4 
130 LINE- (X , Y) . PRESET 
140 IF Y-74 THEN LET Y-78 ELSE 
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LET Y-74 

150 LINE -<X,Y) . PRESET 
160 NEXT K 

Provavelmente você está tentando 
adivinhar o que aconteceu à linha 
READ. Esta é uma ocasião em que as 
instruções DATA e READ não repre- 
sentam economia de trabalho, pois vo- 
cê precisaria de 66 itens de DATA para 
definir os cantos da muralha. Progra- 
mando desta forma, você não precisará 
digitar todas as tinhas DATA extras. 

Essas linhas desenharão as janelas: 
170 FOR K-l TO 8 
180 READ X.Y 

190 LINE (X,V) - {X+4 . Y) , PRESET 
200 LINE <X+2.Y-2)-(X+2.Y+6) ,PR 
ESET 

210 NEXT K 

540 DATA 46,80.46,120,210,80,21 
0,120,86,90,170,90,80.132,178,1 
32 

Você não precisa do DATA para fi- 
nalizar as janelas. Como elas são todas 
do mesmo tamanho, apenas um conjun- 
to de DATA é necessário. Acrescente 
agora essas linhas, rode o programa e 
veja o que acontece: 
220 FOR K-l TO 4000 
230 NEXT K 

240 CLS: PB I NT 833, "PRESSIONE Q 
UAL0UER TECLA PARA CONTINUAR" 
250 LET INS-INKEYS-IF INS-"" TH 
EN GOTO 250 
270 GOTO 30 

Quando você pressionar uma tecla 
qualquer, obterá OD ou a mensagem de 
erro "out of data". A razão disso é que 
o programa chegou ao final da lista DA- 
TA — não existe mais nenhuma depois 
dele. Mas você não precisa digitar todos 
os DATA novamente. Acrescente só es- 
ta linha, que utiliza a declaração RES- 
TORE para instruir o computador a re- 
[ornar ao início da lista DATA: 

260 RESTORE 




Desenhar uma casinha nos micros da 
linha Apple é facílimo _quando utiliza- 
mos DATA. Digite o programa abaixo: 

10 HGR 

20 HCOLOR-3 

30 FOR 1-1 TO 4 

40 READ XC.YC.LX.LY 

50 HPL0T XC.YC TO XC+LX.YC TO 

XC+LX.YC+LY TO XC.YC+LY TO 

XCYC 
60 NEXT I 
BO FOR 1-1 TO 3 
90 READ XO.YO.XD.YD 
100 HPLOT XO.YO TO XD.YD 
110 NEXT I 

400 DATA 20.50,160,80 
410 DATA 90,80,20,50 
420 DATA 40.80,30,30 
430 DATA 130.80,30.30 
440 DATA 0.50,200,50 
450 DATA 200.50,100,0 
460 DATA 100,0,0,50 

Os elementos cm DATA fornecem as 
coordenadas para as diferentes partes da 
casa. 

A parte principal do programa liga o 
modo de alta resolução gráfica (HGR) 
e lê os dados contidos em DATA por in- 
termédio do laço FOR. ..NEXT nas li- 
nhas 30 a 60 e 80 a 110. 

Os dados contidos nas linhas DATA 
que vão de 400 a 430 contêm quatro nú- 
meros cada e servem para traçar relân- 
gulos de qualquer tamanho e em qual- 
quer posição na tela (rotina HPLOT na 
linha 50). Essa estratégia é vantajosa, 
pois você pode notar na ilustração que 
a casa tem no mínimo quatro retàngu- 
los diferentes (a casa, a porta e as duas 
janelas). Assim, os dois primeiros nú- 
meros em DATA são as coordenadas 
XC e YC do ponto de origem do retãn- 
gulo na tela (seu canto superior esquer- 
do). Os dois números seguintes são: o 




ORGANIZE MELHOR OS COMANDOS 
DATA EM UM PROGRAMA 

As linhas DATA tém quase sempre 
uma coisa em comum: qualquer que 
seja a informação que elas transpor- 
tam, leva-se muito tempo para digitá- 
las e fazê-las funcionar. Tudo correrá 
bem na primeira vez, mas pode ser que 
você precise retornar posteriormente a 
um programa e não consiga entender 
mais nada do que foi colocado lá. 

Organizar sistematicamente as li- 
nhas DATA do programa toma apenas 
um pouco mais de (empo, mas pode 
poupar séculos no resultado final. 

Onde o DATA definir um gráfico por 
biocos ou algo parecido, organize as li- 
nhas do programa para corresponder 
diretamente às linhas do gráfico. Se o 
DATA segue um formato repetitivo (ta) 
como os dados em uma lista telefóni- 
ca, por exemplo), classifique cada en- 
trada exatamente do mesmo modo nas 
linhas do programa. 



comprimento do lado paralelo ao eixo 
horizontal (LX) e o do lado paralelo ao 
eixo vertical (LY). Assim, o laço 
FOR. ..NEXT das linhas 30 e 60 lê su- 
cessivamente quatro conjuntos de dados 
e traça os quatro retângulos. 

Já o traçado do triângulo exige uma 
técnica diferente. O laço que vai das li- 
nhas 80 a 110 lê 4 valores: XO, YO 
(coordenadas de origem de uma reta) e 
XD, YD (coordenadas do seu ponto fi- 
nal), e traça essa reta, na linha 90. 

Uma vez que você tenha rodado o 
programa, talvez queira repeti-lo mais 
uma vez. Para isso, tente acrescentar as 
linhas seguintes, rode o programa e ve- 
ja o que acontece: 

120 HOME 

130 PRINT "QUER VER DE NOVO 

(S/N) ?" : GET RS 
140 IF RS-"N" THEN TEXT : END 
150 GOTO 10 

Como vimos antes, se você pressio- 
nar uma tecla qualquer obterá OD ou 
a mensagem de erro "out of data". A 
razão disso é que o programa chegou ao 
final da lista DATA. Felizmente, você 
não precisa digitar todos os DATA no- 
vamente. Apenas acrescente a linha se- 
guinte, que utiliza a declaração RESTO- 
RE para instruir o computador a retor- 
nar ao inicio da lista DATA: 

150 RESTORE :G0T0 10 
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PONHA ORDEM EM 
SUAS CONTAS 



Assim como os grandes computadores 
comerciais, seu micro pode ser 
usado para fazer cálculos e manter 
registros financeiros. Veja como 
fazer isso e facilite sua vida. 



Neste artigo, examinaremos um pro- 
grama de contabilidade doméstica, que 
foi planejado para fornecer respostas a 
perguntas como: onde foi parar o di- 
nheiro do salário? São apresentadas ver- 
sões para todos os computadores, com 
exceçào dos compatíveis com o ZX-81 . 

Para atualizar a sua contabilidade, 
você deve "alimentá-la" uma vez por 
mês com seus rendimentos .e despesas. 

O programa cria uma espécie de diá- 
rio contendo uma coluna para os rendi- 
mentos e sete colunas para as despesas 
sob diferentes rubricas. As subdivisões 
referentes às despesas podem ser modi- 
ficadas, caso necessário; para isso, al- 
tere os dizeres (identificação das 
categorias de despesa) na declaração 
DATA pertinente, quando digitá-las, 
junto com o programa. Mas existem al- 
gumas limitações: a coluna de rendimen- 
tos deve aparecer sempre em último 
lugar; ao mesmo tempo, é necessário 
que haja um total de oito colunas. 

O programa deve ser digitado em 
duas seções: a primeira, com o próprio 
programa; e a segunda, com todas as in- 
formações com as quais você o alimen- 
tou até o momento da sua entrada. Isto 
significa que você precisará de dois no- 
mes para os programas. 

Para gravar corretamente o progra- 
ma em fita, siga o procedimento normal 
de sua máquina (comando SAVE ou 
CSAVE). Para recarregar o programa, 
siga novamente o procedimento usual 
para carregar jogos gravados em fitas. 

Quando você rodar o programa, o 
menu principal lhe dará sete opções: 

1 - Entrar dados 

2 - Ver dados 

3 - Gravar em fita 

4 - Carregar da fita 

5 - Imprimir 

6 • Alterar um dado 

7 - Encerrar o programa 

Para fazer um lançamento, pressio- 
ne a tecla 1 quando o menu principal 
aparecer. Não acione ainda <EN- 
TER> ou < RETURN > . A cada lan- 
çamento, o computador pedirá detalhes 
como data, descrição, valor e categoria. 

Digite a informação na ordem dada, 
pressionando < ENTER > ou < RE- 
TURN > após cada dado do lançamen- 
to. Espere que o computador pergunte 




por um novo dado e pressione <EN- 
TER> ou < RETURN >, trazendo de 
volta o menu. 

Para examinar um lançamento, pres- 
sione a tecla 2 quando o menu princi- 
pal aparecer. Não tecle < ENTER > ou 
< RETURN >. O computador exibirá 
um índice mostrando as várias catego- 
rias. Para selecionar uma delas digite o 
número apropriado (não tecle < EN- 
TER > ou < RETURN > , e o micro lis- 
tará os lançamentos que existem para 
aquela categoria. 

Na versão para o Spectrum, a tela 



mostrará a questão "Continua?" se ho- 
ver espaço insuficiente para exibir todos 
os lançamentos de uma vez. Neste caso, 
não pressione o N nesse pomo: prossi- 
ga até o final da listagem. 

Quando terminar, acione < EN- 
TER > ou < RETURN > e voile ao me- 
nu principal- 



COMO MODIFICAR UM LANÇAMENTO 



Quando você teclar o 6 para a opção 
de alterar um lançamento, o computa- 
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DIGITE E ARMAZENE 0 


■ 


ATUALIZE OS REGISTROS 




PROGRAMA 


■ 


VERIFICAÇÃO DO BALANÇO 


■ 


AS OPCOES DO MENU 


■ 


IMPRESSÃO DOS RESULTADOS 


■ 


COMO ENTRAR LANÇAMENTOS 


■ 


ARMAZENE SUAS FINANÇAS 




NOS REGISTROS 




EM FITA 




tão simples quanto um interruptor de 
luz — um liga/dtsliga acionado quan- 
do se tecla a opção 5 (também sem 
< ENTER > ou < RETURN > ) do me- 
nu principal. O computador pedirá que 
você tecle S, se quiser usar a impresso- 
ra, ou N se não quiser. Se você pressio- 
nar a tecla S, o menu principal voltará 
automaticamente à tela e, a partir desse 
momento, tudo o que normalmente apa- 
receria na tela, usando-se a opção 2, 
passará a ser mandado para a impres- 
sora. Se quiser interromper essa opção, 
pressione a tecla 5 novamente e respon- 
da N. 

Se você não tiver uma impressora co- 
nectada ao computador, tome cuidado 
para não pressionar a lecla S. O Spec- 
trum irá ignorar as instruções neste ca- 
so, mas em qualquer um dos outros três 
computadores você poderá perder todas 
as informações já inseridas. 



dor mostrará uma lista com todos os 
lançamentos já efetuados. 

Você pode se movimentar para trás 
e para a freme dentro da lista, utilizan- 
do os sinais de prontidão que aparece- 
rão na tela. O computador também dirá 
como editar (modificar) um lançamen- 
to. Uma vez que você tenha digitado 
< ENTER > ou < RETURN >, após 
fazer a alteração, o computador trará de 
volta o menu principal. Para uma segun- 
da alteração, você deve selecionar a op- 
ção 6 novamente. O comando para a 
opção de impressão funciona de forma 



10 PMODE 0:PCLEAR 1 r CLEAR 10000 
20 DIM TES (200) , AM (200} , DAS (200 
) ,CTS<8) ,CA(200) 

30 FOR N-l TO 8 : BEAP CTStNI :NEX 
T 

40 DATA MANUTENÇÃO DA CASA. LAZE 
H . ALUGUEL , VESTUÁRIO , AUTOMÓVEL , 
FERIAS , OUTROS . RENDA 
50 lllllllll. 1 1 1 I 1 1 

II. " 

60 CLS4 ! PRINT #8 , "MENU PRINCIP 
AL";: PRINT 670, "1- ENTRAR DADOS 
";:PRINT §134, "2- VER ENTRA 
DAS ";:PRINT «198. "3- GRAVAR 

EM FITA "f 
70 PRINT 6262, "4- CARREGAR 

" i 'PRINT 6326, "5- IMPRIMIR 
";: PRINT 6390, "6- MUDAR E 
NT RADA "::PRINT 6454, "7- SAID 
A " : 

80 AS-INKEYSrlF AS<"1" OR AS>"7 
" THEN 80 

90 ON VAL (AS) GOSUB 1000,2000.3 

000.4000.5000.6000.7000 

100 GOTO 60 

1000 CLS: IF NU>200 THEN PRINT 
6264 , "MEMORIA LOTADA ! " : PLAY "T 
10ABCDEFGP1P1" : RETURN 
1010 GOSUB 1160 

1020 GOSUB 1250:INPUT"DATA " ; DA 
S (NU) 

1030 IF DAS(NU)-"" THEN RETURN 
1040 IF LEN(DAS<NU))>§ THEN 102 
0 

1050 PRINT 6L.DAS(NU) : 



1060 GOSUB 1250 : LINEINPUT-ITEM 
?";TEStNU) :IF LEN (TES (NU) )>25 T 
HEN 1060 

1070 AS-LEFTS (TES (NU) , 9} : PRINTê 

L+14-LEN(AS)/2.A$; 

1080 GOSUB 1250:INPUT"QUANTIA " 

;A 

1090 IF A>9999999 OR A<0 THEN 1 

oeo 

1100 PRINT 6L+19.USING U2S;A;:A 
M (NU) -A 

1110 GOSUB 1250:INPUT"CATEGORIA 
";CA$ 

1120 GOSUB 1180:IF F-0 THEN 111 
0 

1130 CA<NU)-NM:PRINT 6L+29. LEF 

TS (CTStCA(NU) ) .3} ; 

1140 IF NM08 THEN GT-GT+A 

1150 NU-NU+1: L"L+32:IF L-448 T 

HEN 1000 ELSE 1020 

1160 L-64: PRINT 62 . "DATA" TAB ( 

10)-ITEM" TAB(19) "QUANTIA" TAB 

(29) -CAT"; 

1170 RETURN 

1180 IF VAL(CAS)<>0 THEN 1230 

1190 F-0:FOR N-l TO 8 

1200 IF CAS-LEFTS (CTS IN) , LEN (CA 

S)) THEN F-F+1:NM-N 

1210 NEXT: IF FM THEN F-0 

1220 RETURN 

1230 IF VAL(CAS)>8 THEN F-0 : RET 
URN 

1240 NM-VAL (CAS) : F"l : RETURN 
1250 PRINT 6448," ": PRINT 6449. 
1 : RETURN 

2000 CLS3:FOR N-l TO 8 
2010 PRINT 669+N*32,N;MIDS("- " 
+CT$(N1+STRINGSU2." "),1,20); 
2020 NEXT 

2030 TT-0: PRINT #449. "QUE CATE 
GORIA ?"; 

2040 AS-INKEYS:IF AS<"1" OR AS> 
"8" THEN 2040 
2050 NM-VAL (AS) 

2060 IF PT-1 THEN PRINTI-2 . CHRS 
(13) :PRINT|-2,TAB(21-LEN(CTS(NM 
))/2) ;CTS(NM) :PRINT|-2," DATA" 
TAB ( 20) " ITEM" TAB (39) "QUANTIA" 
2070 GOSUB 2280 
2080 FOR NN-0 TO NU 
2090 IF CA (NN) ONM THEN 2150 
2106 IF PT-1 THEN PRINT|-2 , USIN 
GFS ; DAS (NN) ; TES (NN) ; AM { NN ) 
2110 PRINT 6L.DASINN) AS-LEFTS 
(TES (NN) ,13) : PRINT 6L+16-L£N(AS 
) /2 , AS ; : PRINT 6L+23.USING U2S:A 
M (NN) : ; TT-TT+AM (NN) 
2120 L-L+32:IF (L-448 AND NM<>6 
) OR ÍL-352 AND NM-8) THEN PRIN 
T 6465. "CONT ?";ELSE GOTO 2150 
2130 A$-INKEYS:IF AS-"" THEN 21 

30 I 
2140 GOSUB 2280 





2150 NEXT ! IF PT-1 THEN PRINT»- 
2.CHRSU3): IF NM<>8 THEN PRINT 
»-2.TAB(28) : :PRINT#-2,USING"TOT 
AL -"+U1S;TT 

2160 PHINT Í463.USING "TOTAL 
+U1S;TT; 

2170 IF MM<>8 THEN 2250 

2180 IF PT-0 THEN 2220 

2190 PRINTf-2.TAB(21) ; :PRINT|-2 

,<JSING"RENDA TOTAL -"+U1S:TT 

2200 PRINT #-2 ,TAB (16) ; : PRINTt- 

2 . USI.NG" DESPESA TOTAL -"+U1S;GT 

i PRINTI-2 .TAB (35) " " 

2210 PRINTI-2.TAB [26) ; :PRINT#~2 

, USING"BALANCO -"+U1S;TT; 

2220 PRINT §392.USING "RENDA TO 

TAL - - +U1$;TT; 

2230 PRINT §419,USING "DESPESA 
TOTAL -"+U1S;GT; 

2240 PRINT §461.USING"BALANCO = 

"+U1S;TT-GT ; 

2250 A$-INKEYS:IF AS-"" THEN 22 
50 

2260 IF ASOCHRSU3) THEN 2000 
2270 RETURN 

2280 L-64:CLS NM : PRINT § (33-LEN 
(CTS(NM) ) ) /2,CTS(NM) ; 
2290 PRINT §34 , "DATA" ; : PRINT «4 
5 , "ITEM" ; : PRINT §56 , "QUANTIA" ; 
2300 FOR N-32 TO 416 STEP 32 
2310 POKE N+1032 , 122+NM*16 : POKE 

N+1046, 117+16*NM 
2320 NEXT : RETURN 

3000 CLS :MOTORON : PRINT §64 . " POS 
ICIONE O GRAVADOR E PPESSIONE<E 
NTER>" 

3010 AS-INKEY$:IF AS-"" THEN 30 
10 

3020 MOTORO FF : PRINT §65."PRESSI 
ONE ' REC ' NO GRAVADOR E TEC 

LE <ENTER>" 
138 3030 AS-INKEYS:IF AS-"" THEN 30 



3040 CLS: PRINT §65 . ; : INPUfNOM 

E DO ARQUIVO " ; DAS 

3050 OPEN "O". DAS 

3060 PRINT 1-1, NU 

3070 FOR N-0 TO NU-1 

3080 PRINT | - 1 , DAS (N| , TE$ (N) . AM 

(N) ,CA(N) 

3090 NEXT ! CLOSE#-l ; RETURN 

4000 CLS: PRINT §65 , ; : INPUT"NOM 

E DO ARQUIVO"; DAS 

4010 MOTORON : PRINT §64,"POSICIO 

NE O GRAVADOR E TECLE <ENTER 

>" 

4020 AS-INKEYS:IF AS-"" THEN 40 
20 

4030 MOTOROFF:GT-0:OPEN "I",#-l 
, DAS 

4040 PRINT §129, "ACHEI ";DAS 

4050 INPUT 1-1 , NU 

4060 FOR N=0 TO NU-1 

4070 INPUT t-1 . DAS (N) .TE$ (N) . AM 

(N) ,CA(N) 

4080 IF CA(N>08 THEN GT=GT+AM ( 
N) 

4090 NEXT : CLOSE |-1: RETUHN 
5000 CLS: PRINT §65. "VOCE QUER 
IMPRIMIR 7 IS/N) " ; 



6035 KKS-INKEYS:IFKKS-""THEN603 

5 

6040 IF KKS-CHRS (8 ) AND M>0 THE 

N M-M-l :GOTO 6080 

6050 IF KKS-CHRS (94) AND M<NU-1 

THEN M-M+1:GOTO 6080 
6060 IF KKS-CHRS ( 32 ) THEN 6100 
6070 GOTO 6035 

6080 PRINT§64 . USING" t i % 

• Ill l Í";DAS[M) i 

LEFTS (TES (M) .8) ; AM (M) ; LEFTS (CTS 
{CA(M> ) , 3) 
6090 GOTO 6035 

6100 IF CAlM)<>8 THEN GT-GT-AM( 
M) 

6110 INPUT"NOVA DATA ";DS:IF DS 
-"" THEN 6130 

6120 IF LEN(DS)>8 THEN 6110 ELS 
E DAS (M) -DS 

6130 INPUT "NOVO ITEM ";DS:IF D 
S-"" THEN 6150 
6140 TES (M) -DS 

6150 INPUT "NOVA QUANTIA ";A:IF 

A-0 THEN 6170 
6160 IF A<0 OH A>9999999 THEN 6 
150 ELSE AM (M) -A 

61/0 INPUT "NOVA CATEGORIA " ; CA 

S ! IF CAS-" " THEN 6200 

6180 GOSUB 1180:1F F-0 THEN 617 



M) 

6210 RETURN 

7000 CLS: PRINT §69. "VOCE TEM C 
ERTEZA [S/N) ? ; 

7010 AS-INKEYS:IF ASO"S" AND A 

5<>"N" THEN 7010 

7020 IF A$="N" THEN RETURN 



50 LET mn=200: IF PEEK 23733- 

127 THEN LET tnn-100 
100 DIM cS(8.16): DIM a (mn) : 
DIM aS(mn,23) 
110 LET u-0: LET V-l 
120 FOR n=v TO 8: READ CS ín) : 
NEXT n 

130 POKE 23659.8 
140 LET kS="-00": FOR n-v TO 7 
145 LET kS-kS+CHRS 8: NEXT n 
190 LET p-2: LET tt-u: LET cr- 



5010 AS-INKEYS: 
SO"N" THEN 501 
5020 PRINT "OK" 
PT-0: RETURN 
5030 FS-"Í 

( 

RN 



IF AS-"N" THEN 



6000 IF NU-0 THEN RETURN 
6010 CLS: PHINT" DATA"TAB (11)" 
ITEM"TAB (19) "QUANTIA" TAB (29) "CA 



200 CLS : PRINT BRIGHT v: 
PAPER 2; INK 6 r AT 2.1:" M E N 
U PRINCIPAL" 
210 PRINT BRIGHT v; PAPER 7; 
AT 5,4:" 1- ENTRAR REGISTRO "; 
tt AT 7,4;*' 2- VER REGISTROS "l 

+U2$:PT=1:RETU AT 9,4;" 3- GRAVAR EM FITA "; 

AT 11.4;" 4- CARREGAR 
AT 13,4:" 5- IMPRIMIR 
; AT 15.4;" 6- MUDAR REGISTRO 
" ; AT 17,4;" 7- SAÍDA 



6020 PRINT §41 7 . "PRESSIONE <";C 

HR$(94):"> PARA PROSSEGUIR 

OU <" ;CHRS (95) ; "> PARA RETORNAR 



220 PRINT INK 3; FLASH v; 
BRIGHT v;AT 20,4;" - SELECIONE 
OPCAO - " 



4 APLICAÇÕES 4 



230 IF INKEYS- " " THEN GOTO 

230 

240 LET zS-INKEYS: IF zS<"l" 
OR zS>"?" THEN GOTO 230 
250 CLS i GOSUB 1000*VAL zS 
260 GOTO 200 
1000 LET c-u 

1005 LET c-C+v: IF c-mn+v THEN 
RETURN 

1006 IF aSíc.v)-" " THEN GOTO 
1010 

1007 GOTO 1005 

1010 PRINT AT U,u; BRIGHT v; PA 
PER 2; INK 7;" DATA ITEM 

QUANTIA CAT " 
1015 IF c-mn+v THEN RETURN 
1020 INPUT "Digite a data"; LIN 
E aS(c,2 TO 9) : IF aS(C,2)-" " 
THEN RETURN 

1030 PRINT TAB u;aS(c.2 TO 9); 
1040 INPUT "Digite O item "; LI 
NE a$(c,10 TO 23): IF aS(c,10)- 
" " THEN 'GOTO 1040 
1050 PRINT TAB 9;aS(c,10 TO 21) 

Í060 INPUT "Quantia ";a(c): IF 
a(c)-U THEN GOTO 1060 
1070 LET vv-a(c)*100: LET v$-5T 
RS vv: PRINT TAB 27-LEN vS;a(c) 

1080 INPUT "Categoria "; LINE f 

S: IF fS-"" THEN GOTO 1080 
1090 FOH n-v TO 8: IF f$-c$(n,v 

TO LEN fS) THEN GOTO 1130 
1100 NEXT n: GOTO 1080 
1130 IF n-8 THEN LET cr-cr+a(c 
) 

1140 IF n<>8 THEN LET tt-tt+a( 

c) 

1150 PRINT TAB 29;cS{n.v TO 3) 
1160 LET a$(c.v)-CHRS (48+n) 

1200 LET C-C+V: GOTO 1015 
2000 FOR n-v TO 6: PRINT PAPER 
V: INK 7;AT n«2 , 4 ; " ";n;"- " ; c 
S(n) : NEXT n 

2010 PRINT FLASH v; INK 2 ; AT 1 
9,3;"* Selecione categoriad a 8 
) " 

2020 IF INKEYS-"" THEN GOTO 20 
20 

2030 LET ZS-INKEYS: IF ZS<"1" O 

R z$>"8" THEN GOTO 2020 

2040 LET t-u: LET C-U 

2050 CLS : PRINT #p ; PAPER 6; B 

RIGHT v ; TAB 10;cS(VAL zS);TAB 3 

t;" " 

2055 LET c-c+v: IF c'-mn THEN G 
OTO 2500 

2060 IF aS(C.v)-" " THEN GOTO 
2500 

2070 IF aS(c,v)Oz$ THEN GOTO 
2055 

2060 PRINT *p;a$(c.2 TO 9);TAB 

10;aS(c,10 TO 23) ; 

2090 LET am-a(C)"100: LET nS-ST 

RS am: PRINT |P;TAB 29;kS;TAB 3 

1-LEN nS;a(c) 

2100 LET t-t+a(c) 

2110 GOTO 2055 

2500 PRINT »p;TAB 25;" *! 

LET tx-t*100: LET nS-STRS tx 
2505 PRINT #p;TAB 12;"TOTAL- "; 
TAB 29;k$;TAB 31-LEN nS ; t 



2510 IF Z$<>"8" THEN GOTO 2590 
2520 LET tz-tt*100: LET nS-STRS 
tz: PRINT '|p;TAB 4;"DESPESA T 
O TAL- " ; TAB 29;kS;TAB 31-LEN nS 
;tt 

2530 LET ba-!t-tt)"100: LET nS- 
STRS ba: PRINT - #p;TAB 10 ; "BALA 
NCO- " ; TAB 29;kS;TAB 31-LEN nS ; 
ba/100 

2590 PRINT PAPER 2; INK 7'"Pre 
asione qualquer tecla para co 
ntinuar" 

2600 PAUSE U: IF PEEK 23560-13 

THEN RETURN 

2610 CLS : GOTO 2000 

3000 GOSUB 8000: IF re=v THEN 

RETURN 

3010 PRINT PAPER 6;AT 1 0 . u ; " D 
igi te o nome do arquivo data " 
3015 INPUT LINE wS : IF LEN WS> 
10 OR LEN wS<v THEN GOTO 3010 
3020 CLS : SAVE wS DATA a!) : SA 
VE WS DATA aS(i : RETURN 
4000 GOSUB 8000: IF re-v THEN 
HETURN 

4010 PHINT BRIGHT v ; AT 10,u;"D 
igite o nome doa dado3 a serem 
carregados"; INPUT LINE wS. IF 

LEN wS>10 THEN GOTO 4010 
4020 PRINT PAPER 3; INK 7 ; AT 1 
0,u;" Pressione PLA 

Y 

4030 LOAD uS DATA a() : LOAD US 
DATA aSO 

4040 LET cr-u: LET tt-u: FOR n- 



TO l 



IF aS ín,v) •" 
a(n) 



THEN 



ET I 

4050 IF aS(n,l)<>"8" THEN LET 
tt-tt+a (n) 
4060 NEXT n: RETURN 
5000 PRINT BRIGHT v;AT 10, u;" 
Voce quer imprimir (S/N) ? " 
5010 PAUSE u: IF INKEYS="" THEN 
GOTO 5010 



5020 LET ZS-INKEYS 

5030 IF zS-"n" THEN LET p-2; R 

ETURN 

5040 IF ZS-"S" THEN LET p- 3 : R 
ETURN 

5050 GOTO 5010 

6000 LET C-v: IF a(c)-u THEN D 
ETURN 

6010 PRINT AT u.u; BRIGHT v; PA 
PER (VAL aS(c,v))-v; INK 9;" Nu 
■ero "sccSlVAL aS(c.v)) 
6015 PRINT PAPER 2; INK 7; ,- "D 
ATA ITEM QUANTIA 

": PRINT 'aS(c,2 TO 9);TAIÍ 10;a 
S (c , 10 TO 23) ; 

6020 LET am-a <c) "100 : LET nS-ST 
RS am: PRINT TAB 29;k$;TAB 31-L 
EN nS;a[c) 

6030 PRINT PAPER 3; INK 7 ; AT Z 
0,uj" A - Prossegue Q - Retoi 
na EDIT para alterar fe 

6040 PAUSE U 

6050 IF INKEYS-"q" AND c.v TH EH 

LET c-C-v: GOTO 6010 
6060 IF INKEYS- "a" AND cOan TH 
EN LET c-c+v 

6070 IF a(c)-u THEN LET c-c-v 
6080 IF PEEK 23560-7 THEN SOTO 

6100 
6090 GOTO 6010 

6100 INPUT BRIGHT v;"Digite a 
nova data "; LINE aSlc.2 TO ") : 
IF aS(c,2)-" " THEN GOTO 6100 
6110 PRINT AT 5,u;aS(c.2 TO 9) 
6120 INPUT BRIGHT v;"uiglte o 
novo item "i LINE aSíc.lO TO 23 
): IF aS(c.lO)-" " THEN GOTO b 
120 

6130 PRINT AT 5,10;aS(c,10 TO 2 
3) 

6135 IF aS(c.v)-"8" THEN LET c 




4 APLICAÇÕES 4 



tt-tt-a !c) 

6140 INPUT BRIGHT v; 'Digite no 
va quantia ";a(c>: IF a(c)-u TH 
EN GOTO 6140 

6150 LET am-a(c)*100: LET nS-ST 
PRINT AT 5,29;ltS;TAB 31- 



LEN : 



a (c) 



6160 INPUT BRIGHT v;"Digite a 
nova categoria ": LINE fS: IF f 
S-"" THEN GOTO 6160 
6170 FOR n=v TO 8: IF fS-cS(n,v 

TO LEN f$> THEN GOTO 6190 
6180 NEXT n: GOTO 6160 
6190 LET aS(c,v)-CHRS (48+n) 
6200 IF n-8 THEN LET cr-cr+a(c 
) 

6210 IF n<8 THEN LET tt-tt+a(c 
) 

6220 RETUHN 

7000 G05UB 8000: IF re-v THEN 
RETURN 

7010 RAND USB u 

8000 PRINT PAPER 4;AT 10,9;" V 

oce tem certeza? " 

8010 PAUSE ti: LET re*u: IF INKE 

Y$<>"s" THEN LET re-v 

8020 RETUBN 

9000 DATA "MANUTENÇÃO CASA" . " LA 
2ER", "ALUGUEL E TAXAS" . "VE5TUAR 
IO" . "AUTOMÓVEL " , " FERIAS " . "OUTRO 
S" . "RENDA" 



10 COLOR 15,4.4:KEY0FF:MOTOROFF 
:CLEAR5000 

20 DIMTES (200) , AM (200) , DAS (200) 
,CTS(8) ,CA(200) 
30 FORN" 1T08 : READCTS (N) : NEXT 
40 DATA MANUTENÇÃO DA CASA , LAZE 
R. ALUGUEIS E TAXAS , ROUPAS , AUTOM 
ÓVEL , FERIAS , MISCELÂNEA . RENDAS 
50 UlS-"SSIMtH4tt . " :U2S-"M#I 
MH," 



60 CLS : LOCATE7 , 2 : PRI NT" M E N U 

PRINCIPA L":LOCATE10,6 
:PHINT"1:- ENTRAR DADOS" : LOCATE 
10,8:PRINT"2:- VER DADOS":LOCAT 
E10,10:PRINT"3:- GRAVAR NA FITA 

70 LOCATE10 , 12 : PRINT"4 : - CARREG 

AR DA FITA":LOCATE10.14:PRINT"5 
:- OPÇÃO DE IMPRESSÃO" : LOCATE10 
. 16 : PRINT"6 : - ALTERAR DADOS": LO 

CATE10,18:PRINT"7:- FIM DE PROG 

RAMA" 

60 LOCATE10 . 22 : PRINT"-ESCOLHA U 
MA OPÇÃO- " 

90 AS-INKEYS:IFAS<"l"ORAS>"7"TH 
EN90 

100 ONVAL(AS)GOSUB1000, 2000. 300 

0,4000.5000.6000,7000 

110 COLOR 15,4,4:GOTO60 

1000 CLS : IFNU>200THENLOCATE10 . 1 

5 : PRINT "MEMÓRIA CHEIA!":BEEP 

1010 GOSUB1160 

1020 GOSUB1 250 : INPUT "DATA " ; DAS 
(NU) 

1030 I FDAS (NU) - " "THENRETURN 
1040 IFLEN (DAS (NU) I >8THEN1020 
1050 LOCATE0 . L : PRINTDAS (NU) 
1060 GOSUB1250:LINEINPUT"ITEM 7 
" ;TES(NU) ; IFLEN (TES (NU) ) >25THEN 
1060 

1070 A$"LEFTS (TES (NU) ,15) : LOCAT 

E17-LENÍAS) /2 . L : PRINTAS 

1080 GOSUB1 250 : INPUT" QUANTIA "; 

A 

1090 IFA>9999999»ORA<0THEN1080 
1100 LOCATE25,L:PRINTUSINGU2S;A 
:AM(NU) -A 

1110 GOSUB1250 : INPUT"CATEGOHIA 

" ;CAS 

1120 GOSUB1180 : IFF-0THEN1 110 

1130 CA(NU)-NM:LOCATE36.L:PRINT 

LEFTS(CT5(CA(NU)) ,3) 

1140 IFNMOSTHENGT-GT+A 

1150 NU-NU+1:L-L+1:IFL-19THEN10 

00ELSE1020 




"quantia";TAB<36 
) "cat"; 
1170 RETURN 

1180 IFVAL(CASX>0THEN1230 

1190 F-0:FORN-1T08 

1200 IFCAS-LEFTS (CTS (N) . LEN [CAS 

) JTHENF-F+l :NM-N 

1210 NEXT: IFF>lTHENF-0 

1220 RETURN 

1230 IFVAL (CAS) >STHENF-0 : RETURN 
1240 NM-VAL (CAS) : F-l : RETURN 
1250 LOCATE0.20:PRINTSPACES!79) 
; :LOCATE0,20:RETURN 
2000 CLS:F0RN"1T08 
2010 LOCATE10.2*N+3:PRINTN;":- 
" ;CTS(N) 
2020 NEXT 

2030 TT-0 : LOCATE1S , 23 : PRINT"Qua 
1 categoria? "; 

2040 A$-INKEYS:IFAS<"1"0RAS>"8" 

THEN2040 

2050 NM-VAL (AS) 

2060 IFPT-1THENLPRINTTAB (40-LEN 
(CTS(NM))/2) ;CTS(NM) : LPRINTTAB ( 

10)" DATA" ; TAB ( 28) ;"ITEM";TAB( 

51} ; "QUANTIA" 

2070 GOSUB2280 

2080 FORNN-0TONU 

2090 IFCA (NN) ONMTHEN2150 

2100 IF PT-1 THEN LPRINTTAB (10 ) 
; DAS (NN) ; TAB (22) :TES (NN) ; : LPRIN 

TTAB (50) USINGU2S ; AM (NN) 

2110 LOCATE0 , L : PRINTDAS (NN) ; :AS 

-LEFTS (TES (NN) .20) : LOCATE10 : PRI 

NTAS ; : LOCATE 30 : PRINTUSINGU2S ; A 

M (NN) ; : TT-TT+AM (NN) 

2120 L-L+1:IF (L-21ANDNM08) OR 
(L-19ANDNM-8) THEN LOCATE14.22 
:PRINT"scroll? " ; : ELSE GOTO 215 

0 

2130 AS-INKEYS:IFAS"""THEN2130 
2140 GOSUB2280 

2150 NEXT: I FPT- 1ANDNMOSTHENLPR 

INT : L PRI NT : LPRINTTAB ( 38 ) ;USING" 

TOTAL -> "+U1S;TT 

2160 LOCATE18.22:PRINTUSING"tot 

al ->"+UlS;TT 

2170 IFNMO8THEN2250 

2180 IFPT-OTHEN2220 

2190 LPRINT : LPRINT : LPRINTTAB (40 

) ; USING"RENDA TOTAL ->"+UlS;TT 

2200 LPRINTTAB ( 36) ; USING"DESPES 

AS TOTAIS ->"+Ul$:GT:LPRINTTAB( 

54) 

2210 LPRINTTAB (44) ; USING"BALANÇ 
O ->"+UlS;TT-GT 

2220 LOCATE13,20:PRINTUSING"Ren 

da total ->"+UlS;TT 

2230 L0CATE9.21:PRINTUSING"Desp 

egas totais ->"+UlS;GT 

2240 LOCATE17,22:PRINTUSING"Bal 

anço ->"+UlS:TT-GT; 

2250 AS-INKEYS:IFAS-""THEN2250 

2260 IFAS<>CHRS(13)THEN2000 

2270 RETURN 

2280 L-3:CLS:COLOR 15.NM+2:LOCA 
TE20-LEN(CTS (NMJ ) /2 : PRINTCTS (NM 
) 

2290 PRINT " data";TABU8)"ltem 
" ; TAB (32) "quant ia" ; 
2300 FORN-3TO20 

2310 VPOKEN*40+10.22:VPOKEN*40+ 



2320 NEXT : RETURN 

3000 CLS : MOTOR : LOCATE0 , 10 : PRINT 
"Posicione a fita e pressione < 
RETURN> n 

3010 IF1NKEYS-""THEN3010 

3020 MOTOR : PRINT "Teci e <REC/PLA 

Y> e pressione <RETURN>" 

3030 IFINKEYS-""THEN3030 

3040 LOCATE8.15:INPUT"Nome do a 

rquwo " ; DAS : ARS- "CAS : "+DAS 

3050 OPEN ARS FOR OUTPUT AS*1 

3060 PRINT#1,NU 

3070 FORN-0TONU-1 

3080 PRINT ♦ 1 , DAS (N) ; " . " ; TES ÍN) ; 

* , " ;AM(N) , CA(N) 

3090 NEXT ; CLOSE |1 : RETURN 

4000 CLS: LOCATE8. 10 : INPUT"Nome 

do arquivo " : DAS : ARS ""CAS : "+DAS 

4010 MOTOR:LOCÀTE0.12:PRINT"Pos 

ícione a fita e tecle <RETURN>" 

4020 IFINKEYS-""THEN4Q20 

4030 MOTOR:L0CATE0,14:PRINT"Pre 

ssione a tecla <PLAY> e <RETURN 

>" 

4040 IFINKEYS-""THEN4040 

4050 MOTOR:GT-0:OPEN ARS FOR IN 
PUT AS II 

4060 LOCATE6.18:PRINT"Achei ";D 
AS 

4070 INPUT* 1, NU 

4080 FORN-0TONU-1 

4090 INPUTI 1 . DAS IN) , TES (N) . AM (N 

) .CA(N) 

4100 IFCA (N ) 08THENGT-GT+AM [N) 

4110 NEXT : CLOSE I 1 : RETURN 

5000 CLS : LOCATE1 0 , 10 : PRINT" Impr 



5020 LOCATE15.13:PP.INT"[D]eslig 
ada" 

5030 AS-INKEYS:IFAS-""THEN5030 

5040 IFAS-"L"THENPT- 1 : RETURN 

5050 IFAS-"D"THENPT-OELSt5030 

5060 RETURN 

6000 IFNU-OTHENRETURN 

6010 CLS:PRINT" data" ; TAB [ 14 ) ; 

"Item" , TAB (26) í "quantia" ; TAB ( 36 

) ;-cat" 

6020 LOCATE0 . 20 : PRINT" Press i one 
I->1 para avançar" 

6030 LOCATE0 . 21 : PRINT" Pr es3ione 
[<=] para r e t roceder " : PRINT"Ou 
a barra de espaços para editar 

" ;GOT06080 

6040 AS-INKEYS : IFAS-" "THEN6040 
6050 IFASC (AS ) -29ANDM>GTHENM=M- 
1 :GOTO6080 

6060 IFASC(AS)-28ANDM<NU-1THENM 
-M+l :GOT06080 

6070 IFASC(AS)-32THEN6100ELSE60 



6080 LOCATE0 . 3 : PRINTDAS (M) ; TAB ( 
10) ; LEFTS (TES (M) , 15) ; : PRINTTAB ( 
26) ; USINGU2S ; AM (M) ; : PRINTTAB ( J6 
) ; LEFTS [CTS [CA (M) ) .3) 
6090 GOTO 6040 

6100 IFCA(M) 08THENGT-GT-AM (M) 
6110 DS-"" : PRINT : INPUT"Data ";D 
S : IFDS-" "THEN61 30 
6120 I FLEN (D$) >8THEN6110ELSEDAS 
[M) -DS 



6130 DS-" * : PRINT: INPUT" Item ";D 

S : IFDS-""THEN6150 

6140 IFLEN [DS) >25THEN61 30ELSETE 

S(M)-DS 

6150 PRINT : INPUT"Quant ia " r A: IF 
A-0THEN6170 

6160 IFA<0ORA>9999999ITHEN6150E 
LSEAH(M) -A 

6170 CAS-"":PRINT:INPUT"Categor 
ia -;CAS:IFCAS-""THEN6200 
6180 GOSUB1180 : I FF-0THEN61 70 
6190 CA(M) -NM 

6200 IFCA (M) OBTHENGT-GT+AM (M) 
6210 RETURN 

7000 CLS : LO CATE 10. 15: PRINT "Fim 



10 BEM ONEBR COTO 6000 

20 DIM TES (200) .QT (200) ,DT$ (20 

O) .CTS (8) ,CT(200) 

25 FOR N - 1 TO 7: READ KS : NE 

XT 

30 FOR H ■ 1 IO 8: READ CTS IN) 
: NEXT 

35 DATA ENTRAR DADOS. VER DADO 
S, GRAVAR EM DISCO . CARREGAR DO D 
ISCO, IMPRIMIR. ALTERAB UM DADO . F 
IM DE PROGRAMA 

40 DATA MANUTENÇÃO DA CASA , L 
AZER, ALUGUEIS E TAXAS , ROUPAS , AU 
TOMOVEL , FERIAS . MISCELÂNEA , BENDA 

S 

50 HOME : RESTORE : INVEHSE : 
VTAB 2: HTAB 7: PBINT "MENU 

PRINCIPAL" 
60 FOR N - 1 TO 7: READ KS 



70 HTAB 10: VTAB N * 2 + 4 : PR 
INT N ; " : - " ; KS 
80 NEXT 

90 VTAB 23: HTAB 20: PRINT " O 
PCAO -> " ; : GET AS 
100 IF AS < "1" OR AS > "7" T8 
EN 90 

110 PBINT AS;: NORMAL : HOME 
120 ON VAL (AS) GOSUB 1000,20 
00. 3O0O ,4000 , 5000. 6000 . 7000 
130 GOTO 50 

1000 IF NU > 200 THEN VTAB 15 
: HTAB 10: PRINT CHRS (7);"MEM 
ORIA CHEIA!"; CHRS (7): FOB N - 

1 TO 1000: NEXT : RETURN 
1010 GOSUB 1160 

1020 GOSUB 1250: INPUT "DATA ( 

DD/MM/AA) : ";DTS(NU) 

1030 IF DTS(NU) - "" THEN RET 

URN 

1040 IF LEN (DTS(NU)) > 8 THE 
N 1020 

1050 VTAB L: PRINT DTS (NU) 
1060 GOSUB 1250: INPUT "ITEM: 
";TES(NU): IF LEN (TES (NU) ) > 
25 THEN 1060 

1070 AS • LEFTS (TES (NU) , 15) : 
VTAB L: HTAB 17 - LEN (AS) / 2 
: PRINT AS 

1080 GOSUB 1250: INPUT "QUANTI 
A: ";QT(NU) 

1090 IF QT (NU) > 99999999 OR 0. 

T(NU> < 0 THEN 1080 

1100 VTAB L: HTAB 26: PRINT QT 

(NU) 

1110 GOSUB 1250: INPUT "CATEGO 
RIA: ";C3 

1120 DS - CS: GOSUB 9000: IF F 
• 0 THEN 1110 

1130 CT(NU) - NM: VTAB L: HTAB 
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38: PRINT LEFTS (CTS (CT (NU) ) , 3 

) i 

1140 IF C < > 8 THEN GT - GT 
+ QT (NU) 

1150 NU - NU .+ 1 :L - L + 1: IF 
L - 21 THEN 1000 
1155 GOTO 1020 

1160 L - 3: PRINT " data"; TAB 
( 15) item"; TAB í 26);"quantia 
" ; TAB ( 38) ; "cat"; 
1170 RETURN 

1250 HTAB li VTAB 23; CAL L - 
958: RETURN 

2000 HOME : FOR N - 1 TO 8 
2010 HTAB 10: VTAB 2 * N + 3 
2020 PRINT N;":- ";CTS(N): NEX 

T 

2030 TT - 0: HTAB 15: VTAB 23: 

PRINT "Qual categoria? "; 

2040 GET AS: IF AS < "1" OR AS 

> "8" THEN 2040 
2050 NH - VAL (AS) 
2060 IF PT - 1 THEN PRINT : P 
RINT CHRS <4):"PR»1": PRINT C 
HRS (9):*80N": PRINT SPC{ 40 - 
LEN (CTS(NM)) / 2);CTS(NM): P 
RINT : PRINT SPC( 10);" DATA" 
; SPC( 17);*ITEM"; SPC{ 18) "QUA 
NTIA" : PRINT CHRS (4) : "PRiO" 
2070 GOSUB 2280 
2080 FOR NN - 0 TO NU 
2090 IF CT (NN) < > NM THEN 21 
50 

2100 IF PT - 1 THEN PRINT : P 
RINT CHRS (4);"PR|1": PRINT C 
HRS <9);-60N";: PRINT SPC( 10) 
; DTS (NN) ; SPCI 5 + (8 - LEN (D 
TS(NN) ) ) ) ;TES (NN) ; SPC( 6+25 
- LEN (TES(NN))); SPC ( 7 - LE 
N ( STRS (QT (NN) ) ) ) ; QT (NN) : PRI 
NT CHRS (4) ; "PR#0" 
2110 VTAB L: HTAB 1: PRINT DTS 
(NN);:AS - LEFTS (TES (NN) , 20 ) : 
HTAB 10: PRINT AS;: HTAB 32 + 
(7 - LEN ( STRS (QT(NN)))): PH 
INT QT (NN) ; : TT - TT + QT (NN) 
2120 L - L + 1: IF (L - 2l AND 
NM < > 8) OR (L - 19 AND NM - 
8) THEN VTAB 23: HTAB 15: PRIN 
T "Scroll 7";: GET AS: GOSUB 22 
80 

2150 NEXT : IF PT - 1 AND NM < 
> 8 THEN PRINT : PRINT CHRS 
(4) ; "PRI1" : PRINT CHRS (9) ; "8 
0N" : PRINT : PRINT : PRINT SPC 
( 40) ; "TOTAL ->";TT: PRINT CHR 
S (4) ;*PRI0" 

2160 VTAB 23: HTAB 21: PRINT " 
TOTAL ->" ;TT; 

2170 IF NM < > 8 THEN 2250 
2180 IF PT - 0 THEN 2220 
2190 PRINT : PRINT CHRS (4) ; " 
PR*1": PRINT CHRS (9);"80N": P 
RINT : PRINT : PRINT SPC( 40); 
"RENDA TOTAL ->" ; SPC( 9 - LEN 

( STRS (TT)));TT: PRINT SPC ( 
36) ; "DESPESAS TOTAIS ->" ; SPC ( 
9 - LEN ( STRS (GT) ) ) ; GT 
2200 PRINT SPC( 54) ; " 

2210 PRINT SPC{ 44); "BALANÇO 
->"; SPC( 9 - LEN ( STRS (TT - 
MO GT)));TT - GT: PRINT CHRS (4) 



HTAB 16: PRINT 1 



HTAB 15: PRINT 1 
S ->";GT; 
HTAB 20: PRINT ' 



CHRS (13) THE 



; "PR|0" 

2220 VTAB 21 : 
RENDA TOTAL ■ 
2230 VTAB 22: 
DESPESAS TOTAIS 

2240 VTAB 23: 

BALANÇO ->";T' 

2250 GET AS 
2260 IF AS < 
N 2000 

2270 RETURN 

2280 HOME :L - 4: HTAB 20 - L 
EN (CTSINH)) / 2: PH INT CTS (NM) 
2290 PRINT " data"; TAB ( 18); 
"item"; TAB ( 32 ); "quant ia" ; 
2300 FOR N - 4 TO 21: VTAB N: 
HTAB 9: PRINT "!";: HTAB 31: PR 
INT "1"; : NEXT 
2310 RETURN 

3000 HOME : VTAB 15: HTAB 10: 
INPUT "Nome do arquivo7 ";DAS 
3010 IF DAS - "" THEN RETURN 
3020 PRINT : PRINT CHRS (4) i" 
OPEN" ;DAS 
3030 
DA3 
3040 



PRINT CHRS (4) 
PRINT CHRS (4) 



3050 PRINT CHRS (4) 



AS 



' DELETE" 



■OPEN" ; DA 



'WRITE" 



PRINT NU 
3070 FOR N - 0 TO NU - 1: PRIN 
TDTS(N); CHRS (13);TES(N); CHR 
S (13);QT(N); CHRS (13);CT(N): 
NEXT 

3080 PRINT CHRS (4) ; "CLOSE" 
RETURN 

4000 HOME : VTAB 15: HTAB 10: 
INPUT "Nome do arquivo? ";DAS 
4010 IF DAS - "* THEN RETURN 
4015 GT - 0 

4020 PRINT : PRINT CHRS (4):" 
OPEN" ; DAS 

4030 PRINT CHRS (4) ; "READ" ; DA 
S 

4040 INPUT NU 

4050 FOR N - 0 TO NU - 1 

4060 INPUT DTS (N) , TES !N) ,QT(N) 

,CT(N) 

4065 IF CT(N) < > 8 THEN GT - 

GT + QT (N) 
4070 NEXT 

4080 PRINT CHRS (4); "CLOSE" 
4090 RETURN 

5000 HOME : VTAB 15: HTAB 10: 
PRINT "Ligo a impressora? (S/N) 

5010 GET AS: IF AS < > "S" AN 

D AS < > "N" THEN 5010 

5020 PRINT : PRINT TAB ( 20);" 

OK!": IF AS - "N" THEN PT - 0 : 

RETURN 

5030 PT - 1 : RETURN 
6000 IF NU - 0 THEN RETURN 
6020 VTAB 20: PRINT : PRINT "P 
ressione (->) para avançar": PR 
INT "Pressione [<-] para retroc 
eder" : PRINT "Ou a barra de eap 
acos para corrigir";; GOTO 6080 
6030 GET AS 

6040 IF AS - CHRS (32) THEN 6 
100 

6050 IF AS - CHRS (21) AND M 



< NU - 1 THEN M - M + 1: GOTO 6 
080 

6060 IF AS - CHRS (6) AND M > 

0 THEN M - M - 1: GOTO 6080 
6070 GOTO 6030 

6080 VTAB 5: HTAB 1: CALL - 8 
68: PRINT "DATA: ";DTS(M) 
6090 VTAB 8: CALL - 868: PRIN 
T "ITEM: ":TES(M): VTAB 11 

: CALL - 868: PRINT "QUANTIA: 

" ; QT (M) : VTAB 14: CALL - 868 
: PRINT "CATEGORIA: ";CTS(CT(M) 
) 

6095 GOTO 6030 

6100 IF CT(M) < > 8 THEN GT - 

GT - QT (M) 
6110 FOR X - 1 TO 4 
6120 VTAB X * 3 + 2: HTAB 12; 
CALL - 868: INPUT " B ;DS 
6130 ON X GOTO 6200.6300,6400. 
6500 

6140 NEXT 

6150 IF CT(M) < > 8 THEN GT - 

GT + QT (M) 
6160 RETURN 

6200 IF DS - "" THEN DS - DTS( 
M) : GOTO 6600 

6210 IF LEN (DS) > 8 THEN 612 

0 

6220 DTS (M) " DS; NEXT 

6300 IF DS - "" THEN DS - TES ( 

M) : GOTO 6600 

6310 IF LEN (DS) > 25 THEN 61 
20 

6320 TES (M) - DS: NEXT 
6400 IF VAL (DS) - 0 THEN DS 
- STRS (QT (M) ) : GOTO 6600 
6410 IF VAL (DS) > 9999999 TH 
EN 6120 

6420 QT (M) - VAL (DS) : NEXT 
6500 IF DS - "" THEN DS - CTS ( 
CT (M) } : GOTO 6600 
65"10 GOSUB 9000: IF F - 0 THEN 
6120 

6520 CT(M) - NM: GOTO 6140 

6600 VTAB 3 * X + 2: HTAB 12: 

PRINT DS: NEXT : RETURN 

7000 VTAB 15: HTAB 8: PRINT "T 

ermino o programa? (S/N)"; 

7010 GET AS: IF AS < > "S" AN 

D AS < > "N" THEN -7010 

7020 IF AS - "N" THEN RETURN 

7030 END 

8000 IF PEEK (222) <. > 5 THE 
N RESUME 

8005 PRINT CHRS (4) ; "CLOSE" 
8010 PRINT CHRS (4) ; "DELETE* ; 
DAS 

B020 HOME ; VTAB 20: HTAB 10: 
FLASH : PRINT "ARQUIVO INEXISTE 
NTE ! " 

8030 FOR I - 1 TO 2000: NEXT : 

NORMAL 
8040 GOTO 50 

9000 IF VAL (DS) < > 0 THEN 
9030 

9010 F - 0: FOR N - 1 TO 8 
9020 IF LEFTS (DS.3) - LEFTS 

(CTS IN) ,3) THEN F - 1 : NM - N 
9025 NEXT : RETURN 
9030 IF VAL (DS) > B THEN F - 

0: RETURN 
9040 NM - VAL (DS):F - li RETU 
RN 
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■ 


USE COMANDOS ABREVIADOS 


■ 


COMO ECONOMIZAR MEMÓRIA 


■ 


COMANDOS MÚLTIPLOS 


■ 


COMO MELHORAR A 


VELOCIDADE DE UM PROGRAMA 



Programas mais curtos ocupam menores 
espaços na memória do computador, 
além de serem de execução mais rápida, 
Aprenda a trabalhar com eles, 
melhorando o desempenho do seu micro. 



Uma das regras básicas para se escre- 
ver um programa é torná-lo claro e le- 
gível, usando linhas curtas com comen- 
tários e espaços em branco e, se possí- 
vel, com nomes longos de variáveis. 

Evitar a digitação de muitos caracte- 
res é uma das exigências mais importan- 
tes quando se pretende, por exemplo, 
copiar a longa listagem de uma revista. 
Neste caso, não há necessidade de digi- 
tar todas as declarações REM do pro- 
grama. Afinal, sempre é possível con- 
sultar a revista mais uma vez, caso a fi- 
nalidade de alguma seção do programa 
tenha sido esquecida. 

Outra maneira de reduzir o trabalho 
de digitação na entrada de um progra- 
ma é omitir palavras -chaves opcionais 
do BASIC, embora nem todos os micros 
admitam esse tipo de omissão (é o caso 
do Sinclair). Mas em outros computa- 
dores você pode deixar de lado todos cft 
LET e THEN, que são declarações op- 
cionais, ou mesmo — como no caso de 
uma linha de programa que contenha 
IF...THEN GOTO... — omitir o THEN 
ou o GOTO (a eliminação de ambas as 
partes, porém, não é possível). 

Alguns micros permitem que se en- 
trem palavras- chaves de forma abrevia- 
da, como ? em vez de PRINT, e ' (após- 
trofo), para substituir REM, nos micros 
das linhas TRS-80 e TRS-Color. 

Quando o programa for listado ou 
impresso, as abreviações aparecerão por 
extenso (com exceção do apóstrofo). As- 
sim, embora isso poupe tempo de digi- 
tação, não leva a nenhuma economia de 
memória, e nem faz com que o seu pro- 
grama rode mais rápido. 




COMO ECONOMIZAR MEMÓRIA 



Outra razão para se encurtar um pro- 
grama é economizar espaço da memó- 
ria. Essa economia é decisiva em progra- 



mas muito longos. 

Uma das formas de economizar bytes 
extras é utilizar nomes de variáveis com 
uma letra apenas. Esse procedimento 
poupa não só tempo de digitação, co- 
mo também espaço de memória. Mas é 
sempre bom manter uma lista sobre o 
que faz cada variável, já que fica mais 
difícil usar códigos mnemónicos para 
variáveis com apenas uma letra. 

Outra maneira de se encurtar um [ 
grama é omitir espaços em branco 
tre comandos, variáveis e operadores. 
Isso não se aplica ao ZX-81 e ao Spec 
trum (nesses micros, os espaços apare- 
cem automaticamente). Em outros mi 
eros a omissão de espaços é uma med: 
da extrema, pois ela torna muito diffei 
a leitura do programa. Uma regra, con- 
tudo, deve ser sempre observada: você 
deve deixar um espaço entre uma variá- 
vel e o início de umapalavra-chave. As- 
sim, uma linha como essa: 

IF A - B AND B - C THEN PRINT 
■OK" 

pode se tornar mais curta desse modo: 
IFA-B ANDB-C THENPRINT"0K" 

Mas, se você escreveu: 



IF A-BAND B-C THENPRINT"0K" 

o computador pensará que existe uma 
variável chamada BANI), e, como ela 
não existe, poderá ocorrer um erro du- 
rante a execução do programa (ou, em 
alguns micros, uma mensagem de erro). 

Um terceiro modo de economizar 
memória consiste em combinar várias 
declarações em uma única linha. Na 
maioria dos computadores descritos 
aqui (linhas TRS-80, TRS-Color, MSX, 
Sinclair Spectrum, Apple II e TK-2000), 
o sinal de separação entre os comandos 
contidos em uma mesma linha é : (dois 
pontos). Apenas nos micros compatíveis 
com a linha ZX-81 isso não é possível. 
Mas esse recurso torna os programas 
mais difíceis de serem entendidos. 

A maioria dos métodos aqui indica- 
dos tende a acelerar ligeiramente a ve- 
locidade de execução de um programa. 
Outro truque para se nuclear a execu- 
ção de laços FÓR...NEXTÉ omitir a va- 
riável que vem após o NEXT (isso não 
é permitido em alguns micros). Se o pro- 
grama tiver vários laços aninhados, ter- 
minando na mesma linha, podemos co- 
locar um único NEXT; por exemplo: 
NEXT A, B, C (apenas certos micros 
aceitam esta sintaxe). 
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ABAIXO 
DE ZERO 



Diretamente relacionados com o 
funcionamento interno do 
computador, binários e hexadecimais 
apresentam problemas quando é 
preciso representar números negativos. 



Durante a programação em código de 
máquina, é comum nos depararmos 
com números negativos, como por 
exemplo quando, numa programação de 
jogos, somos levados a movimentar fi- 
guras em determinadas direçòes ao lon- 
go da tela. 

Como todos os outros, esses núme- 
ros devem ser codificados em bytes de 
oito bils, pois os computadores com uni- 
dades de memória desse tipo não con- 
tam com outros recursos para armaze- 
nagem de algarismos. Isto, porém, le- 
vanta um problema: como você já viu, 
um byte pode representar qualquer nú- 
mero de 0 a 255, ou 00000000 a 
1 1 1 1 1 1 1 1 , em binário. Mas isso esgota 
todas as possibilidades do binário de oi- 
to bits, já que não existe espaço para si- 
nais de mais ( + ) ou menos (-),e nenhu- 
ma maneira pela qual eles possam ser re- 
presentados nessa gama de valores. Em 
aritmética simples, se você subtrair I de 
0 obterá - 1 .Agora, tente o mesmo cál- 
culo em binário com oito bits: 

00000000 



11111111 

Esse resultado levará você, ao chegar 
ao oitavo bit à esquerda, a pedir "em- 
prestado" um do próximo lugar à es- 
querda; mas quando o número binário 
é limitado a oito bits não existe nada à 
esquerda a ser emprestado. Do mesmo 
modo, se você subtrair outro 1 (para ob- 
ter -2 em aritmética simples), obterá 
11111110. Mas se 1I1II11I em binário 
equivale a 255 em decimal, então 
11111110 deverá ser 254! 

Imagine agora, por exemplo, o que 
poderia acontecer em decimal se você 
não tivesse mais que três dígitos ou "co- 
lunas" para colocar seus números. Ve- 
ja o que acontece se você tentar acres- 
centar 999 a 100, quando tais limitações 
são impostas: 

100 

+ 999 
(1)099 

FO número um, na unidade de milhar, 



Em nossa aritmética de três dígitos, sim- 
plesmente não existe espaço para ele. 
Assim, o resultado dessa adição, em um 
sistema de três dígitos, será 99, que é 
exatamente o que você obterá se subtrair 
1 de 100! 

Do mesmo modo, em um sistema de- 
cimal de três dígitos, o resultado da so- 
ma de 998 mais 100 seria o mesmo da 
subtração de 100 menos 2. E subtrair 998 
de 100 seria o mesmo que adicionar 2. 

Recapitulando: a mesma série de al- 
garismos em um byte de oito bits pode 
representar um número negativo e um 
positivo. Qualquer operação torna-se 
confusa e difícil diante disso. 

O que você pode fazer em relação a 
isso? Bem, na maioria das aplicações em 
computadores domésticos, não há com 
que se preocupar: os endereços de memó- 
ria e códigos de operação, ambos repre- 
sentados em binário, serão sempre con- 
siderados positivos. As únicas vezes em 
que você encontrará números negativos 
serão com dados ou com os chamados 
saltos relativos, os quais são códigos de 
máquina aproximadamente equivalentes 
às declarações GOTO do BASIC. 



COMO "VIRAR" OS BITS 



O processo utilizado em binário pa- 
ra se obter, a partir de um número po- 
sitivo, o seu valor negativo, é conheci- 
do como complemento de 2. Na reali- 
dade, essa técnica não tem uma base teó- 
rica muito bem fundamentada; o impor- 
tante é que ela funciona. 

Para se obter o valor negativo de um 
número binário, é necessário "virar" os 
bits e acrescentar 1 . "Virar os bits" sig- 
nifica transformar os bits 1 em 0 e aque- 
les que têm valor 0, em 1. 

No programa seguinte mostramos co- 
mo isso funciona. Note que. quando o 
binário for limitado a oito dígitos, seu 
equivalente em hexadecimal preencherá 
exatamente dois dígitos. Isso significa 
que o hexadecimal equivalente ao com- 
plemento de 2 também atuará como o 
negativo. 

D 

10 CLS 



20 PRINT88 . "NÚMEROS NEGATIVOS"; 
30 PRINTê40,STRINGS(16,CHR${131 

>) i 

40 PRINTe65,"DEC"TAB(15)"BIN"TA 
B (26) "HEX" 

50 PRINTS226 . "+"TAB (29) "+" ; 

60 PRINT6361 . "COMPLEMENTO DE 2" 

70 PRINTe483 . "0 0 0 0 0 0 0 

0 0 00" i 

80 FOR J-1474 TO 1502:POKE J.13 
1 :NEXT 

90 FOR J-l TO 7 

100 FOR K-l TO 24 

110 POKE 1123 + K + 32M, 175 

120 NEXT K.J 

130 PRINT§1?4."BITS"; 

140 PRINTê 31 3 , " + 1" ; 

150 AT-AT AND 255 

160 T=AT: IF T-128 THEN SOUND 3 

0.2 

170 LN-3:GOSUB 280; GOSUB 310 
180 T-T+256*{T?127) :GOSUB 340 
190 T°255-T;LN-7:GOSUB 280 
200 T-T+1:T-T AND 255 : LN- 1 3 : GOS 
UB 280: GOSUB 310 
210 T-T+256* (T>128) :GOSUB 340 
220 INS'INK£YS:IF INS<>"B" AND" 
INSO" " AND INSOCHP.S (13) THEN 
220 

230 IF INS-"B~ THEN AT-AT"I;GOT 
0 ISO 

240 IF INS = " " THEN AT'AT+1 : GOT 
O 150 

250 PRINT 6384.;:INPUT AT 
260 PRINT #384. " " ; 

270 GOTO 150 
280 FOR X-0 TO 7 

290 IF-(T AND 2"X) THEN PRINT S 
LN*32+23-X*2+ (X>3) , " 1 " ; ELSE PRI 
NT @LN*32+23-X*2+<X>3) ."0"; 
300 NEXT : RETURN 

310 IF T<16 THEN A$-"0" ELSE AS 

320 PRINT eLN*32+29.AS+HEXS(T) ; 
330 RETURN 

340 PRINT ê32*LN.MID${* "+STR 
S(T) , LEN (STRS (T) ) ) ; 
350 RETURN 



10 PRINT AT 0.7; "NÚMEROS NEGA 
T1VOS" 

20 PRINT AT 2.1;"D£C";TAB 14: 
"BIN" ; TAB 28;"HEX" 
30 LET AS"" 

40 FOR N-7 TO 13 

50 PRINT AT N,6r INVERSE 1 ; AS 

60 NEXT N 

70 PRINT AT 8.14;"BIT5": 
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■ QUANDO SÃO NECESSÁRIOS 
NÚMEROS NEGATIVOS 

■ A CONVERSÃO DE NÚMEROS 

NEGATIVOS 

■ A CONVENÇÃO DO SINAL 




BRIGHT 1;AT 12,21;"+1" 

80 PRINT AT 1Q,3;"+";AT 10,30 

90 PRINT AT 15, 7; "COMPLEMENTO 
DE 2" 

95 LET C-0 
100 LET DD—C: DIM A[8) 
110 PRINT AT 4,0;" " ; AT 4,4 
-LEN STRS C;C 

115 POKE 23608, C: LET E-PEEK 

23608: LET Z-E: GOSUB 300: 

PRINT AT 4 . 29 ; AS 

120 PRINT AT 17.0;" " ; AT 17 

,4-LEN STRS DD ; DD 

130 LET D-128: LET CC-E 



140 FOR N-l TO 8: LET A[N)-0 
150 IF CC-D>=0 THEN LET A (N) ■ 
1 : LET CC-CC-D 

160 PRINT BRIGHT 1;AT 4.6+2'N 

; A (N) ; AT 1 0 , 6+2*N ; 1-A (N) 

170 LET D-D/2: NEXT N 

180 POKE 23608, DD: LET DD-PEEK 

2360B: LET D-128 

185 LET Z-DD: GOSUB 300; PRINT 

AT 17. 29; AS 

190 FOR N-l TO 8: LET B-0 : IF 
DD-D>-0 THEN LET B-l : LET DD- 

DD-D 

200 PRINT BRIGHT 1 : AT 17,6+2* 
N;B: LET D-D/2: NEXT N 



210 PRINT AT 18.0; " 

220 PRINT AT 19. 3; "0 0 0 0 
0 0 0 0 0 00' 
230 IF INKEYS-" " THEN GOTO 
230 

240 LET AS-INKEYS: IF AS- " " 
THEN LET C-C+l : IF C-128 THEN 

LET C--128: SOUND 1.1 
250 IF A$-"B" OR AS="b" THEN 
LET C-C-l: IF C--129 THEN LET 
C-127: SOUND 1,1 
260 IF AS<>" " AND AS<>"B" AND 
A$<>"b" THEN INPUT "?";C 
270 GOTO 100 



Illlllllll 
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COMO CONTAR EM COMPUTÊS 

Se quisermos contar qualquer coisa 
gm um computador, devemos começar 
sempre do zero e avançar dal para ci- 
ma. Por exemplo, as locações de me- 
aria são numeradas em hexadecirr 
de 0000 a FFFF. 

0 mesmo acontece com os bits em 
m bvte. Quando numeramos os b 
começamos a partir da direita, com o 
bit número 0, e aumentamos a conta- 
gem à medida que nos deslocamos pa- 
a a esquerda. 

Assim, o dígito binário da extrema 
direita é chamado de bit 0. O que está 
imediatamente à sua esquerda é cha- 
mado de bit 1 , o seguinte de bit 2 e as- 
sim por diante, até o bit 7 — aquele que 
está na extrema esquerda de um byte. 
Assim como em politica, os termos 
â direita" e "à esquerda" podem, em 
ertos casos, parecer um pouco con- 
fusos, especialmente quando lidamos 
com números de dois bytes que podem 
ser armazenados de cima para baixo, 
ou de baixo para cima, dependendo de 
como o computador opera. 

Em "computês" correto (ou seja, na 
linguagem universal dos computado- 
res), esses números são chamados de 
valor mais significativo — isto e, com 
o endereço mais alto — e valor menos 

Dessa forma, se você estiver arma- 
zenando um endereço — 3D8E, por 
exemplo — 3D é o byte mais signifi- 
cativo, enquanto 8E é o byte menos 
significativo. 

Os computadores das linhas £ 
lair, TRS-80 e MSX colocam o byte 
lenoroul menos significativo - 8E,no 
exemplo acima — na locação de me- 
-lória mais baixa. O byte alto, que va- 
l 100 em hexa (ou 256 em decimal), 
3D neste caso, é colocado com o en- 
dereço mais alto na locação de memó- 
ria (isto é, o endereço de memória que 
recebeu 8E, mais f|. 

Existe uma única exceção para es- 
a convenção de baixo/alto: os núme- 
os da linha BASIC são armazenados 
em forma inversa. 

O TRS-Color, por sua vez, arma 
a todos os números de dois bytes na 
locação de memória mais baixa com o 
byte alto, e armazena o byte baixo na 
locação de memória mais alta. 

A mesma terminologia se aplica aos 
bits. O bit mais significativo no núme- 
o binário 01010101, o bit 7, é O, e o 
bit menos significativo, o bit 0, é o 1 . 



300 LET ZA-INT (Z/16) : LET 2B- 
Z-U6*ZA) 

310 LET ZA-ZA+48: IF 2A>57 

THEN LET ZA-ZA+7 

320 LET ZB-ZB+48: IF ZB>57 

THEN LET ZB-ZB+7 

330 LET AS-CHRS ZA: LET AS-AS+ 

CHRS ZB: RETURN 



10 PHINT AT 0,7; "NÚMEROS NEGAT 
IV0S" 

20 PRINT AT 21,1;"DEC";TAB 14; 
"BIN" ; TAB 28 ; "HEX" 
30 LET AS"" 

40 FOR N-7 TO 13 
50 PRINT AT N,6;AS 
60 NEXT N 

70 PRINT AT 8.14;"BITS";AT 12, 



80 PRINT AT 10,3; 



; AT 10.30; 



90 PRINT AT 15,8; "COMPLEMENTO 
DE 2" 

95 LET C-0 
100 LET DD— C 
105 DIM A(8) 

110 PRINT AT 4,0;" " ; AT 4.4- 
LEN STRS C;C 

115 POKE 16507, C 

116 LET E-PEEK 16507 

117 LET Z-E 

118 GOSUB 300 

119 PRINT AT 4,29;AS 

120 PRINT AT 17,0;" " ; AT 17, 
4-LEN STRS DD ; DD 

130 LET D-128 
135 LET CC-E 
140 FOR N-l TO 6 
145 LET A (N) -0 

150 IF CC-D>-0 THEN LET A(N)-1 
155 IF CC-D>-0 THEN LET CC-CC-D 
160 PRINT AT 4 , 6+2*N ; A (N) ; AT 10 
,6+2*N;l-A(N) 
170 LET D-D/2 
175 NEXT N 

180 POKE 16507, DD 

181 LET DD-PEEK 16507 

182 LET D-128 

185 LET Z-DD 

186 GOSUB 300 

187 PRINT AT 17,29;AS 

190 FOR N-l TO 8 

191 LET B-0 

192 IF DD-D>-0 THEN LET 8=1 

193 IF DD-D>-0 THEN LET DD~DD'D 
200 PRINT AT 17,6+2*N;B 

205 LET D-D/2 
20 7 NEXT N 

210 PRINT AT 18,0;" 

220 PRINT AT 1 9 , 3 ; " 0 0 0 0 0 

0 0 0 0 00" 

230 IF INKEYS-"" THEN GOTO 230 

240 LET AS=INKEYS 

242 IF AS-"F" THEN LET C-C-+1 

244 IF AS-"F" AND C-128 THEN 

LET C-128 

250 IF AS-"B" THEN LET C-C-l 
255 IF AS-"B" AND C — 129 THEN 



LET C-127 

260 IF AS<>"F" AND AS<>"B" THEN 

INPUT C 

2 70 GOTO 100 

300 LET ZA-INT (Z/16) 

305 LET ZB-Z- (16*ZA) 

310 LET ZA-ZA+28 

320 LET ZB-ZB+28 

330 LET AS-CHRS ZA 

340 LET AS=AS+CHRS ZB 

350 RETURN 



10 SCREEN 1 : KEY OFF 

14 VPOKE BASE (6) +27, 166 

20 LOCATE 6.0:PRINT "Números ne 

gativos" ; 

30 LOCATE 6,1: PRINT STRINGS (17, 
223) i 

40 LOCATE 3,3:PRINT "DEC";TAB(1 

3) ;"BIN";TAB(24) ; "HEX" ; 

50 LOCATE 1,10: PRINT "+";TAB<27 

);"+"; 

60 LOCATE 6,17:PRINT "Compl emen 
to de 2"; 

70 LOCATE 0,21: PRINT " 0 0 0 

0 0 0 0 0 0 00 " ; 
80 FOR J-2 TO 30 
84 VPOKE BASE(5)+J+19*32.223 
88 NEXT 

90 FOR J-l TO 7 

100 FOR K-l TO 24 

110 VPOKE BASE(51+195+K+32»J,21 

9 

120 NEXT K,J 

130 LOCATE 12.11:PRINT "BITS"; 
140 LOCATE 23,12:PRINT "+1" 
150 AT-AT AND 255 
160 T-AT 

165 IF T-128 THEN SOUND 7,56:SO 

UND 8,15:SOUND l,l:FORI-l TO 50 

: NEXT: SOUND 8,0 

170 LN-3:GOSUB 280 

175 GOSUB 310 

180 T-T+2S6*(T>127) 

185 GOSUB 340 

190 T-255-T:LN-7;GOSUB 280 
200 T-T+1:T-T AND 255:LN-13 
205 GOSUB 280:GOSUB 310 
210 T-T+256*(T>128) 
215 GOSUB 340 

220 INS-INKEYS: IF INSO"B" AND 
INS<>" " AND INSOCHRSC13) THEN 
220 

230 IF INS-"B" THEN AT-AT-1 :G0T 
O 150 

240 IF INS-" " THEN AT-AT+1 : GOT 

O 150 

250 LOCATE 0,20: INPUT AT 

260 LOCATE 0,20: PRINT " "; 

270 GOTO 150 

280 FOR X-0 TO 7 

290 IF -<T AND 2"X) THEN VPOKE 

BASE (5)+LN*32+87-X*2+ !X>3) ,ASC( 

"1") ELSE VPOKE BASE<5)+LN"32*8 

7-X*2+(X>3) ,ASC("0") 

300 NEXT: RETURN 

310 IF T<16 THEN AS-"0" ELSE AS 
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330 RETURN 

340 LOCATE 0,LN+2:PRINT MIDS(" 

"+STHSÍT) , LEK (STRS (T) ) ) ; 
350 RETURN 

Um número binário ou hexadecimal 
pode, na maior parte das vezes, atuar 
perfeitameme bem, seja ele um número 
positivo ou negativo. Mas, às vezes, vo- 
cê precisa saber se um número é positi- 
vo ou negativo. 

Quando se quer que um programa dê 
um salto, em código de máquina, é pre- 
ciso especificar quantos bytes deve ter 
o salto a ser dado pelo computador: com 
um número positivo, no caso do salto 
para a frente; com um número negati- 
vo, para saltar para trás. 

O que o computador faz è olhar pa- 
ra o primeiro bit do número binário e 
decidir se o número é negativo ou posi- 
tivo. Se o primeiro bit for 1, o compu- 
tador o tomará como negativo. Se for 
0, ele será considerado como positivo. 

Conhecido como convenção de sinal 
esse processo indica que, ao invés de to- 
mar números binários de oito bits para 



Na convenção de sinal, o número 128 
(ou I0Ô000OO, em binário) atua como seu 
próprio negativo e o computador recomeça 
a contar de forma ascendente. 



representar a série de 0 a 255, o compu- 
tador a trata como - 128 a + 127. 

No programa de conversão de com- 
plemento de 2, você notará que o com- 
putador se atrapalha quando chega ao 
128. Isso se deve a que o 128, ou seja, 
10000000 em binário, ou 80 em hexa, 
atua como o seu próprio negativo (você 
pode verificar por si mesmo: -10000000 
+ 10000000 - (1)00000000 ou 0 em bi- 
nário de oito bits, do mesmo modo que 
80 + 80 = {1)00 ou 0 em hexa de dois 
dígitos. E 128 - 128 = 0 em decimal). 

Portanto, qual deles é positivo ou ne- 
gativo? O 10000000 tem o I em seu pri- 
meiro bit; o computador o trata como 
um número negativo: - 128. Por outro la- 
do, o 0 — ou 00000000 — tem o 0 em 
seu primeiro bit; desse modo, o compu- 
tador o trata como positivo. 




O BCD é empregado para imprimir 
números na tela, ou transmiti-los rapi- 
damente. Para codificar um decimal de 
dois dígitos em um byte em binário, i 
locamos o digito à direita nos últimos 
quatro bits significativos (um " meio 
byte") e o digito à esquerda dentro 6o 
meio byte mais significativo. 

Existem dezesseis dígitos que po- 
dem ser codificados em quatro bits bi- 
nários. O BCD é um número hexadeci- 
mal sem as letras A, B, C, D, E e F. 0 
único problema surge quando obtemos 
um número maior que 9 em um c - 
meios bytes. 
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©TOEM E LIMPEZA 



■ 


COMO UTILIZAR TAB COM 


PRINT 


■ 


SINAIS DE PONTUAÇÃO 


■ 


COMO MELHORAR A EXIBIÇÃO 


EM TELA 



Listas, tabelas e instruções são mais 
compreensíveis quando distribuídas 
pelo vídeo de forma clara e ordenada. 
Use comandos do BASIC para isso. 



Existem muitas maneiras de se dispor 
textos na tela. Mas é importante orga- 
nizar bem a exibição, especialmente se 
você está escrevendo um programa que 
outras pessoas utilizarão. 

Cada computador possui uma manei- 
ra própria de posicionar o texto na te- 
la. Algumas funções de posicionamen- 
to são padronizadas para todas as va- 
riantes do BASIC, independentemente 
da marca do computador (exemplo: a 
função TAB e os sinais de pontuação — 
vírgulas e pontos e vírgulas — utilizados 
para separar os elementos de uma decla- 



ração PRINT). Entretanto, há outros 
comandos (associados ou não ao 
PRINT) destinados a posicionar o cur- 
sor na tela por meio do endereçamento 
por linhas e colunas e que variam ampla- 
mente entre os diversos computadores: 

Comando Microcomputador 

PRINT AT Sinclair 

PRINT @ TRS 

LOCATE MSX 

HTAB e VTAB Apple 



PRINT -BOM DIA" 

imprimirá a mensagem na próxima linha 
em branco, a partir da margem esquer- 
da da tela. 



Entretanto, existem meios para dizer 
ao computador como imprimir a men- 
sagem em uma posição diferente: 
PRINT TAB(20)"BOA TARDE" 

A função TAB é usada em conjunto 
com um PRINT. O número entre parên- 
teses especifica a coluna a partir da qual 
o texto (ou número) que se segue será 
impresso. Pode-se colocar também uma 
expressão numérica ou uma variável. 

O resultado da expressão numérica ou 
o número colocado como parâmetro po- 
dem ser fracionários, mas o computador 
usará apenas a sua parte inteira (por 
exemplo, TAB (23, 2197) será aproxima- 
do para 23). O número resultante deve 
ficar entre 0 e o número máximo de co- 
lunas por linha do computador. É pos- 
sível também posicionar cada palavra se- 
paradamente. Modifique a linha para: 




PRINT TAB(20) "BOA" TAB{30)" 
TARDE" 

A primeira palavra é impressa a par- 
tir da coluna 20, e a segunda, a partir 
da coluna 30 (TAB negativo não funcio- 
na, ou seja, não se pode recuar posições 
na linha de impressão). 

Não existe espaço em branco entre a 
palavra-chave TAB e o primeiro parên- 
tese. Alguns micros exigem ponto e 
vírgula entre o TAB e o elemento que 
o segue: 



SINAIS DE PONTUAÇÃO 



A função TAB indica a coluna, nu- 
ma linha de impressão na tela, a partir 
da qual o texto será exibido. 

O comando PRINT emprega virgula 
e ponto e vírgula (e também apóstrofo, 
na linha Sinclair Spectrum), para deter- 
minar o espaço entre os elementos a se- 
rem impressos. 

Quando dois elementos de uma linha 
PRINT são separados por um ponto e 
vírgula, o computador não concede es- 
paço entre eles e: 
PRINT "TOCA" ; "DISCOS" 



imprimirá 1 OCADISí ( )S. sem separa- 
ção. Se os elementos de PRINT forem nú- 
meros, e não cordões alfanuméricos, o 
resultado dependerá do tipo de micro. 
Alguns colocarão um espaço em bran- 
co antes do número a ser impresso. 
Assim, 

PRINT "SOMA"; 25 

mostrará o resultado: SOMA 25. 

No Sinclair, entretanto, o resultado 
dessa instrução seria: SOMA25. 

A vírgula funciona como a função 
TAB. A cada vírgula encontrada, o pro- 
grama coloca a próxima informação a 
ser impressa numa posição distante dez 
colunas (ou dezesseis, no Sinclair) à di- 
reita da última posição inicial. Assim, 
PRINT "TOCA", "DISCOS" 
produzirá: 
TOCA DISCOS. 

Em muitos casos, especialmente 
quando há colunas de números ou de 
palavras, a informação pode ser posicio- 
nada muito mais facilmente e com mui- 
to menos esforço de sua parte, exigin- 
do o emprego da função TAB apenas de 
vez em quando. Digite e execute as li- 
nhas a seguir, para ter uma ideia de co- 
mo isso funciona: 



10 PRINT "01234567090123456679 
901234567390" 
20 PRINT 9:9 
30 PRINT 9,9 

A linha 10 numera as colunas no to- 
po da tela. Uma vírgula separa os nú- 
meros em "campos", cada um com dez 
colunas de extensão (dezesseis, no Sin- 
clair). Agora tente o mesmo programa 
com textos (isto é, cordões alfanuméri- 
cos), acrescentando essas linhas: 

40 LET A3-"A" 
50 PRINT AS:AS 
60 PRINT AS. AS 

Normalmente, costumamos alinhar 
palavras à esquerda e números à direi- 
ta, mas os computadores descritos aqui 
não fazem isto automaticamente. 

O ponto e vírgula é essencial para 
que a função TAB funcione corretamen- 
te, pois uma vírgula após um TAB pro- 
vocará o deslocamento para uma nova 
posição de tabulação. O ponto e virgula 
também é útil no final de uma declara- 
ção PRINT. Sua função, neste caso, é 
manter o cursor de impressão na tela, 
na última posição impressa, de tal for- 
ma que o próximo comando PRINT en- 
contrado pelo programa comece a im- 
primir nessa posição, sem mudar de li- 
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nha na tela. O programa a seguir impri- 
me todo o alfabeto utilizando um laço 
FOR...NEXT para incrementar de um 
em um os códigos ASCII para os carac- 
teres de A a Z. 

20 FOR C-65 TO 90 
30 PRINT CHR5(C) ; 
40 NEXT C 

(Para micros da linha Sinclair ZX-S 1 , 
substitua a linha 20 por FOR C = 38 TO 
63, pois eles usam um código diferente 
do ASCII.) Se você não colocar o pon- 
to e vírgula ao final da linha 30, cada 
letra será impressa em uma linha sepa- 
rada. Os sinais de pontuação e o TAB 
oferecem tantas maneiras de se exibir 
textos na tela que você encontrará cer- 
tamente combinações adequadas aos 
seus próprios programas. 




As linhas Sinclair contam com três 
declarações para posicionamento de tex- 
tos na tela: PRINT, PRINT AT e 
PRINT TAB. A declaração PRINT so 
zinha imprime uma linha em branco (ve- 
ja mais adiante). 

A tela do Sinclair tem 22 linhas, nu- 
meradas de 0 a 21 , a partir do topo da 
tela. Cada linha, por sua vez, tem 32 
"colunas", ou posições, para os carac- 
teres, numerados de 0 a 31, a partir da 
margem esquerda da tela. O comando 
PRINT AT indica onde o texto a ser im- 



presso vai começar: os números (ou ex- 
pressões) que seguem AT indicam a li- 
nha e a coluna; as linhas: 

PRINT AT 0,0,"*" 
PRINT AT 21,0,**" 
PRINT AT 0,31,"»" 
PRINT AT 21,31,"*" 

imprimirão um asterisco em cada canto 
do vídeo. Se você quiser imprimir mais 
de um caractere em uma locação da te- 
la, o computador imprimirá o primeiro 
caractere onde você determinar e o res- 
tante nas demais posições da mesma 
linha. 

PRINT AT 10,12;"COMPRIMENTO" 

coloca o "C" na linha 10, coluna 12, e 
as outras letras em 10,13 , 10,14.... etc, 
até 10,17. 

Outro recurso interessante do PRINT 
AT é que uma linha PRINT pode con- 
ter vários AT, separados por pontos e 
vírgulas. Por exemplo, a linha osada pa- 
ra imprimir quatro asteriscos poderia ser 
assim: 

PRINT AT 0,0,"*"; AT 21,0,"*"; 
AT 0,31,"*"; AT 21,31."*" 

PRINT TAB 

No Sinclair, a instrução PRINT TAB 
funciona, em muitos casos, do mesmo 
modo que PRINT AT. Contudo, exis- 
tem duas diferenças: não é preciso es- 
pecificar a linha; e não se pode utilizar 



o PRINT TAB para escrever (nem para 
apagar) por cima de qualquer material 
na tela. Se você entrar um novo PRINT 
TAB na antiga posição, a impressão se- 
rá realizada em uma linha abaixo da an- 
terior. Agora, digite: 

PRINT AT 0,15;"** 
PRINT AT 0,15;"?" 

Limpe a tela (CLS) e tente isso: 
PRINT TAB 15;"*"; 
PRINT TAB 15;"?": 

Comparado com o PRINT AT, o 
PRINT TAB economiza trabalho de di- 
gitação e isenta o operador da tarefa de 
lembrar-se dos números de linhas à me- 
dida que vai prosseguindo. 

O programa a seguir permite que vo- 
cê digite as notas dos alunos de uma 
classe e as disponha ordenadamente na 
tela, usando uma série de funções TAB; 
além disso, ele calcula a média das no- 
tas (digite tudo em letras maiúsculas, pa- 
ra micros da linha ZX-81): 
10 PRINT "NOME" ; TAB 12;"PROVA" 
; TAB 18 ; "ORAL" ; TAB 23;"EXAME"; 
TAB 29; "MED" 

20 PRINT AT 20,0;"Nonie ?" 
30 INPUT nS 

35 PRINT AT 20,0;"Prova?" 
40 INPUT np 

45 PRINT AT 20,0: "Oral ?" 
50 INPUT no 

55 PRINT AT 20 , 0 ; "Exame?" 
60 INPUT ne 

70 LET m={<np+no*2>/3+ne>/2 

80 PRINT N$ ; TAB 14:np; TAB 19; 

no; TAB 24 ; ne ; TAB 29; m 

90 PRINT 

100 PAUSE 200 

110 GOTO 20 

As linhas PRINT, usadas para pedir 
os dados iniciais de cada aluno, são po- 
sicionadas com o AT na penúltima linha 
da tela. 

Ao ser rodado pela primeira vez, o 
programa limpa a tela e coloca na pri- 
meira linha as identificações correspon- 
dentes às colunas de dados. Em segui- 
da ele perguntará: "NOME?". Digite o 
nome do aluno. Depois, perguntará su- 
cessivamente as notas da prova, do exa- 
me oral e do exame final. Entre núme- 
ros inteiros ou, no máximo, com uma 
decimal. Em seguida o programa mos- 
trará esses dados de entrada, juntamente 
com a média. Adicione as linhas: 

75 LET M-INT (K*10) /10 

76 LET N$-NS(TO 13) 

O primeiro problema é que a média cal- 
culada pela última parte dá linha 80 pode 
conter muitas casas decimais. Isto é resolvi- 
do pela linha 75, por meio de uma opera- 
ção de arredondamento do resultado: mul- 
tiplicamos a média (M) por 10, tomamos o 
valor inteiro do resultado e o dividimos por 




um 
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10. Vejamos a média 7,654321: multiplica- 
da por 10, ficaria 76,54321; seu inteiro é 76 
que, dividido por 10, é 7,6. 

Outro problema é que a primeira no- 
ta (NP) será mostrada na tela a partir 
da coluna 14. Isto quer dizer que o no- 
me do aluno não deve ter mais do que 
treze caracteres. A função TO na linha 
77 "amputa" o nome do aluno de mo- 
do a caber nesse espaço. Para interrom- 
per o programa sem limpar a tela, pres- 
sione <CAPS SHIFT> junto com 
< BREAK > (no ZX-8 1 , pressione ape- 
nas <BREAK>). A linha 100 lhe dará 
tempo de fazer isso. 

O programa abaixo oferece o esbo- 
ço de uma contabilidade doméstica: 

10 PRINT "NOME" ;TAB 10 ; "ITEM* ; 

TAB 26; "PREÇO"; 

15 LET total^O 

20 FOR I-l TO S 

35 PRINT AT 20,0; "Data ?" 

40 INPUT dS 

45 PRINT AT 20,0: "Item ? n 
50 INPUT iS 

55 PRINT AT 20 . 0 ; "Preço?" 
60 INPUT p 

70 LET total=total+p 

80 PRINT dSiTAB 10;iS;TAB 26;i 

90 PRINT 

100 NEXT I 

110 PRINT TAB 26 ; " " 

120 PRINT TAB 10 ; "TOTAL" : TAB 
26; total 

Use corretamente a pontuação, com 
a declaração PRINT TAB. Normalmen- 
te, dois pontos e vírgulas são utilizados 
após PRINT TAB: 
10 FOR n-1 TO 21 
20 FOR t-0 TO 24 STEP 6 
30 PRINT TAB t;n; 
40 NEXT t 
50 NEXT li 

Quando tiver rodado o programa, 
modifique a linha 30 para: 



Veja como usar um ponto e virgula para 
preencher a tela com uma mensagem 
(exemplo rodado no Spectrum). 




Os apóstrofos instruem o computador a colocar o ilem seguinte em uma nova linl 

quando a máquina estiver impossibilitada de fazer isso automaticamente. 

Nem todos os computadores, entretanto, contam com esse recurso de pontuação. 



30 PRINT TAB t.n; 

... e então compare-a com essa: 

30 PRINT TAB t;n 

Um ponto e vírgula significa: 
"Aproxime bem a próxima palavra, sem 
nenhum espaço"; uma vírgula significa: 
"Comece a próxima palavra no início 
da coluna 0 ou da coluna 15"; uma de- 
claração PRINT TAB precisa sempre de 
dois pontos e vírgulas (do contrário, a 
desordem se instalará na tela). 
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A maneira mais fácil de exibir uma 
mensagem na tela é: 

PRINT "OLA" 

Se PRINT "OLA" estiver na última 
linha da tela, esta rolará para cima, de 
modo a dar espaço à mensagem (não se 
esqueça de digitar as aspas). Limpe a te- 
la antes e tudo ficará claro: 



Agora "OLA" aparece no topo à es- 
querda. Acrescente essa linha e rode o 
programa: 

30 PRINT "ADEUS" 

"ADEUS" aparecerá abaixo de 
"OLA". Se quiser uma linha branca en- 
tre "OLA" e "ADEUS", acrescente: 



Agora você já sabe como suas men- 
sagens são organizadas verticalmente na 
tela, mas ainda não sabe como elas apa- 
recerão em cada linha. Suponha que vo- 
cê queira exibir "OLA" no meio da li- 
nha. O micro tem uma função (TAB) 
que coloca a mensagem no ponto da li- 
nha que você quiser. Acrescente essa li- 
nha e rode o programa: 

40 PRINT TAB(15);"BOA TARDE!" 

Os espaços em cada linha são nume- 
rados de 0 a 31 no TRS-Color, e de 0 
a 63 no TRS-80. Então, a mensagem na 
linha 40 começará no espaço número 15. 
Não deixe espaço entre TAB e o parên- 
tese, no TRS-Color; senão, (1 5) será tra- 
tado como variável e TAB não funcio- 
nará. Veja como TAB calcula o quadra- 
do, o cubo, a raiz quadrada e o inverso 
dos números de 1 a 12: 
10 CLS 

20 PRINT "NUMERO" ; TAB (6) ; "CUBO" 
:TAB{14) ;-QUAD.";TAB(21) ; "RAIZ" 
;TAB{27) ; "INVER" 
30 FOR J-l TO 12 

40 PRINT TAB ( 1 ) ; J ; TAB (7) ; J* J* J ; 
TAB(13) ;J*J:TAB(20) ; INT (SQR ( J) " 
10001/1000; TAB (26) ; INT ( 1000/ J) / 
1000 

50 NEXT J 

Um problema que deve ser resolvido 
neste programa, com um pouco de arit- 
mética elementar, é que a raiz quadra- 
da e o inverso do número J, calculados 
pela última parte da linha 40, podem ter 
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muitas casas decimais. Isso é resolvido 
por meio de uma operação de arredon- 
damento do resultado para conter ape- 
nas uma casa decimal: multiplicamos a 
raiz quadrada por 1000, tomamos o va- 
lor inteiro do resultado, e o dividimos 
por 1000. Vejamos, por exemplo, a raiz 
7,654321: multiplicada por 1000 ficaria 
7654,321; seu inteiro é 7654 que, divi- 
dido por 1000, ficaria 7,654. Se você 
quiser imprimir em um lugar específico 
na tela deve utilizar PRINT® ("PRINT 
arroba") em vez de PRINT TAB. 



10 CLS 

20 PBINT §461 , "BAIXO" 
30 PRINT 67 7 , "ALTO" 
40 PBINT §25 7 , "ESQUERDA" 
50 PRINT §280 , "DIREITA" 



10 CLS 

20 PBINT §925. "BAIXO" 
30 PRINT §30, "ALTO" 
40 PRINT §448, "ESQUERDA" 
50 PRINT §502 , "DIREITA" 

Os números após PRINT® se refe- 
rem as locações de tela (numeradas da 
esquerda para a direita, no TRS). O 
TRS-80 tem posições numeradas de 0 a 
1023, e o TRS-Color (32 colunas) de 0 
a 5 1 1 . Eis um programa que calcula as 
notas dos alunos de uma classe: 



PROVA" 



5 CLS 
10 PRINT "NOME" 
;TAB(18) ;'0RAL" 
"EXAME" ;TAB{29) 
20 PRINT §448 
30 INPUT NS 
35 PRINT §448 , "PROVA" 
40 INPUT NP 
45 PRINT §448, "ORAL " 
50 INPUT NO 
55 PRINT §448 . "EXAME" : 
60 INPUT NE 

70 LET M= ( (NP+NO*2) /3+NE) /2 
80 PRINT NS:TAB(14) ;NP;TAB{19) ; 
NO: TABI24) ;NE;TAB[29) ;M 
90 PRINT 

100 FOR 1=1 TO 400:NEXT I 
110 GOTO 20 



TAB (12) ; ' 

TAB (23) 
"MED" 
NOME 



5 CLS 
10 PBINT "NOME" 
; TAB ( 1 B ) ;"ORAL" 
"EXAME" : TAB (29] 
20 PRINT §896, "NOME 
| 30 INPUT NS 
35 PRINT §896 , "PROVA 



TAB (12) ; "PROVA" 

TAB (23); 
"MED" 




Um outro exemplo de tela mostra a 
attiação do apóstrofo em uma 
linha de programa para o Spectrum: 



40 INPUT NP 

45 PRINT §896, "ORAL " ; 

50 INPUT NO 

55 PRINT §896 , " EXAME" ; 

60 INPUT NE 

70 LET M= [ (NP+NO*2) /3+NE) /2 
80 PBINT N3;TAB(14) ;NP;TAB(19) ; 
NO; TAB(24) ;NE;TAB(29) ;M 
90 PRINT 

100 FOR 1=1 TO 400:NEXT I 
110 GOTO 20 

A linha 20 exibe os cabeçalhos das 
colunas. As linhas 40 a 70 limpam uma 
linha da leia e perguntam pelos dados 
necessários (PRINT@ posiciona a linha 
que pede a informação na penúltima li- 
nha da teia). A linha 80 tabula as infor- 
mações, e a 90 calcula a média. A va- 
riável PA faz a máquina checar se a te- 
la foi preenchida. 



As vírgulas e os pontos e vírgulas 
controlam a posição do cursor. Agora 
digite: 
10 CLS 

20 PRINT-0 CURSOR RETORNARA" 
30 PRINT "SEM O PONTO- E-VIRGULA" 
40 PRINT"MAS COM O PONTO-E- 
VIBGULA "; 

50 PRINT" ACONTECE ISTO" 

Um ponto e vírgula ao final de uma 
linha PRINT obriga o cursor a perma- 
necer onde estava quando terminou de 
imprimir. Acrescente essas linhas: 

60 P R I NT " E QUE TAL". 
70 PRINT"USAR", 
80 PRINT"VIRGULAS-, 
90 PRINT"?" 

No TRS-Color: uma vírgula no fim 
de um PRINT faz o cursor saltar para 
a outra metade da tela. TRS-80: cada 



vírgula encontrada tabula para a próxi- 
ma posição). 



Os controles de cursor (declaração 
LOCATE), a função TAB e o coman- 
do PRINT com sinais de pontuação ser- 
vem para melhorar a aparência das exi- 
bições na (ela do MSX. A maneira mais 
Fácil de mostrar uma mensagem é: 

PBINT "BOM DIA!" 

O "BOM DIA" aparecerá à esquerda 
da tela na próxima linha disponível. Se 
PRINT "BOM DIA" estiver na última 
linha da tela, esta rolará para cima, de 
modo a dar espaço à mensagem. Não se 
esqueça de digitar as aspas, ou obterá 
uma mensagem de erro. O resultado do 
comando acima ficará mais claro se vo- 
cê limpar a tela antes: 



De todas as instruções de posiciona- 
mento do cursor, a função TAB é, cer- 
tamente, a mais utilizada. Ela se com- 
porta, na tela, como o recurso de tabu- 
lação das máquinas de escrever, posicio- 
nando o cursor alguns espaços a partir 
da borda esquerda da área de texto da 
tela. Sua forma pode ser: 

30 PRINTTAB (15) "BOA TARDE!" 

Você pode colocar, se quiser, um 
ponto e vírgula depois do parêntese, 
mas isso não é necessário. Não deve 
existir espaço entre TAB e seu argumen- 
to entre parênteses, cujo valor está no 
ponto inicial do cordão impresso. 

Funções TAB múltiplas podem ser 
utilizadas para posicionar várias obser- 
vações em cada linha da (ela. 



Neste caso, B é impresso na coluna 
10, e T, na 20 (o valor do argumento 
sempre se refere à distancia da borda es- 
querda da área de texto). 

TAB é a abreviação de "tabular". 
Veja no programa a seguir como essa 
função pode ser útil (ela calcula o qua- 
drado, o cubo, a raiz quadrada e o in- 
verso dos números de 1 a 12): 

10 CLS 

20 PRINT" NUMERO "TAB (10) "QUADRAD 
O"TAB(20)"CUB0"TAB{30)"4O POT" 
30 FORJ-1TO20 

40 PRINTJ;TAB(10)J*J;TAB(20) J*J 
*J;TAB(30) J*J*J*J 
50 NEXT 



um 
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Ao rodar o programa, você verá uma 
tabela de números sendo montada. To- 
da vez que o programa passar pelo la- 
ço, uma outra linha de números será exi- 
bida na tela (TAB permite colocar cada 
número na coluna correta). 



POSICIONE 0 CURSOR 



Suponhamos que você queira impri- 
mir em um lugar específico na tela, e 
não apenas na próxima linha disponível. 
Neste caso. PRINT TAB não é o mais 
indicado: use LOCATE. 

No MSX LOCATE pode ser usada 
para controlar o posicionamento do cur- 
sor em quaiquer ponto da tela, como 
ocorre com os comandos PRINT AT, 
PRINT® e HTAB/VTAB de outras 
máquinas. Tente o programa abaixo: 

10 CLS 

15 LOCATE 14,23 
20 PRINT-SUL- 
25 LOCATE 12.1 
30 PRINT"NORTE" 
35 LOCATE 0,12 
40 PRINT" OESTE" 
45 LOCATE 25,12 
50 PRINT" LESTE" 

O programa escreve os pomos car- 
deais junto às quatro margens da tela. 

A declaração LOCATE define, com 
dois números, a próxima posição do 
cursor da tela de textos. O primeiro ar- 
gumento deve ser um número entre 0 e 
39 e diz ao computador da coluna a ser 
posicionada. O segundo, um número de 
0 a 24, indica a posição da linha a ser 
posicionada. Os argumentos que seguem 
LOCATE podem ser números, variáveis 
ou expressões com resultado numérico; 
e somente será considerado o seu valor 
inteiro (não fracionário) para o cálculo 
da posição. 

Assim, para posicionar uma declara- 
ção PRINT em um ponto escolhido, es- 
tabeleça a posição X (para coluna) e Y 
(para carreira) e coloque no programa 
um LOCATE antes do PRINT. 



COMO POSICIONAR ENTRADAS 



As entradas de dados através do co- 
mando INPUT podem ser posicionadas 
da mesma forma que as mensagens que 
usam o comando PRINT: 



30 LOCATE 12,22:PRINT "0LA. " 
:NS:'!- 

Esse programa imprimirá a primeira 
instrução na coluna 10 e na linha 10, 
orientando o usuário com uma mensa- 



gem seguida de um ponto de interroga- 
ção, para efeluar uma entrada de dados 
com o INPUT. Qualquer coisa que seja 
digitada será armazenada na variável 
N$. A linha 30 apenas imprime o nome, 
desta vez na coluna 12 da linha 22. O 
LOCATE não precisa aparecer necessa- 
riamenie na mesma linha que o INPUT 
e o PRINT. Eis aqui um programa que 
utiliza tanto LOCATE quanto PRINT 
TAB e que serve para calcular e exibir 
as notas dos alunos de uma classe: 

10 CLS : KEYOFF 

20 PRINT"NOME"TABU0) "NOTA 1"TA 
B(20)"NOTA 2"TAB(30)"MEDIA" 
25 FORX-1T015 

30 LOCATE 0 , 22 : INPUT "NOME " ; NS 
40 LOCATE0 . 22 : INPUT"NOTA 1";N1 
50 LOCATE 0 , 22 : INPUT" NOTA 2";N2 
60 LOCATE 0 , X : PRINTNS ; TAB (10) NI ; 
TAB(20)N2;TAB(30) (Nl+N2)/2 
70 NEXT 

A linha 20 exibe os cabeçalhos das 
colunas no topo da tela. As linhas 30 a 
50 perguntam pelos dados necessários. 
LOCATE é necessário para posicionar 
a linha que pede a informação na penúl- 
tima linha da tela; sua não inclusão de- 
sorganizaria a tabela que está sendo 
montada na parte de cima. A linha 60 
labula a informação que você acabou de 
fornecer à máquina e calcula a média. 



O uso correio dos sinais de pontua- 
ção do PRINT é importante quando se 
está exibindo informações na tela. As 



virgulas e os pontos e vírgulas contro- 
lam a posição do cursor (o quadrado ou 
o sinal de sublinha que assinala onde 
aparecem os caracteres). 
10 CLS 

20 PRINT"0 CURSOS MUDA DE LINHA 

30 PRINT"SEM O PONTO-E-VIBGULA" 
40 PRINT "MAS , COM ELE '; 
50 PRINT"TUDO MUDA ! " 

Quando se inclui um ponto e vírgula 
ao final de uma linha PRINT no pro- 
grama, o cursor não retorna ao início da 
próxima linha: ele permanece exatamen- 
te onde estava quando terminou de im- 
primir. A próxima declaração PRINT 
continua diretamente depois da última 
declaração. Acrescente essas linhas ao 
programa e rode-o: 
60 PRINT 

70 PRINT "E QUE TAL", 

80 PRINT"USAR VIRGULAS?", 

90 PR1NT-E VER" . 

100 PBINT"0 QUE ACONTECE?" 




Neste exemplo, igualmente produzido a 
partir da leia da Spectrum, a 
vírgula imprimirá em colunas. Assim: 



Os computadores das linhas TRS-Cnlor, 
MSX, TRS-80 e Apple II contam cum um 
maior número de colunas disponíveis. 



Você provavelmente já conhece este 
comando: 

PRINT "BOM DIA! " 

O seu computador imprimirá a men- 
sagem na primeira linha disponível, co- 
meçando no limite esquerdo da tela. Se 
" digitar o programa: 



verá que a tela será apagada e que a sua 
mensagem aparecerá na primeira linha, 
como se tivesse dado uma folha de pa- 
pel em branco ao computador. 

Mas é possível fazer com que a men- 
sagem apareça numa posição diferente. 
Adicione essa linha: 

30 PRINT TAB ( 15) "BOA TARDE!" 

A mensagem aparece centralizada na 
tela. A primeira letra foi colocada na co- 
luna 15 da linha de impressão. A tela de 
textos do Apple II tem 24 linhas de qua- 
renta colunas de largura, cada. Você 
também pode usar mais que um TAB 
por linha: 



E se você quiser pular linhas? É fá- 
cil: experimente adicionar as linhas abai- 
xo ao seu programa: 



Um comando PRINT sem nada de- 
pois significa simplesmente uma linha 
em branco na tela. 



um 




Nas declarações PRINT e INPUT, as virgulas indicam que a informação será exibida em 
campos. O 2X-81, o Speclrum e o TRS-Color têm dois campos de demseis colunas; 
o MSX e o Apple II. (rés campos de oilo colunas; já o TRS-80 conta com quatro campos. 

que seja digitada será armazenada na 
variável N$. A linha 30 imprime o no- 
me, desta vez na coluna 12 da linha 22. 
A ordem em que VTAB e HTAB apa- 
recem no programa não é importante. 
Se você não quiser um ponto de inter- 
rogação, omita-o da linha 20. 



O Apple II tem outro sistema para 
posicionar mensagens na tela. 



Observe que o efeito é semelhante ao 
do PRINT TAB. Acrescente a linha a 
seguir e rode o programa novamente: 
20 VTAB 15 

A sua mensagem está agora no cen- 
tro da tela. Com esses dois comandos, 
HTAB (abreviatura de horizontal tabu- 
lation) e VTAB (vertical tabulation), 
você pode colocar o cursor (e suas men- 
sagens) em qualquer lugar da tela. 



TABULE AS ENTRADAS 



As entradas de dados através do IN- 
PUT podem ser posicionadas da mesma 
forma que as mensagens com PRINT: 

1 0 HOME 

20 UTAB 10: HTAB 10; INPUT "SE 
U NOME? ";NS 

30 VTAB 22: HTAB 12: PRINT "OL 
A. *;NS."!" 

A primeira instrução será impressa na 
coluna 10 e na linha 10, orientando o 
usuário com uma mensagem, seguida de 
um ponto de interrogação, para entrar 
dados com o INPUT. Qualquer coisa 



Um ponio de interrogação prejudica- 
ria a clareza da tela. O programa abai- 
xo serve para calcular e exibir as notas 
dos alunos de uma classe: 

10 HOME 

20 INPUT "QUANTOS ALUNOS? " ;A 
30 HOME : PRINT "NOTAI ", "N0TA2 
", "MEDIA" 

40 FOR J - 1 TO A 

50 VTAB 21: INPUT "NOTAI? ";N1 

60 VTAB 21: INPUT "N0TA2? ";N2 

70 VTAB J + 3: PRINT N1,N2,(N1 

+ N2) / 2 
80 NEXT 

A linha 20 exibe os cabeçalhos das 
colunas no topo da tela. As linhas 40 a 
70 limpam uma linha e perguntam pe- 
los dados necessários. O HTAB e o 
VTAB antes do INPUT são necessários 
para posicionar a linha que pede a in- 
formação na penúltima linha da tela. 

A linha 80 tabula a informação que 
você acabou de fornecer à máquina, e 



a linha 90 calcula a média. 

A média das notas pode dar um re- 
sultado com muitas casas decimais (uma 
dízima periódica, por exemplo). Ora, es- 
se resultado não caberia na linha de te- 
la do Apple II, extravasando para a li- 
nha seguinte e "estragando" o aspecto 
da tela. Isso pode ser resolvido por meio 
de uma operação de arredondamento 
para que o resultado contenha apenas 
uma casa decimal: multiplicamos a raiz 
quadrada por 1000, tomamos o valor in- 
teiro do resultado, e o dividimos por 
1000. Vejamos, por exemplo, a média 
7,654321 : multiplicada por 1000 ficaria 
7654,321; seu inteiro é 7654 que divi- 
dido por I000ftcaria7,654. Se você qui- 
ser um resultado com duas casas deci- 
mais, ao invés de três, multiplique e di- 
vida por 100. Substitua a linha: 



Em BASIC, a pontuação oferece três 
possibilidades: a vírgula, o ponto e 
vírgula e a ausência de pontuação. O 
ponto e vírgula faz com que o cursor 
não mude de posição após imprimir 
uma mensagem na (ela, o que resulta em 
uma justaposição, se várias delas forem 
impressas em sequência: 

10 HOME 

20 A - 10:B - 20:C - 30 
30 PRINT AiB:C 

A vírgula produz um efeito bem di- 
ferente, Tente adicionar essa linha e ve- 
ja o que acontece: 
40 PRINT A,B,C 

A tela, neste caso, é dividida em três 
colunas de tabulação automática e tu- 
do que for mostrado na tela obedecerá 
a essa tabulação, exceto se algum dado 
exceder o tamanho da coluna. 

Neste programa mostramos como a 
tabulação automática com a vírgula po- 
de ser útil (ele calcula o quadrado e o 
cubo dos números de 1 a 20): 



25 PRINT 

30 FOR J - 1 TO 20 

40 PRINT J,J * J,J * 

50 NEXT 

Você verá uma tabela de r 
sendo montada. Toda vez que o progra- 
ma passar pelo laço uma outra linha de 
números será exibida na tela. A utiliza- 
ção do TAB permitirá que você coloque 
cada número na coluna carreta. 
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1E 



■ 


COMO DESENHAR UM 


LABIRINTO ALEATÓRIO 


■ 


DUAS MANEIRAS DE TORNAR 


0 JOGO MAIS DIFÍCIL 


■ 


DESCUBRA 0 TESOURO 




Se você gosta de enfrentar desafios, 
aprenda a tornar mais complicados 
seus jogos de labirinto, incorporando 
a eles níveis crescentes de 
dificuldade. E veja quanto tempo leva 
para encontrar um tesouro oculto no 
esconderijo de um sanguinário pirata. 



Muitos programas pedem que se es- 
colha um nivel de dificuldade, antes de 
começar o jogo. Essa exigência permite 
que tanto os iniciantes quanto os espe- 
cialistas possam utilizar o mesmo jogo, 
sem que este se torne excessivamente fá- 



cil ou difícil. Existem muitas maneiras 
de se introduzir níveis de dificuldade em 
um jogo, dependendo da sua natureza. 
Por exemplo: podemos mudar o núme- 
ro de inimigos enfrentados pelo joga- 
dor; desenvolver a açào em diferentes 
velocidades; conceder maior ou menor 
tempo para o jogo; variar os problemas 
a serem encontrados pelo jogador, e as- 
sim por diante. 

Desta vez, vamos aprender a incor- 
porar níveis de dificuldade a um progra- 
ma de jogo de labirinto. O jogo esco- 
lhido emprega uma entre duas maneiras 
possíveis de se produzir níveis de difi- 
culdade — o método a ser utilizado em 
detalhe dependerá do modelo de seu 



computador. O jogo não envolve ape- 
nas a tentativa de se achar o caminho 
através do labirinto, mas também uma 
limitação no tempo de que dispõe o jo- 
gador para guiar um homenzinho até 
um tesouro desenhado em algum lugar 
do labirinto. Não apresentaremos aqui 
uma versão do programa para micro- 
computadores da linha ZX-8 1 , pois o jo- 
go ficaria excessivamente lento. Tam- 
bém não será apresentada versão para 
micros da linha TRS-80, devido à baixa 
resolução gráfica do vídeo desses mode- 
los. 

Existem basicamente duas formas de 
aumentar a dificuldade de resolução de j 
um labirinto: ou se altera o limite de i 
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tempo, ou se varia a complexidade do 
labirinto. A razão pela qual devemos es- 
colher métodos diversos, de acordo com 
o tipo do computador, tem a ver com 
a maneira como o labirinto é produzi- 
do. Esse exemplo mostra que você pre- 
cisa decidir o caminho a seguir, quan- 
do quiser inventar jogos com diferentes 
níveis de dificuldade. 



Uma das maneiras de tornar mais ex- 
citante um jogo de labirinto consiste em 
impor algum tipo de penalidade ao jo- 
gador que esgota seu tempo sem encon- 
trar o tesouro. Pode-se, por exemplo, 
fazer com que ele perca alguns pontos 
na contagem; mas a penalidade mais co- 
mum é obrigá-lo a perder uma "vida". 

Nesse jogo daremos três "vidas" ao 
jogador: se ele não achar o tesouro den- 
tro do limite de tempo, em três tentati- 
vas, o jogo terminará. 



LABIRINTOS ALEATÓRIOS 



O jogo é baseado em uma sub-rotina 
de produção de labirintos aJeatórios (ou 
seja, de desenho gerado ao acaso). É um 
programa muito interessante, pois dese- 
nha um labirinto totalmente diferente dc 
cada vez, evitando assim que você tenha 
de projetar uma série enorme desses de- 
senhos. Já mostramos, em um artigo an- 
terior, como projetar labirintos, utili- 
zando linhas DATA para incorporar o 
seu desenho ao programa. Imagine, en- 
tão, como seria complicado incluir vá- 
rios labirintos ao programa, usando es- 
sa técnica. 

A geração aleatória de labirintos é 
muito mais fácil do què isto, embora 
apresente algumas dificuldades comple- 
mentares. Uma maneira óbvia de 
projetá-los, por exemplo, seria desenhar 
blocos gráficos aleatoriamente na tela. 
O problema, neste caso, é que nada ga- 
rante que se formem caminhos interio- 
res entre os blocos; ou seja, pode não 
surgir um verdadeiro labirinto. Assim, 
caso escolhesse esse método, você teria 
que encontrar maneiras de checar a exis- 
tência de, no mínimo, uma saída. 



' minho aleatório fica contida no interior 
da moldura desenhada na tela. Não é 
permitido que a linha cruze com ela mes- 
ma. Quando o caminho aleatório não 
puder prosseguir, o programa fará o 
mesmo percurso de volta. Ele faz isso 
passo a passo, examinando a área em 
torno do caminho anteriormente traça- 
do, até encontrar espaço livre para pros- 
seguir. Quando esse espaço é encontra- 
do, o programa inicia um outro desvio 
no caminho aleatório, prosseguindo por 
ele até ser imobilizado novamente, e as- 
sim por diante. O computador continua 
tentando desenhar novos caminhos até 
que toda a tela seja preenchida; nesse 
momento, ele volta ao ponto de partida. 

Quando o programa acaba de dese- 
nhar o labirinto, apenas um caminho li- 
vre aparece na tela; esse caminho pode 
ser facilmente distinguido, pois os des- 
vios não são muito complicados. O la- 
birinto também será solucionável atra- 
vés da regra da mão direita. De acordo 
com essa regra, é sempre possível sair de 
um labirinto, segumdo-se a sua parede 
direita (ou esquerda, tanto faz, desde 
que seja sempre a mesma). Para impe- 
dir que alguém aplique a regra, basta 
construir algumas ilhas no labirinto, 
obrigando o pobre jogador a ficar dan- 
do voltas sem fim. Assim, após desenhar 
um labirinto, o programa traça um cer- 
to número de blocos aleatórios que fa- 
zem com que o desenho pareça mais 
complexo, impedindo que alguém recor- 
ra à regra da mão direita. 

Uma vez digitado, guarde o progra- 
ma em fita ou disco, pois o próximo ar- 
tigo mostrará como acresceniar a ele al- 
guns efeitos sonoros. 



LABIRINTOS E CAMINHOS AO ACASO 



O melhor modo de se desenhar labi- 
rintos aleatórios é inventar um progra- 
ma que trace caminhos ao acaso, 
incluindo-os depois no desenho final. O 
programa proposto a seguir foi desen- 
volvido de tal forma que a linha do ca- 



0 programa para os micros da linha 
Spectrum começa estabelecendo os blo- 
cos gráficos, introduzindo as variáveis 
e fazendo uma preparação geral para 
o jogo. Digite essa seção do programa, 
mas não a execute ainda: 

10 FOR n«0 TO 23: READ a: 
POKE USH "a"+n,a: NEXT n 
20 LET ha-0 

30 INPUT "Selecione nível (1 
A 6) ";ta 

40 LET ta-H00- 100*ta 

50 BORDER 1 : PAPER 1: INK 0: 

CLS : INK 7 

60 LET a-0: LET vidas-3 

70 PRINT BRIGHT 1; PAPER 6; 

INK 2;" SCORE RECORDE 

•190 DATA 24.24.60,82.62,24,36, 
36. 127. 65, 93. B5, BI, 95, 64, 127, 
24,24.255.255.24.24.24,24 



A linha 10 define os blocos gráficos 
para o jogo — um homenzinho, o tesou- 
ro e uma cruz — por meio da leitura dos 
dados na linha 490. A variável que ar- 
mazenará o recorde — HS (high score) 
— é zerada na linha 20. 

A seguir, pede-se ao jogador para es- 
colher um nível de dificuldade de 1 a 6 
(TA). Quanto menor for o número, 
mais baixo será esse nível (e, portanto, 
mais fácil será o jogo). Você verá que 
na linha 40 os números mais baixos es- 
tabelecem tempos maiores, e os núme- 
ros mais altos, tempo menores. 

As cores da tela e dos gráficos são es- 
tabelecidas na linha 50. A linha 60 zera 
o placar e atribui as três "vidas" ao jo- 
gador. A linha 70, finalmente, exibe as 
palavras ESCORE (contagem) e RE- 
CORDE, juntamente com os espaços 
em branco para colocar o 
respondentes, na leia. 



DESENHE 0 LABIRINTO 



Agora, digite essas linhas: 

80 FOR n-22561 TO 225B9: POKE 
n,16: POKE n+640 , 16 : NEXT n 
90 FOR n-1 TO 21: POKE 22528+ 
n*32.16 : POKE 22558+n"32 , 16 
: POKE 22559+n"32.9: NEXT n 
100 LET b-22593: LET a-b 
110 DIM a!4). LET a(l)--l: LET 
a(2)— 32: LET a(3)-l: LET a (4 
í-32 

120 POKE d, 56 

130 LET 5-INT (RND*4) + 1: LET <) 

"J 

140 LET b-a+a O) *2 : IF PEEK b- 
8 THEN POKE b.j: POKE a+a(J>, 
56: LET a-b i GOTO 130 
150 LET IF J-5 THEN ,vjH 

LET 3-1 

160 IF jOg THEN GOTO 140 • 
170 LET J-PEEK a: POKE a.!>6: 

IF J<5 THEN LET a-a-a(i)*i: 

GOTO 130 

180 POKE 2262b, 56 

190 FOR n=l TO 20 

200 LET K-2252B + 64' IINT (BND'9 

)*2)* INT IRND"29)+1 

210 POKE k,56: NEXT n 

A borda do labirinto é traçada pelas 
linhas 80 e 90, colocando-se o código 1 6 
por mem de comandos POKE nas áreas 
de memória de vídeo. Esse código defi- 
ne a cor de fundo (PAPER), gerando 
portanto uma borda constituída dc blo- 
cos vermelhos. As linhas !00 a ISO de- 
senham o labirinto. Não caia na tenta- 
ção de interromper o programa e lim- 
par a tela nesse ponto. Se você fizer is- 
so, o labirinto se perderá, pois ainda está 
armazenado apenas no arquivo de atri- 
butos. Para completar o labirinto, as li- 
nhas 190 a 210 exibem vinte quadrados 
em posições aleatórias dentro do labi- 
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rinto. Se um quadrado "cair" em cima 
de uma parede, uma passagem será au- 
tomaticamente aberta. 



COMO CRIAR UM JOGO 



A próxima seção do programa diz 
respeito ao jogo em si (não tente ainda 
rodar o programa): 

220 LET X-15: LET y-10 
230 LET tx-INT (RND*15)*2+1 
240 LET ty-INT (RNDM 0) "2 + 2 
250 PRINT BRIGHT L] PAPER 2; 
AT 0, 7 ; a; AT 0. 24; ha 
260 POKE :3672,0: POKE 23673.0 
270 PRINT FLASH 1: PAPER 3; 
INK 6;AT ty.tx;CHRS 145 
280 PRINT INK 2; PAPER 7;AT Y 
,x;CHR$ 144 

290 IF PEEK 2.T672 + 256-PEEK 
23673>ta THEN GOTO 390 
300 IF INKEíS'"" THEN GOTO 
290 

310 LET aS-INKEYS: LET SX-x; 
LET ay-y 

320 IF aS-"z" AND ATTR ly 
>-56 THEN LET X-X-l 
330 IF aS-"x" AND ATTH (y 
>-56 THEN LET X-X+l 
340 IF aS-"k" AND ATTB ty 
>-56 THEN LET y--y-l 
350 IF dS-"m" AND ATTR fy 
>-56 THEN LET W*l 
360 PRINT PAPFR >. INK 2 
Y.sx;" " ; AT y,x;CHR$ 144 

370 IF ty-V ANI' tX-X THEN 
GOTO 4 70 
580 

A posição inicial do homenzinho é es- 
tabelecida pela linha 220; o homenzinho 
começa sempre nas posições 15,10 no 
início de cada jogo. 

O tesouro é colocado nlcatoriamen- 
Imhas 230 e 240, e a linha 270 
o exibe na tela. A gama de escolha dos 
números aleatórios garante que o tesou- 
ro caiu sempre em um 

0 exibe os valores do esco- 
re e do recorde (ambos inicialmente em 
. 0), ao passo que a linha 260 — 
cronometro interno por meio 
POÍ 
Ali 
Kmil 
dido 
para 
O 

nha 280. Note que os comandi 

CH RS 144 e ( II RS 145 da: 

nhãs 270 e 280 são utilizado: 
para exibir os blocos gráf 
cos predefinidos para: 1 
esses códigos. O CHRS 
é empregado aqui porque é mais fácil de 
ser visto na listagem do pn 
bora você possa utilizar o método alter- 



nativo através de letras, como foi expli- 
cado anteriormente. As linhas restantes 
(ou seja, da 300 à 380) se ocupam com 
a movimentação do homenzinho no la- 
birinto. As linhas 320 a 350 verificam se 
está sendo pressionada a tecla adequa- 
da, e se o próximo quadrado para a mo- 
vimentação é um caminho e não uma 
parede. O teste utiliza o ATTR, que já 
foi explicado anteriormente. A linha 260 
anula a última posição do homenzinho 
e o exibe novamente em uma posição di- 
ferente. A linha 370 testa se o homenzi- 
nho atingiu o tesouro. Se ele atingiu, a 
contagem de pontos é aumentada, an- 



tes de se sortear e exibir um outro tesou- 
ro a ser encontrado. 



A última seção final do programa é 
apresentada a seguir. Agora, finalmen- 
te, você pode rodá-lo. 

J90 PRINT FLASH L| PAPER 0; 

INK 5;AT y.x;CHR$ 141, 

400 LET vidaa-vidaa-1 : FOR f-1 

TO 200: NEXT f: IF Vldd9>0 

THEN GOTO 260 

410 IF 3>h3 THEN LET hs-s 




um 
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420 PRINT BP.ICHT l; PAPER 2; 
AT 0.21; ha 

430 PBINT FLASH 1;AT 10,1;" P 

reasione qualquer tecla para 

jogar de novo " 

440 IF INKEYSO"" THEN GOTO 

440 

450 IF INKEYS-"" THEN GOTO 
450 

460 GOTO 30 

470 LET B-a+ta-PEEK 23672+256* 
PEEK 23673: GOTO 230 

Quando o jogador perde uma "vi- 
da", e antes mesmo que a linha 400 sub- 
traia I ao total de "vidas", uma cruz 
piscante (CHRS 146) é exibida peta li- 
nha 390. Existe ainda uma pausa antes 
que o jogo retorne à linha 260, a qual 
coloca novamente o relógio em 0, de 
modo a ficar pronto para outra tentati- 
va de atingir o tesouro. Esse retorno, 
evidentemente, só ocorrerá se o jogador 
ainda tiver mais "vidas" para usar. 

Se não restar nenhuma "vida", a li- 
nha 410 compara o placar final com o 
último recorde. O recorde registrado é 
alterado quando o escore for maior. Em 
ambos os casos, a linha 420 exibe o re- 
corde obtido até o momento. 

A linha 410 é necessária para blo- 
quear o jogo, caso o jogador ainda es- 
teja pressionando uma das teclas de mo- 
vimentação. A linha 420, por sua vez, 
bloqueia o programa até que uma nova 
pressão em qualquer tecla assinale que 
o jogador quer prosseguir. 

A linha 470 calcula o escore, logo 
após o encontro do homem com o te- 
souro. O teste está na linha 370. 



A tela de texto proporciona a manei- 
ra mais fácil de se desenhar um labirin- 
to nos micros da linha TRS-Color. Mas 
os labirintos assim obtidos seriam mui- 
to simplificados por causa do grande ta- 
manho e do pequeno número de blocos 
gráficos disponíveis. 

Em vez disso, o programa aqui pro- 
posto desenha os labirintos na tela com 
gráficos de alta resolução. Embora seja 
mais complicado do que o que se pode 
conseguir na tela de textos, ele tem a 
vantagem de desenhar labirintos de di- 
ferentes complexidades, fornecendo as- 
sim vários níveis de dificuldade. 

Imagine que o caminho seja forma- 
do por uma série de blocos quadrados. 
Se você quisesse desenhar um labirinto 
bem simples, bastaria escolher um blo- 
co grande, ao passo que, se quisesse um 
labirinto mais complexo, deveria optar 
por um bloco de menor tamanho. 

hA primeira seção do programa intro- 
duz as variáveis e prepara o computa- 



dor para desenhar labirintos aleatórios. 
Digite o programa, mas não execute ain- 
da, senão você obterá um erro do tipo 
UL — linha indefinida — , quando o 
programa tentar executar o GOSUB 
1000 da linha 110. 

10 PM0DE 4,1 

20 CLS:PRINT 3193 . "NÍVEL DE DIF 
ICULDADE (0-5)"; 

30 LS-INKEYS:IF LS<"0" OR L$>"5 
" THEN 30 

40 BS-12-VAL(L$) :NX-2*INT(.5+12 

B/BS) :NY-2*INT(.5+96/BS) 

50 SX-250-BS*NX;SY-190-BS*NY 

60 DIMPCNX.NY) ,A{5) ,B(5) 

70 PCLS 5: DRAW"S"+STRS(INT(8.5 

-4*VAL(LS)/5))*-"C0BM0.OBR2BDNFN 

GD3NFG" 

80 GET ÍO.O)-(BS-l.BS-l) ,A,G 
90 GET(10,10)-(BS+9,BS+9) ,B,G;C 
OLOR 5.0 

100 CLS:PRINT 6226 . "GERANDO LAB 
IRIUTO DE NÍVEL " ; LS 
110 GOSUB 1000 
120 GOTO 120 

A linha 10 diz ao computador para 
utilizar o quarto modo gráfico (PMO- 
DE 4) para todo o programa. A tela de 
alta resolução não é ligada nesse está- 
gio. A linha 20 exibe, então, a mensa- 
gem NÍVEL DE DIFICULDADE (0 - 
5). 

LS é o nível que o jogador escolheu. 
O valor numérico de L$ — VAL <L$) 
na linha 40 — regula o tamanho do blo- 
co, a extensão do caminho e a comple- 
xidade do labirinto. O INKEYS na linha 
30 significa que o jogador não precisa 
digitar mais que o único dígito em res- 
posta à pergunta, e que o programa con^ 
tinua sem que ele precise pressionar 
<ENTER>. 



Na linha 40, o BS é o tamanho do 
bloco gráfico, em pixels. Esse tamanho 
pode variar de sete a doze pixels. NX é 
o número de blocos na direção horizon- 
tal, e NY é o número de blocos na dire- 
ção vertical. 

Antes de desenhar o labirinto na te- 
la, o computador calculará sua aparên- 
cia final e colocará essa informação no 
conjunto P, o qual é dimensionado 
(DIM) na linha 60. O conjunto A con- 
tém o formato do homenzinho, e o con- 
junto B, um espaço em branco, de mo- 
do a provocar sua animação gráfica. O 
homenzinho é desenhado pela linha 70. 
Nesse programa o homenzinho será de- 
senhado em tamanho maior, quando o 
caminho do labirinto for mais largo, e 
menor quando for mais estreito. 

Agora que o homenzinho foi dese- 
nhado, a linha 80 o coloca no conjunto 
A por intermédio de um comando GET, 
e a linha 90 preenche o conjunto B de 
branco. Nas lições anteriores, quando 
um espaço em branco era utilizado em 
um jogo, não era necessário colocar na- 
da no conjunto: tínhamos apenas um 
conjunto vazio. Desta vez, é necessário 
um espaço em branco, de modo a com- 
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binar com a cor de fundo do caminho. 

O comando COLOR na linha 90 as- 
segura que o labirinto será desenhado 
mais tarde na cor correta (de outro mo- 
do você estaria desenhando um labirin- 
to preto sobre um fundo preto). 

A linha 100 diz ao jogador que o la- 
birinto está sendo produzido; pode de- 
morar algum tempo até o desenho apa- 
recer. 



DESENHE 0 LABIRINTO 



Agora digite a sub-rotina de produ- 
ção do labirinto — chamada pela linha 
110 — e você poderá rodar o programa: 
1000 FOR J-0 TO NX:P(J.NY)-6:P< 
J,0)-6:NEXT 

1010 FOB J-0 TO NY-2:P(0. J)-6:P 

(NX.J)-6:NEXT 

1020 X-2;Y-2:LX-2:LY-2 

1030 J-RND(4)-1:G-J 

1040 Y-LY+2» ( (J-0) - (J-2) ) :X-LX+ 

2*({J-3)-!J-D) 

1050 IF P(X.Y)-0 THEN P[X,Y)-J+ 
1 : P ( (X+LX) /2. CY+LY) /2) -5 : LX-X : L 
Y-Y:GOTO 1030 

1060 J-(J+1)AND 3: IF JOG THEN 
1040 

1070 J-P(LX.LY)-1:P(LX.LY)-5:IF 
J<4 THEN LX-LX-2* [ (J-3) -ÍJ-1) ) 
:LY-LY-2M(J-0)-(J-2)> : GOTO 103 

D 

1080 FOR J-0 TO 20 : P [2 + 2*RND ( ÍN 
X-3)/2) ,l+RND(NY-3) )-5:P(l+RND( 
NX-3) . 2+2*P,ND( (NY-3J/2) ) -5: NEXT 
1090 SCREEN 1,1:PCLS 
1100 FOR J-2 TO NX-2:FOR K-2 TO 
MY-2 

1110 IF P(J,K)-5 THEN LINE(J*BS 
+SX. K*BS+SY) - ( ( J+l) «BS+SX-1 . (K+ 
1) *BS+SY-1) , PSET , BF 
1120 NEXT K , J : RETURN 

As linhas 1000 a 1080 "desenham" 
o labirinto na memória do computador 
e armazenam a sua forma no conjunto 
P — cada elemento do conjunto corres- 



ponde a um bloco do labirinto. A sub- 
rotina armazena o número 5 em P onde 
quer que exista um caminho, e o núme- 
ro 0, se existir uma parede. Uma vez que 
o labirinto tenha sido armazenado em 
P, a linha 1090 liga a tela de alta reso- 
lução e a deixa pronta para a execução 
do desenho. 

As linhas 1 100 e 1 120 exibem o labi- 
rinto na tela mediante a verificação dos 
conteúdos de P. Quando um 5 for en- 
contrado, um quadrado branco será im- 
presso. 



MOVIMENTO, TESOURO. VIDAS 



Agora você precisa de um jogo para 
acompanhar o seu labirinto aleatório. 
Digite a próxima seção do programa, 
mas não o rode porque ele chamará uma 
sub-rotina que ainda não existe. 

120 
-3 



•2: Y-2r LX'2 :LY-2:T1 -800 : 




130 TIMER=0 

140 XW + HNDÍNX- 3) :Y1-HRND(N¥- 
3):IF P(Xl,Yl>-5 THEN PIX1.Y11- 
7:DRAW " S4 CO BM " + STRS ( SX *-X 1 *BS ) * 
" . " + STRS (SY+Y1"BS)+"BFR5D5L3U3B 
D" ELSE 140 

150 XI =X*BS+SX : Y1=Y*BS+SY 

160 PUTIXl . Yli - (Xl+BS-1 , Yl+BS-1 

I , A , PSET 

170 IF PEEK (338J-251 THEN Y = Y- 
1 

180 IF PEEX (3421=253 THEN Y-Y + 
1 

190 IF PEEK (3401-247 THEN X-X- 
1 

200 IF PEEK (338J-247 THEN X = X + 

1 

210 IF PÍX.Yi-7 THEN F=1:P(X.Y) 
-5: GOTO 2 30 

220 IF P(X,Y)<>5 THEN X-LX:Y-LY 

:GOTO 170 

230 IF XOLX OR YOLY THEN PUT 
(XI. YD" (Xl+BS-1. Yl + BS-1) .B.PSE 
T:LX-X:LY-Y:FOR P-l TO 68:NEXT 
240 IF F-l THEN F-0 : SC-SC+ (TI-T 
IMER) : TI-TI -10 : GOTO 130 
250 IF TIMER >TI THEN GOSUB 500 
: IF LIO THEN 100 
260 GOTO 150 

A linha 120, que substitui a linha 120 
da seção anterior, contém as variáveis 
a partir das quais é calculada a posição 
do homenzinho. X, Y é a localização 
atuaJ do homenzinho, e LX e LY, sua 
última posição; porém, em virtude da 
largura variável do caminho, os valores 
devem ser ligeiramente ajustados um 
pouco anles de o homenzinho aparecer 
na tela. TI é o limite de tempo para des- 
cobrir o tesouro. Esse tempo limite é de 
dezesseis segundos. Se o homenzinho 
não tiver encontrado o tesouro, quan- 
do o tempo se esgotar, perderá uma "vi- 



da". No início do jogo, o jogador tem 
três "vidas" — LI = 3. 

O cronometro interno do computa- 
dor é zerado na linha 130, antes que a 
linha 140 selecione uma posição aleató- 
ria para o tesouro. O elemento corres- 
pondente em P é examinado para que 
haja certeza de que nesse lugar há um 
caminho e não uma parede. Se o tesou- 
ro estiver em um caminho, o valor do 
conjunto será modificado de 5 para 7. 
A última parte da linha desenha o tesou- 
ro no labirinto. 

A posição do homenzinho ê calcula- 
da na linha 150, levando-se em conside- 
ração a largura do caminho, que é o ta- 
manho do bloco BS. A linha 160 colo- 
ca o homenzinho em posição. 

As linhas 170 a 220 examinam o te- 
clado por meio de comandos PEEK, de 
modo a permitir a movimentação do pi- 
rata no labirinto. Como não é possível 
deixá-lo atravessar paredes, a linha 220 
o mantém dentro do caminho. A linha 
210 verifica se o tesouro foi encontra- 
do, examinando o elemento correspon- 
dente em P para o número 7. Se o com- 
putador o achar, o "indicador de desco- 
berta" (F) será igualado a 1. 

A linha 230 movimenta o pirata. O 
espaço em branco é colocado, com o co- 
mando PUT, sobre a última posição do 
personagem, e sua localização atual 
torna-se a última posição. 

A linha 240 calcula o escore, caso o 
tesouro tenha sido encontrado. O limi- 
te de tempo é diminuído então de 10 se- 
gundos. O F volta ao 0, e o programa 
retorna para zerar o cronometro. O pro- 
grama continua, redesenhando o tesou- 
ro em outro lugar, deixando o pirata no 
mesmo ponto em que estava quando o 
último tesouro foi encontrado. 

Caso o tesouro demore muito a ser 
encontrado, a linha 250 chamará a sub- 
rotina que se inicia na linha 500. Se, 
mesmo não tendo achado o tesouro, o 
homenzinho ainda dispuser de algum 
tempo, a linha 260 retornará ao progra- 
ma, calculando sua nova posição. 



A EXIBIÇÃO DO ESCORE 



Esta é a sub-rotina final. Ela exibirá 
o escore e o número de "vidas", depois 
que uma "vida" for perdida: 

500 CLS:SCREEN 0.0:LI-LI-1 
510 PRINT #106."NIVEL-";L$ 
520 IF LI>0 THEN PRINT §202. 'VI 
DAS-" ; LI 

530 PRINT ê298."SC0RE-";SC 
540 IF LI>0 THEN FOR J-l TO 600 
0 : NEXT ; TIMER- 0 : SCREEN 1.1:RETUR 
N 

550 PRINT §358 , "QUER OUTRA VEZ I 
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Um pirata à procu 



Oulro bucaneiro explora c 



rido labirinto do Spectrum. 



560 AS-INKEYS:IF ASO"S" AND AS 

<>"N" THEN 560 

570 IF AS-"S" THEN RUN 

580 END 

Agora você pode rodar o programa. 
Se uma "vida" for perdida, o progra- 
ma religa a tela de texto — SCREEN 
0,0. A linha 500 também diminui de 1 
o número de "vidas" restantes do joga- 
dor. 

As linhas 510 a 530 exibem o nivel de 
dificuldade, o número de "vidas" res- 
tantes (se o jogo continuar) e a conta- 
gem de pontos. Se ainda sobrarem al- 
gumas "vidas", a linha 540 introduzirá 
uma pausa antes de zerar o cronometro, 
religando a tela de alta resolução e re- 
tornando à sub-rotina. 

As linhas 550 e 580 perguntam se o 
jogador quer tentar de novo, e ele ou pá- 
ra o programa ou roda novamente. O 
RUN é utilizado na linha 570 para lim- 
par P para um novo labirinto. 



A versão do programa para os micros 
da linha MSX desenha os labirintos na 
tela com gráficos de aJta resolução. Em- 
bora mais complexa do que o programa 
para se desenhar na tela de textos, ela 
tem a vantagem de poder traçar labirin- 
tos de diferentes complexidades, forne- 
cendo assim uma variação no nível de 
dificuldade. 

O caminho aleatório é formado por 
uma série de blocos quadrados. Se você 
quisesse desenhar um labirinto bem sim- 
ples, bastaria escolher um bloco gran- 
de, ao passo que, se quisesse um labi- 
■ rimo mais complexo, teria que optar por 
I um bloco de menor tamanho. 



A primeira seção do programa intro- 
duz as variáveis e prepara o computa- 
dor, de um modo geral, para desenhar 
labirintos aleatórios. Digite o programa, 
mas não o execute ainda, pois não apa- 
recerá nada na tela, por enquanto. 

10 SCREEN 0 

20 LOCATE 2,11:PH1NT "Nível de 
dificuldade (0-5) ?" 
30 LS-INKEYS:IF LS<"0" OR LS>*5 
" THEN 30 

40 BS-13-VAMLS) :NX-2*INT<.5+12 

6/BS) :NY-2*INT(.5+96/BS) 

50 SX-250-BS*NX:SY-190-BS*NY 

60 DIM P(NX.NY) 

70 FOR 1-1 TO 8 

60 READ A,B,C:AS"AS+CHR$ (A) 

84 BS-BS+CHRS (B) 

88 CS-CS+CHRS (C) 

90 NEXT 

100 CLS:LOCATE 2,11 
105 PRINT 'Gerando labirinto de 
nível ":LS 
110 DATA 24,24,127,24,24,65,60, 
255,93.82,255,65,82,24,81,24.24 
,95.36.24,64.36,24.127 

A linha 10 diz ao computador para 
utilizar a tela de textos (SCREEN 0). A 
linha 20 exibe, então, a mensagem: "Ní- 
vel de dificuldade (0 - 5) ?" 

L$ é o nível que o jogador escolheu. 
O valor numérico de LS — VAL (L$) 
na linha 40 — regula o tamanho do blo- 
co, a extensão do caminho e a comple- 
xidade do labirinto. O INKEYS na linha 
30 significa que o jogador não precisa 
digitar mais que um único dígito em res- 
posta à pergunta, e que o programa con- 
tinua sem que ele precise pressionar 
<ENTER>. 

Na linha 40, o BS é o tamanho do 
bloco gráfico, em pixels. O tamanho po- 
de variar de oito a doze pixels. NX é o 
número de blocos na direção horizon- 



tal, e NY é o número de blocos na dire- 
ção vertical. 

Antes de desenhar o labirinto na te- 
la, o computador calculará sua aparên- 
cia final e colocará essa informação no 
conjunto P. que é dimensionado (DIM) 
na linha 60. A variável AS contém o for- 
mato do homenzinho, e a variável BS, 
uma cruz, para assinalar sua "morte". 
A variável CS contém a imagem do te- 
souro. Os códigos gráficos correspon- 
dentes são lidos em DATA, na linha 
1 10, e concatenados nas variáveis alfa- 
numéricas mencionadas. Posteriormen- 
te, esses blocos gráficos serão colocados 
dentro de sprites. 

O computador limpa a tela de textos 
na linha 100, e esta informa que o labi- 
rinto está sendo produzido. 



Agora, digite a parte do programa 
que produz o labirinto, e rode-o para ver 
o resultado: 

1000 FOR J-0 TO NX 
1005 P(J,NY)-6:P(J,0)-6 
1008 NEXT 

1010 FOR J-0 TO NY-2 
1014 P(0,J)-6:P<NX.J)-6 
1016 NEXT 

1020 X-2:Y-2:LX-2:LY-2 

1030 J-INT(RND(1)*4> :G-J 

1040 Y-LY*2*((J-0)-(J-2)) :X-LX+ 

2"(<J-3)-(J-l>) 

1050 IF P(X,Y>-0 THEN P(X.Y)-J+ 
l:P((X+LX)/2. (Y+LY)/2)-5:LX-X:L 
Y-Y:GOTO 1030 

1060 J-ÍJ+l) AND 3:IF JOG THEN 
1040 

1070 J-P(LX.LY)-l:P(LX.LY)-5 
1075 IF J<4 THEN LX-LX-2* ( ( J-3) 
-<J-1) ) :LY-LY-2«( (J-0)-(J-2) ) :G 
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OTO 1030 

1080 FOR J-0 TO 20 

1082 P(2+2«INT(RND(l)*(<NX-3)/2 

) ) , 1+INT (RND(1 ) * (NY-3) ) ) -5 

1085 P(l+-INT<RMDU)MNX-3)) ,2 + 2 

■INT (RND (1 ) * ! (NY-3J/2) ) ) -5 

1088 NEXT 

1090 SCREEN 2,0 

1092 COLOR 1.10,4 

1094 SPRlTES(l)- AS 

1098 SPRITEStO)- BS 

1099 SPRITES(2)-CS 

1100 FOR J-2 TO NX-2 
1105 FOR K-2 TO NY-2 

1110 IF PU.K)-5 THEN LINE (J*B 
S>SX, K*BS+SY] - ( ( J+l ) «BS+SX-1 , ( K 
+1)«BS+SY-1) ,4,BF 
1130 NEXT K 
1140 NEXT J 

As linhas 1000 a 1080 "desenham" 
o labirinto na memória do computadoi 
e armazenam sua forma no eonjuni 



(cada elemenlo do conjunto correspon- 
de a um bloco do labirinto). A sub- 
rotina armazena o número 5 em P onde 
quer que exista um caminho, e o núme- 
ro 0 faz o mesmo, caso exista uma pa- 
rede. 

Uma vez que o labirinto tenha sido 
armazenado em P, a linha 1090 liga a 
tela de alta resolução, e a linha 1092 de- 
fine as cores de frente e de fundo do de- 
senho. As linhas 1094 a 1099 definem os 
sprites correspondentes aos blocos grá- 
ficos montados na seção anterior do 
programa. Note que o sprite do bloco 
em branco tem prioridade sobre o blo- 
co do homenzinho. As linhas 1100 a 
1 140 exibem o labirinto na tela median- 
te a verificação dos conteúdos de P. 
Quando um 5 for encontrado, um qua- 




drado será impresso (comando LINE de 
bloco cheio) na linha 1110. 



Agora você precisa de um jogo para 
divertir-se com o labirinto aleatório. Di- 
gite a próxima seção do programa; mas 
não o rode, pois ele chamará uma sub- 
rotina que ainda não existe. 

1200 X-2:Y-2:LX-2:LY-2 
1210 TI-800:LI-3 

1215 R-RND (-TIME1 
1220 TIME-0 

1230 Xl-l+INT(RNDU)MNX-3]) 
1240 Yl-l*INT(RNDÍl)*(NY-3)) 
1250 IF P(Xl,Yl)-5 THEN P(Xl.Yl 
)-7:PUT SPRITE 2 , (SX+X1*BS , SY+Y 
1*BS) .10 ELSE 1230 
1255 X1-X"BS+5X:Y1-Y*BS+SY 
1260 PUT SPRITE 1,(X1.Y1),1 
1270 TS-INKEYS:IF TS-"" THEN 12 



1280 IF ASC(TS)-28 THEN X-X+l 
1290 IF ASC(TS)-29 THEN X-X-l 
1300 IF ASC(TS)-30 THEN Y-Y-l 
1310 IF ASC(TS)-31 THEN Y-Y+l 
1320 IF P{X.Y)-7 THEN F-1:P(X,Y 
)-5:GOTO 1330 

1325 IF P(X,Y)OS THEN X-LX:Y-L 
Y:G0TO 1270 

1330 IF XOLX OR YOLY THEN LX- 
X:LY-Y 

1340 IF F-l THEN F-0 : SOSC* (TI- 
TIME) : TI-TI-10 : GOTO 1220 
1350 IF TIME>TI THEN GOSUB 1500 
:IF LK1 THEN 1000 
1360 GOTO 1255 

A linha 1200 contém as variáveis a 
partir das quais a posição do homenzi- 
nho é calculada. X e Y são as coorde- 
nadas da posição aluai do homenzinho, 
e LX e LY, da última posição. Tl é o 
ite de tempo para descobrir o tesou- 
ro, e LI, o número de "vidas" de que 
)gador dispõe. O tempo limite é de 
cerca de dezesseis segundos; se este 
se esgotar sem que o tesouro tenha 
sido encontrado, o homenzinho perde- 
rá uma "vida". No início, o joga- 
dor tem três "vidas". 
A linha 1215 introduz o gerador de 
números aleatórios, usando como "se- 
mente" o valor armazenado no crono- 
metro interno, naquele instante. O cro- 
nometro interno do computador é zera- 
do na linha 1220, antes que as linhas 
1230 e 1240 selecionem uma posição 
aleatória para o tesouro. O elemento 
correspondente em P é examinado na li- 
nha 1250, para verificar se nesse lugar 
há um caminho ou uma parede. Se hou- 
ver um caminho, o valor do conjunto se- 
rá modificado de 5 para 7. A última par- 
te da linha desenha o tesouro no labi- I 
rinto. 
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A posição do pirata é calculada na li- 
nha 1255, levando-se em conta a largu- 
ra do caminho, que é o tamanho do blo- 
co BS. A linha 1260 coloca o homenzi- 
nho na tela, naquela posição. 

As linhas 1270 a 1310 examinam o te- 
clado através do comando INKEYS, de 
modo a permitir a movimentação con- 
tínua do homenzinho, no labirinto, co- 
mandado pelas teclas de controle do cur- 
sor. A linha 1325 faz com que ele se 
mantenha dentro do caminho, de mo- 
do a impedi-lo de atravessar alguma pa- 
rede. A linha 1320 checa se o tesouro foi 
encontrado, examinando o elemento 
correspondente em P para o número 7. 
Quando o tesouro é encontrado, o "indi- 
cador de descoberta" (F) é igualado a 1 , 

A linha 1330 promove a movimenta- 
ção do homenzinho, fazendo com que 
a localização atual torne-se a última po- 
sição. Como o homenzinho é definido 
por intermédio de um sprite, não é ne- 
cessário apagá-lo do lugar onde estava, 
como em outros computadores. 

A linha 1340 calculará o escore, se o 
tesouro for encontrado. O limite de tem- 
po é diminuído de 10 segundos. O F re- 
torna ao zero e o programa volta à li- 



nha 1220 para zerar o cronometro. O 
programa continua, redesenhando o te- 
souro em outro lugar, mas deixando o 
pirata no ponto em que ele estava quan- 
do o último tesouro foi encontrado. 

Se o jogador demorar muito para 
achar o tesouro, a linha 1350 chamará 
a sub-rotína que se inicia na linha 1500 
(ela será apresentada a seguir). Essa sub- 
rotina diminui uma "vida" do jogador; 
caso tenha se esgotado o número de 
"existências", o programa retornará ao 
começo (linha 1000). Se o homenzinho 
não tiver achado o tesouro e ainda dis- 
puser de algum tempo, a linha 1360 fa- 
rá o programa voltar à linha 1255, per- 
mitindo que sua nova posição seja cal- 
culada. 



A sub-rotina final exibirá o escore e 
o número de "vidas" restantes depois 
que uma "vida" for perdida: 

1500 LI-LI-1 

1505 PUT SPBITE 0,{X1,Y1),1 
150 7 OPEN "GRP : " FOR OUTPUT AS 



tl 



1520 FOR J-l TO 6000:NEXT 
1525 LINE(0,0)-(255.7) .10.BF 
1530 IF LI>0 THEN PUT SPRITE 0, 
1-20,-20) :CL0SE |1 : TIME-0 :RETUR 
N 

1540 PSET(0,0) ,4:PRINT II," Que 

r jogar novamente ? (S/N)" 

1550 AS-INKEYS:IF ASO"S" AND A 

SO"N- THEN 1550 

1560 IF AS-"S" THEN RUN 

1570 END 

Rode o programa: se uma "vida" for 
perdida, ele diminuirá de 1 o número de 
"existências" restantes (linha 1500). A 
linha 1505 assinala a "morte" do per- 
sonagem. 

As linhas 1510a 1530 exibem o nível 
de dificuldade, o número de "vidas" 
restantes e a contagem de pontos. Caso 
ainda sobrem 1 ' vidas' ' , a linha 1 530 co- 
locará o cronometro em 0. 

As linhas 1540 a 1560 perguntam se 
o jogador quer tentar de novo; depen- 
dendo da resposta, elas param o progra- 
ma ou o rodam novamente. O RUN é 
utilizado na linha 1560, limpando P pa- 
ra um novo labirinto. 



UMA TÉCNICA DE ANIMAÇÃO DE BLOCOS GRÁFICOS NOS 
MICROCOMPUTADORES DA LINHA TRS-8Ô. 



Os micros da linha TRS-80, por serem 
de tecnologia mais antiga do que os da 
nova geração de computadores pessoais 
tSinctair Spectrum, MSX, TRS-Color), 
contam com menores recursos para a de- 
finição de blocos gráficos IUDG, ou user 
= defined graphicsj além de terem uma 
resolução gráfica na tela (128 x 48 pixels) 
insuficiente para a programação de efei- 
tos visuais mais sofisticados. 

Existem, porém, formas de contornar 
esse problema. Assim, para definir e ani- 
mar blocos gráficos no TRS-80, utiliza- 
mos três conceitos básicos de programa- 
ção: como incorporar caracteres gráficos 
a variáveis alfanuméricas (cordões): co- 
mo usar os caracteres de controle do cur- 
sor para definir figuras complexas, e co- 
mo movimentar blocos gráficos por meio 
do comando PRINT®. 

Como a utilização desse comando já 
foi explicada, abordaremos aqui apenas 
a técnica de definição de figuras com- 
plexas. 

imagine que queremos definir um dis- 
co voador. Para montar afigura em uma 
única variável alfanumérica (por exem- 
plo, DS) concatenamos os caracteres grá- 
ficos que determinam a primeira linha 
(veja no manual do seu computador os 
códigos gráficos correspondentes): 

A3 - CHRS(12e)+CKRS(186)+ 
CHRS (176) +CHRS (186)4 
CHRS (144) 



Acrescentamos a seguir a linha do 
meio da figura. Mas, se nos limitarmos 
a concatenar os próximos caracteres grá- 
ficos ao DS já definido, na hora de colo- 
car o disco voador na tela por meio de 
um PRINT® , o desenho sairá errado (em 
vez de se posicionarem uma embaixo da 
outra, as duas linhas ficarão fundidas em 
uma única linha). Para evitar isso, temos 
que fazer com que o cursor se posicione 
no ponto certo, abaixo da primeira linha 
do gráfico. Para isso, usamos os códigos 
de controle: CHR$(26>, que tem o efeito 
de descer o cursor do PRINT de uma po- 
sição na tela, e CHRS(24), que recua o 
cursor, sem limpeza. 

Dessa forma, para posicionar o cur- 
sor corretamente na linha seguinte do grá- 
fico, lemos que descer uma posição com 
o cursor e recuar cinco posições. Para 
economizar tempo de digitação, podemos 
definir um cordão BS, que incorpora to- 
dos esses CHRS: 

BS - CHR$(26)+STRINGS(5,24) 

E agora AS fica definido assim: 

AS - CHRSU28)+CHRS(186) + 
CKRS!176)+CHRS(186)+ 
CHRS ( 144) +BS+CHRS (170)+ 
STRINGS(4,171) 

Finalmente, podemos completar a fi- 
gura, adicionando a terceira linha de blo- 



cos gráficos, e repetindo o truque de des- 
cer uma posição e recuar o cursor cinco 
posições: 

AS - CHRSU28)+CHRS(186) + 
CHRS(176)+CHRS<186)+ 
CHRS (144) +BS+CHRS (170)+ 
STRINGS (4 . 171 }+BS+ 
CHRS (128) +STRINGS (3,131)+ 
CHRS (129) 

O bloco gráfico está definido. Para de- 
senhar, de uma vez só, esse bloco em um 
ponto qualquer da tela (por exemplo, na 
posição N), basta dar o comando: 

PRINTSN.AS; 

Para animar o bloco gráfico contido 
em AS, variamos o valor de JV, 
colocando-o dentro de um laço de pro- 
grama. Se o valor de N for aumentado 
ou diminuído de 64, em cada repetição 
do laço, a movimentação se dará no sen- 
tido vertical. Por outro lado, se esse va- 
lor for aumentado ou diminuído de 1, o 
movimento se fará no sentido horizontal. 

Para apagar o bloco gráfico do lugar 
onde estava, é necessário colocar por ci- 
ma dele um terceiro bloco gráfico previa- 
mente definido, contendo apenas três li- 
nhas de cinco caracteres em branco, con- 
catenadas por meio do cordão de contro- 
le, BS, definido acima. 



Ill 
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MÉTODOS MAIS RÁPIDOS COM 
INKEYS OU GET 



PROGRAMAS DE DESENHOS NA 



■ 


0 COMANDO INPUT E AS 


TELA 




MENSAGENS DE PRONTIDÃO ■ 


ENTRADAS DE SENHAS SECRETAS 



Grande parte dos programas para micros 
exige que o usuário digite 
dados e outras informações necessárias 
ao seu funcionamento. A maneira 
como isso é feito tem uma importância 
fundamental. Veja por quê. 



Com muito poucas exceções, os com- 
putadores não funcionam inteiramente 
sozinhos, dando saída a informações. 
Quase todos os programas, desde jogos 
até aplicações comerciais e científicas, 
exigem do usuário algum tipo de entra- 
da. Entretanto, há informações que po- 
dem ser fornecidas diretamente ao com- 
putador, e existem inúmeras maneiras 
pelas quais isso pode ser feito, para os 
vários tipos de programa. 

A informação pode ser tão simples 
quanto a pressão sobre uma tecla de con- 
trole do cursor para direcionar uma ba- 



se de mísseis. Mais comumente, porém, 
consiste na digitação de números ou tex- 
tos como acontece, por exemplo, em pro- 
gramas para bancos de dados. No caso 
de um jogo, a maior exigência é que o 
computador responda de modo rápido. 



Um dos primeiros programas execu- 
tados pelos iniciantes e que ilustra o uso 
do comando INPUT é o seguinte: 



biOE 



< ENTER > ou < RETURN > , a men- 
sagem digitada (qualquer que seja ela) é 
colocada em uma variável — N$, no caso 
do programa acima. 

Neste exemplo, a variável é um cor- 
dão alfanumérico, mas variáveis numé- 
ricas também podem ser utilizadas. No 
programa seguinte, mostraremos como 
se faz uma lista de cinco nomes e ida- 
des, empregando comandos INPUT 
simples. Esse programa utiliza dois con- 
juntos para armazenar informações 
(mais adiante, abordaremos numa lição 
específica a questão dos conjuntos e de 
como funcionam). 



10 PFUNT-QUAL E O SEU NOME?" 

20 INPUT U$ 

30 PRINT"OLA, ' ;NS 

Ao deparar-se com um INPUT dentro 
de um programa, o computador pára o 
processamento e espera até que o usuário 
digite algo. Após terem sido pressionados 



5 DIM NOMES (5) , IDADE (5) 

10 FOR N-l TO 5 

20 PRINT"NOME: " 

30 INPUT NOMES (N) 

40 PRINT" IDADE : " 

50 INPUT IDADE ÍN) 

60 NEXT N 

70 FOR N-l TO 5 

60 PRINTNOMES IN) ; " TEM " ; IDADE ( 
N) ; " ANOS DE IDADE* 
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S DIM nS(5,10) : DIM a(5) 
10 FOR n-1 TO 5 
20 PRINT "Nome: " 
30 INPUT tlS(n) 
40 PRINT "Idade: " 
50 INPUT a (n) 
55 CLS : NEXT n 
60 FOR n-1 TO 5 
70 PRINT nS(n) : " tem ";a(n)i" 

anoa de idade" 
BO NEXT n 

Nos computadores da linha ZX-81, 
digite tudo com leiras maiúsculas. Omi- 
ta as linhas 5 e 55, e acrescente: 

5 DIM NS(5,10) 
7 DIM A (5) 
55 CLS 
57 NEXT N 

A informação fornecida ao usuário 
deve estar correia. Da mesma forma, o 
usuário precisa entrar exatamente o ti- 
po de informação solicitada. Se você di- 
gitar um nome quando for perguntada 
uma idade, o programa será interrom- 
pido. No entanto, rodar o programa 
mais uma vez leva quase sempre à per- 
da de tudo o que já foi entrado, obri- 
gando o operador a um duplo trabalho. 
Isso não constitui problema se forem 
apenas cinco entradas; mas quando se 
trata de um programa extenso, esse es- 
forço pode ser desgastante. 



UTILIZE MENSAGENS DE. PRONTIDÃO 



Embora pareça simples, o programa 
acima tem uma característica importan- 
te, que é a mensagem de prontidão con- 
tida nas duas declarações PRINT. Essa 
mensagem faz com que o programa di- 
ga ao usuário que tipo de informação ele 
deve digitar pelo teclado. 

Se as linhas 20 e 40 do programa fos- 
sem apagadas, ainda assim ele funcio- 
naria, pois, na maioria dos computa- 
dores, toda ocorrência de um INPUT 
provoca o aparecimento de algum si- 
nal de prontidão na tela (por exemplo, 
um ponto de interrogação). 

Se você já está familiarizado com 
computadores, o sinal de prontidão do 
INPUT é su ficiente, quase sempre, pa- 
ra lembrá-lo de que alguma coisa preci 
sa ser entrada. Ele é insuficiente, porém, 
para lhe dizer qual o tipo de informa- 
ção a ser digitada, imagine, por exem- 
plo, que o programa lhe é estranho, que 
talvez você não tenha experiência em li- 
dar com o computador ou que não te- 
nha conhecimento de como ele funcio- 
■ na. Neste caso, um ponto de ínterroga- 
Ição causa apenas estupefação... 



A mensagem de prontidão é necessá- 
ria até mesmo nos programas mais sim- 
ples, pois o usuário tende a esquecer fa- 
cilmente a forma exata pela qual a in- 
formação deve ser entrada. Por exem- 
plo, a entrada de datas. A maior parte 
dos programas de contabilidade, além 
de muitos outros, requer a entrada de 
datas pelo usuário. Em alguns casos, es- 
sa informação é utilizada pelo progra- 
ma, seja em rotinas de pesquisa, quan- 
do se deseja encontrar um dado especí- 
fico, seja na ordenação cronológica de 
uma série de eventos, por exemplo. Nes- 
te caso, é preciso estabelecer que uma 
data seja sempre entrada segundo uma 
forma padronizada. 

Um método comum é utilizar seis dí- 
gitos para uma data, ou seja, dois dígi- 
tos para o dia, dois para o mês, e dois 
para o ano. Muitas vezes empregam-se 
barras ou pontos para separar os três pe- 
ríodos. Uma rotina típica de entrada de 
dados através de um INPUT seria: 



100 PRINT "DIGITE DATA (EM FORM 
ATO DD/MM/AA) " 
110 INPUT DS 

A mensagem serve não somente pa- 
ra lembrar o usuário de que uma data 
é necessária, como também para defi- 
nir a forma como ela deve ser entrada 
(o que se denomina formato de entrada 
do dado). Se você quiser entrar, por 
exemplo, 3 de setembro de 1945, deve- 
rá digitar: 03/09/45. 

O formato de entrada poderá ser 
qualquer um que o programa desejar, 
desde que o usuário seja informado, por 
meio de uma mensagem adequada. 

A utilização do comando INPUT, 
como foi mostrada até agora, é bastan- 
te simples. Mas ela pode ser ainda mais 
simplificada no caso de alguns compu- 
tadores, que permitem a inclusão da 
mensagem de prontidão no próprio co- 
mando INPUT. Esse recurso só não 
existe nos micros da linha ZX-81 . Vol- 
tando ao programa de nome e idade, eli- 
mine as linhas 20 e 40 e reescreva as li- 
nhas 30 e 50, como mostramos a seguir: 
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a dos micros (com exceção 
do TRS-Color), se não for colocado um 
espaço em branco antes do segundo si- 
nal de aspas, na mensagem de pronti- 
dào. o ponto de interrogação aparecerá 
colado a ela. Por isso, se você quiser dar 
maior clareza à mensagem, coloque o es- 
paço em branco adicional. 

Com exceção do Sinclair Spectrum, 
é possível compactar ainda mais a roti- 
na de entrada de dados. Assim, as linhas 
30 e 50 do programa anterior poderiam 
ser substituídas por apenas uma: 



(Não se esqueça de apagar a linha 
50.) 

No Spectrum, é necessário colocar so- 
mente uma variável por comando IN- 
PUT, de modo que o usuário deve pres- 
sionar duas vezes o < ENTER > . No ca- 
so do TRS-Color, do TRS-80, do MSX 
e do Apple II, além de se poder utilizar 
o método do Spectrum, a linha única 
oferece a possibilidade de se digilar no- 
me e idade separados apenas por uma 
virgula, e de se pressionar o < ENTER > 
somente no final. Pode-se ainda colocar 
qualquer número de variáveis — sepa- 
radas por vírgulas em uma única linha 
de INPUT. 

Ao se utilizar apenas uma linha de 
INPUT para várias entradas, não se de- 
ve esquecer de incluir instruções sobre 
todas as informações pedidas, bem co- 
mo os seus formatos. Além disso, é ne- 
cessário lembrar o usuário de que os da- 
dos devem ser separados uns dos outros 
por virgulas, e que só no final se " 




pressionar a tecla < ENTER > . Se essa 
norma não é seguida a maioria dos mi- 
cros interrompe o programa, colocan- 
do um duplo sinal de interrogação na li- 
nha seguinte. 

No Sinclair é possível dividir a men- 
sagem de prontidão em mais de uma, na 
mesma linha. Se cada mensagem de 
prontidão for mantida entre aspas, o 
computador se limitará a imprimi-las, 
sem tratá-las como variáveis. 

Entretanto, note que não é possível 
fazer isso nos computadores das linhas 
TRS-Color, Apple, TRS-80, MSX e 
ZX-81 . Para melhorar a disposição das 
informações na tela, as mensagens de 
prontidão dos INPUT podem ser posi- 
cionadas por intermédio de comandos 
TAB normais (conforme foi explicado 
anteriormente, na lição sobre o uso des- 
sa função). 



COMO ENTRAR UMA UNHA COMPLETA 



O principal problema na utilização 
do comando INPUT surge quando se 
tenta entrar cordões alfanuméricos que 
contenham vírgulas e dois pontos, ou es- 
paços em branco no início. Um endere- 
ço, por exemplo, normalmente contém 
vírgulas, de modo que fica impossível 
usar o INPUT para colocá-lo em uma 
variável alfanumérica simples. Do mes- 
mo modo, a inclusão de espaços no iní- 
cio de uma entrada pode ser útil para a 
beleza da apresentação na tela. 

A dificuldade está em que muitos com- 
putadores ignoram espaços à esquerda em 
um comando INPUT, embora não criem 
problemas com os intervalos entre as pa- 
lavras. E, quase sempre, eles também ig- 
noram qualquer coisa que ocorra após vir- 
gula, dois pontos ou ponto e vírgula, trun- 
cando a informação reslante, mesmo que 
o usuário a tenha digitado. Felizmente, al- 



guns micros possuem um comando que 
contorna essa dificuldade. Os computa- 
dores da linha Sinclair, por sua vez, têm 
um modo especial de evitá-la. 

A solução mais comum é incluir a en- 
trada entre aspas. O ZX-81 e o Spectrum, 
por exemplo, colocam aspas automatica- 
mente na tela quando uma variável alfa- 
numérica aparece em um comando IN- 
PUT. Em relação aos outros computado- 
res, o operador deve digitar as aspas co- 
mo pane da entrada (essa exigência, por- 
tanto, deve ser apontada ao usuário, atra- 
vés da mensagem de prontidão). 

Uma outra solução, disponível nos 
computadores TRS-80, TRS-Color e 
MSX, consiste em utilizar o comando 
LINE INPUT. Este é empregado exa- 
tamente do mesmo modo que o INPUT. 




A vantagem é que se pode colocar, 
dentro da variável, qualquer coisa até o 
< RETURN > , incluindo virgulas e es- 
paços. Isto é mais garantido, pois você 
não precisará lembrar o usuário a digi- 
tar entre aspas. 



ACELERE AS ENTRADAS 



Uma das qualidades do comando LI- 
NE INPUT consiste em permitir que vo- 
cê altere o que estiver entrando, até o 
momento de pressionar < RETURN > 
ou < ENTER> . Assim, se você come- 
ter um erro de digitação, ou perceber 
que está fornecendo uma informação er- 
rada, ou simplesmente mudar de ideia, 
você poderá apagar o que foi feito e ten- 
tar novamente. A desvantagem é que es- 
se sistema é relativamente lento e, se vo- 
cê estiver escrevendo programas para 
pessoas pouco familiarizadas com com- 
putadores, elas poderão não perceber ou 
esquecer que < ENTER > ou < RE- 
TURN > devem ser digitados. 



RAMACAO BASIC 



Em programas que utilizam uma por- 
ção de menus ou respostas do tipo "sim 
ou não", a necessidade de pressionar 
uma leda extra diminui a velocidade de 
execução, além de praticamente dupli- 
car o número de teclas a serem pressio- 
nadas. Para evitar que isto aconteça, 
existe uma maneira de levar o compu- 
tador a detectar automaticamente a te- 
cla que está sendo pressionada, sem que 
seja necessário acionar depois as teclas 
<ENTER> ou < RETURN > 

O comando utilizado é o INKEYS 
nos computadores Sinclair, TRS-80, 
TRS-Color e MSX, e o GET nos da li- 
nha Apple II. 

O efeito da função INKEYS, que já es- 
tudamos anteriormente, é provocar uma 
varredura no teclado para averiguar se al- 
guma tecla está sendo pressionada nesse 
instante. Se este for o caso, a função ira- 
rá o caractere correspondente de volta ao 
programa principal. No caso de nenhu- 
ma tecla estar sendo pressionada no mo- 
mento em que o INKEYS è encontrado, 
um cordão vazio é trazido de volta. As- 
sim o INKEYS é usado dentro de um co- 
mando 1F, que testa continuamente se o 
valor retornado t diferente do vazio: 



QQE 



Já nos micros da linha Apple II, o 
GET faz o computador esperar até que 
a tecla seja pressionada, não sendo ne- 
cessário colocá-lo dentro de um laço de 
espera, como nos outros casos: 

100 GET AS 

Qualquer variável alfanumérica po- 
de ser usada — AS é apenas um exem- 
plo. A máquina pára na linha 100. Se 
você teclar o R, o AS conterá a letra R. 
Você pode entrar um número, ou um es- 
paço, ou qualquer outro caractere, até 
mesmo teclas de controle como <EN- 
TER> . Embora seja virtualmente qual- 
quer coisa, a entrada pode ter apenas 
um caractere. Assim que a tecla for pres- 
sionada, o programa prosseguirá. 



Agora examine o seguinte programa, 
que utiliza quatro teclas para desenhar 
em alta resolução na tela (esse progra- 
ma não funciona no ZX-81 e no 
I TRS-80, que não dispõem de alta reso- 
| lução gráfica). Para desenhar no Apple 



Ima linha pude ser movimentada em diversa 
direçues. Para isso, basia aeionar 
algumas teclas indicadas pelo programa. 



U e no TRS-Color são utilizadas as te- 
clas, Z, X, P e L; no MSX, as teclas a 
empregar são as de controle do cursor. 
Você também pode usar a tecla 2 para 
pedir um desenho na cor de fundo da 
tela (criando, portanto, uma linha invi- 
sível), ou a tecla 1, para retomar à li- 
nha do desenho visível. 




D 



10 PMODE 
20 LET X 
40 LET XI- 
50 LET AS- 
60 IF AS- 
70 IF AS"" 
80 IF AS"" 
90 IF A$-": 
100 IF AS- 
110 IF AS- 
120 IF AS- 
130 LINE (X 
140 GOTO 4 



, 1 : PCLS : SCREEN 1 , 1 

00 : LET Y-100 
X : LET Yl-Y 
INKEYS 

P" THEN LET Y-Yl-4 
L" THEN LET Y-Yl+4 
Z" THEN LET X-Xl-4 
X- THEN LET X-Xl+4 
1" THEN COLOR 5 
2" THEN COLOR 0 

" THEN STOP 
Y)-(Xl.Yl) ,PSET 



10 INK 2 
20 PLOT 127, B7 

30 IF INKEYS-"P" THEN DRAM 0 
. 2 

40 IF INKEYS-"1" THEN DRAW 0 
,-2 

50 IF INKEYS- "z" THEN DRAW - 
2,0 

60 IF INKEYS-"*" THEN DRAW 2 
.0 

70 IF INKEYS - " 1 " THEN INK 2 
80 IF INKEYS-"2" THEN INK 7 
90 IF INKEYS-" " THEN STOP 

100 PAUSE 10 

110 GOTO 30 



10 SCREEN2 

20 LETX-100:LETY-100 
30 LETX1-X : LETY1 
40 AS" INKEYS 
50 IFAS-CHRS 
60 IFAS-CHRS 
70 IFAS-CHRS 



Com um programa simples, que controla 
apenas algumas ledas, é possivel 
desenhar imagens como as da ilustração. 



80 IFAS-CHRS (28ITHENX-X1+4 
90 IFAS-"l"THENCOLOR 4.4 
100 IFAS-"2"THENCOLOR 15,4 
110 IFAS=CHRS(32)THENSTOP 
120 LINE (X , Y) - (XI. Yl) 
130 GOTO30 



HM] 



10 ONERR GOTO 150 
20 HGR : HCOLOR- 7 
30 X - 100 :Y - 100 
40 XI - X:Y1 - Y 
50 GET AS 

60 IF AS - "P" THEN 



(301THENY-Y1-4 f 
( 31 ) THENY-Y 1 + 4 f 
(29) THENX-X1-4 
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ai 



150 IFA$-"8"THENGOSUB8000 
160 IFAS- n 9"THENGOSUB9000 
170 GOT05 



Altere a linha 70 do programa ante- 
rior para: 



Um barco, um míssil, uma garrafa: 
quiser executar desenhos turno ess 
as instruções desenvolvidas no lexl 



ICC as diagonais eomo se 
ada de minúsculos degra 
o pressione duas ledas ao 



SCED 



THEN X - XI - 2 
THEN X - XI + 2 
' THEN HCOLOR- 
1 THEN HCOLOR- 



80 IF AS - "Z" 
90 IF AS - "X" 

100 IF AS - "1 

7 

110 IF AS - "2 

0 

120 IF AS - " " THEN END 
130 HPLOT X.Y TO XI , VI 
140 GOTO 40 

150 X - XI :Y - Yl: PRINT CHRS 
(7) ; : RESUME 

Esse tipo de rotina é muito útil para 
gráficos e jogos. A linha é traçada en- 
quanto as teclas são pressionadas. Mas 
observe que o computador aceita uma 
tecla de cada vez; já as linhas diagonais 
são de traçado mais difícil, pois consis- 
tem em uma série de pequenos degraus. 



Os comandos INKEY$ ou CET são 
também muito úteis em qualquer pro- 
grama que empregue menus. O progra- 
ma seguinte imprime um menu como 
parte de um programa de arquivo de 
dados. 



Modifique as linhas do programa an- 
:rior para: 



Apague as linhas !0 e 70 do progra- 
ma anterior, substituindo-as por: 



10 DATA "Cri 



5 CLS 

10 DATA CRIAR UM ARQUIVO . ENTRAR 
DADOS , VER DADOS, EDITAR. PROCUR 
AR, IMPRIMIR , CARREGAR . GRAVAR , FIM 
15 RESTORE 
20 FOHN-1T09 
30 READ OPCOESS 

40 PRINTTAB (5) ;N;TAB (10) ; OPCOES 



70 AS-INKEYS:IFAS-""THEN70 
80 IFA3-"1"THENGOSUB1000 
90 IFAS-"2"THENGOSUB2000 
100 IFAS-"3 M THENGOSUB3000 
110 IFAS-"4"THENGOSUB4000 
120 IFAS-"5"THENCOSUB5000 
130 IFAS-''6"THENGOSUB6000 
140 IFAS" " 7"THENGOSUB7000 



"Proi 



"Carrega 



IF A$- 



"Saidj" 

15 RESTORE 

20 FOR n-1 TO 9 

30 READ hS 

40 PRINT TAB 5 ; n ; TAB 1 0 ; h 
50 NEXT n 

60 PRINT : PRINT TAB 5;"S 
acolha->" 

70 L.ET AS-1NKEYS: 
THEN GOTO 70 
80 IF A$-"l" THEN 
90 IF AS-"2" THEN 
100 IF AS- . 
110 IF AS-"' 
120 IF AS-"! 
130 IF AS-"< 
140 IF AS-") 
150 IF AS-"Í 
160 IF AS-"< 
170 GOTO 15 
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Com esse programa, o computador 
vai direto á sub-rotina perlinenie assim 
que uma lecla é acionada — a menos 
que você pressione uma outra tecla en- 
tre os números de 1 a 9. Neste caso, a 
linha 170 imprimirá novamente o menu 
e este se repetirá na tela. 



UMA ROTINA PARA SENHAS 



O programa anterior funcionará per- 
feitamente enquanto existirem menos de fi~ÍBBF>''^J 

nove opções. Mas se você tentar teclar 
10, o computador entenderá que você 
está entrando o 1 , pois o programa pros- 
seguirá automaticamente assim que ti- 



ver sido teclado o primeiro dígito. Mas 
existe uma maneira de entrar palavras 
inteiras. E como não ê mostrado nada 
na tela, ela é ideal para se entrar uma 
senha ou um "código secreto", que po- 
de ser usado para limitar o acesso dos 
usuários a um determinado programa. 
Cada digito é entrado utilizando-se o 
INKEYS ou o GET, sendo o caractere 
resultante acrescentado ao último digi- 
to entrado. Eis o programa: 



10 LET pS-"" 

20 PRINT "DIGITE A SENHA" 
30 PAUSE 0 

40 LET kS-INKEYS: IF kS-"" 

THEN GOTO 40 

50 LET pS-pS+kS 

60 IF LEN pS<>7 THEN GOTO 3 

70 IF pSO"bananaa" THEN 

STOP 

80 PEINT "O.K." 

90 REM (Em seguida vem o rea 

o do programa" 



10 PRINT "DIGITE A SENHA" 
20 LET K$-INKEYS:IF KS"" " THEN 

GOTO 20 

30 LET PS-PS+KS 
40 IF LEN(PS><>7 THEN GOTO 20 
50 IF PSO" BANANAS" THEN STOP 
60 PRINT "O.K." 

70 REM (A SEGUIR VEM 0 PROGRAMA 



HEI 



Modifique a linha 20 do programa 
para: 

20 GET KS:IF KS=" "THEN 20 

Essa rotina começa com um cordão 
vazio (PS), ao qual vão sendo progres- 
sivamenie acresceniados os caracteres, 
um a um, até que a extensão da senha 
esteja correia. Como os caracteres en- 
trados não são impressos na tela, o pro- 
grama impede que as pessoas olhem o 
que está na tela e aprendam a senha. 
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O INKEYS (e outros comandos simi- 
lares) é igualmente empregado para 
"congelar" um programa. Isto é útil 
quando uma tela repleta de informações 
deve ser examinada. Após a parte do 
programa que imprime a informação, 
coloca-se um comando INKEVS ou 
GET no programa de modo a bloquear 
a listagem antes de limpar a tela. 



COMPUTADORES QUE NÃO TEM 0 INKEVS 



Infelizmente, o interpretador Apple- 
soft BASIC, dos micros da linha Apple 
II, não dispõe de uma função Ião pode- 
rosa como o INKEVS, para efetuar 
"varreduras" no teclado. Existe apenas 
o comando GETS, mas este bloqueia o 
andamento do programa toda VC2 que 
é encontrado por ele. Dessa forma, se 
quisermos, por exemplo, fazer progra- 
mas de jogos em que um míssil ou um 
disco voador precisa continuar se mo- 
vendo pela tela enquanto o jogador não 
pressiona a tecla que comanda um dis- 
paro, é necessário "imitar" a ação do 
INKEVS, executando o pequeno pro- 
grama a seguir (não tente entendê-lo ain- 
da: estudaremos os comandos PEEK e 
POKE numa lição posterior): 

100 LET KS-" 

110 LET K-PEEK (-16384) 

120 IF K<128 THEN RE TU RN 



130 LET KS-CHBSÍK-128) 
140 POKE -16368,0 
150 RETURN 

Esta sub-roiina, quando chamada 
(por meio de um GOSUB 100), retorna- 
rá, através da variável K$, o caractere 
pressionado no teclado. Se K$ retornar 
tom valor nulo, isso significa que ne- 
nhuma tecla foi pressionada. Por isso, 
podemos colocar a chamada à sub- 
rotina em um laço, assim: 



O comando PEEK examina a locação 
de memória -16384, que guarda um có- 
digo numérico. Se esse número for igual 
a 128 ou maior, significa que uma tecla 
foi pressionada e que o seu código AS- 
CII será deduzido pela expressão' da li- 
nha 130 e convertido para o caractere ar- 
mazenado em KS. O comando POKE 
zera uma outra locação da memória, pa- 
ra permitir uma nova varredura. 



O interpretador BASIC do TK-2000 
não dispõe de uma função ião podero- 
sa como o INKEYS para efetuar "var- 
reduras" no teclado. Existe apenas o co- 
mando GET (de funcionamento idênti- 
co ao do Apple II), que tem a desvanta- 
gem de bloquear o andamento do pro- 
grama, sempre que é encontrado por cie. 
Assim, para programarmos jogos em 
que um missil ou um disco voador, por 
exemplo, precisa continuar se movendo 
pela tela enquanto o jogadoi 
siona a tecla que comanda um disparo. 



é necessário "imitar" a ação do 
INKEVS através de uma rotina diferente 
da que foi apresentada para os micros 
da linha Apple II. 

A locação 39 da memória RAM do 
TK-2000 retém um valor numérico cor- 
respondente à última tecla pressionada. 
Assim, a sub-rotina abaixo retorna esse 
código toda vez que uma tecla for pres- 
sionada: 

100 LET K-0 

110 LET K-PEEK (.39) 

120 IF K-4B THEN GOTO 100 

130 RETURN 

A locação de memória 39. no TK-2000, 
contém sempre o número 48. enquanto 
nenhuma tecla for pressionada. 

Assim, é fácil incluir uma chamada 
a essa rotina (GOSUB 100) no ponto do 
programa em que se torna necessário ve- 
rificar se alguma tecla foi pressionada 
e, em caso positivo, qual foi essa tecla. 

Para descobrir o código gerado por 
cada tecla do TK-2000, rode o pequeno 
programa abaixo c pressione sucessiva- 
mente as teclas que quer descobrir. O 
código correspondente será mostrado na 
tela. Pressione <CTRL><C> para 
interromper o programa: 

10 HOME 

20 LET K-PEEK(39) 

30 IF K<>48 THEN PRINT K 

40 GOTO 20 

O uso do PEEK tem uma vantagem 
a mais: se você apoiar o dedo sobre uma 
determinada tecla, o código referente a 
ela será mostrado repetidamente na te- 
ia, ou seja, a função é auto-repetiiiva. 
Isto é muito importante para diversos ti- 
pos de programas, principalmente pro- 
gramas de jogos. 
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Bipes, explosões, ruídos extraterrenos: 
seja qual for a sus escolha, 
todos esses sons podem ser produzidos 
por programas simples em BASIC, 
tornando seus jogos mais eletrlzantes. 



Os programas de jogos de açào in- 
cluem, normalmente, diversos tipos de 
efeitos sonoros — explosões, tiros, zum- 
bidos, pequenas melodias e outros ruí- 
dos — que os tornam mais excitantes e 
atraentes. 

Esta lição tem por finalidade propor- 
cionar a você uma pequena "bibliote- 
ca" de sons adequados a programas de 
jogos. Você pode utilizá-los tal como es- 
tão ou desenvolvê-los livremente, como 
pane de conjuntos sonoros mais com- 
plexos. 

Lembre- se de que não existem regras 
sumárias ou definitivas para se produ- 
zir efeitos sonoros. Se o seu jogo preci- 
sa, por exemplo, de um ruído semelhan- 
te ao de alguém mergulhando numa pis- 
cina, você terá que sentar-se em frente 
ao computador e experimentar várias 
vezes, até conseguir um efeito convin- 
cente. Por outro lado, alguns sons apa- 
rentemente improváveis poderão ser 
bem aproveitados, caso você consiga in- 
ventar os tipos adequados de gráficos. 



A incorporação de efeitos s> 
seus programas depende da complexida- 
de destes e da frequência com que tais 
efeitos serão utilizados. Assim, ruídos 
simples que entram apenas uma vez em 
um programa, devem ser colocados após 
uma declaração 1F... THEN. Efeitos re- 
petitivos ou mais complexos, por sua 
vez, precisam de uma sub-rotína. 

O grau de sofisticação dos efeitos so- 
noros depende não só da habilidade do 
programador, mas também dos recur- 
sos de programação de sons de cada 
computador. Desse modo, o gerador de 
som dos micros compatíveis com o Sin- 
clair Spectrum (por exemplo, o TK-90X) 
é limitado a um simples tom puro (cha- 
mado de hipe, em jargão computacio- 
nal) obtido por meio do comando 
BEEP, e cuja frequência e duração po- 
dem ser controlados pelo usuário. Um 
ruído semelhante pode ser produzido, 
no microcomputador brasileiro 
TK-2000. mediante o comando 
SOUND. Em contrapartida, os micros 



das linhas TRS-Color e MSX possuem 
um gerador de sons bastante sofistica- 
do, capaz de sintetizar uma série imen- 
sa de efeitos diferentes. Esse gerador dis- 
põe de vários comandos específicos na 
linguagem BASIC. O Apple II, 0ZX-8I 
e o TRS-80 só permitem efeitos sonoros 
satisfatórios através de programas espe- 
ciais em linguagem de máquina; por is- 
so não serão tratados nesta lição. 



SE] 



O Sinclair Spectrum conta, como já foi 
assinalado, com um único recurso para 
a programação de efeitos sonoros em BA- 
SIC: o comando BEEP. Simples de pro- 
gramar, esse comando pode ser usado pa- 
ra "envenenar" consideravelmente os seus 
programas. No TK-2000 temos um co- 
mando equivalente: o SOUND. Para 
exemplificar, veja a seguir uma rotina que 
produzirá uma série de sons idênticos: 
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INVENTE 0 SOM CERTO 




E SOUND 


■ 


COMO INCORPORAR EFEITOS 


■ 


EXPLOSÕES, TIROS. 




SONOROS AO JOGO DE 




DESTRUIÇÃO 




LABIRINTOS ALEATÓRIOS 


■ 


DO RUIDO AS NOTAS MUSICAIS 


■ 


APRENOA A USAR BEEP, PLAY 




MAIS EXPLOSÕES 



8000 FOH n-1 TO 12 
8010 BEEP .03,30 
8020 NEXT n 

Como você pode ver na linha 8010 do 
programa acima, o BEEP é seguido por 
dois números separados por uma virgu- 
la. O primeiro número determina a du- 
ração da nota a ser tocada: quanto 
maior ele for, mais tempo durará a no- 
la. O valor 1 corresponde à duração de 
um segundo. Números maiores ou me- 
nores do que esse (no caso, f rações de- 
cimais) funcionarão proporcionalmente. 

O segundo número estabelece a fre- 
quência da nota, com o número 0 cor- 
respondendo ao dó médio no teclado de 
um piano. Cada número inteiro acima 
ou abaixo disso representa um semitom 
mais alto ou mais baixo — ou seja, é 
correspondente á tecla mais próxima, 
em um teclado de piano. Para efeitos so- 
noros em jogos, frequências muito bai- 
xas, da ordem de -32, são utilizadas 
para imitar explosões e zumbidos. 



E3 

8000 FOR N-1 TO 12 

8010 SOUND 90, 3 

8020 NEXT N 

O comando SOUND no TK-2000 (ve- 
ja a linha 8010) funciona da mesma ma- 
neira, só que agora o primeiro número 
determina a frequência do som, e o se- 
gundo a sua duração. Não são permiti- 
dos números negativos ou fracionários, 
nem maiores que 255. A correspondên- 
cia da frequência com as notas musicais 
é um pouco mais complicada, c está ilus- 
trada no manual de programação BA- 
SIC do TK-2000. 

Os comandos BEEP e SOUND serão 
explicados com maior riqueza de deta- 
lhes numa próxima lição. 

Na rotina acima, o laço FOR... 
NEXT executa uma série de doze notas. 
Já o programa abaixo contém dois la- 
ços, com a variável de controle de cada 
laço estabelecendo a frequência das no- 



tas. Isto resulta em um efeito q*ie pode- 
rá lhe ser útil quando, em um de seus 
jogos, for necessário criar um som pa- 
ra acompanhar a destruição de um ex- 
traterrestre. 




8000 FOR n-4 TO 0 STEP -1 

8010 BEEP .01, n 

8020 NEXT n 

8030 FOR n-1 TO 4 

8040 SOUND ,01,n 

8050 NEXT n 

m 

8000 FOR N-60 TO 0 STEP -10 
8010 SOUND U. 3 
8020 NEXT N 

8030 FOR N-0 TO 60 STEP 10 
8040 SOUND N. 3 
8050 NEXT N 

Eis aqui uma rotina que emprega o 
laço FOR. ..NEXT de um modo pareci- 
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do; o ruído criado, porém, será agora 
um som de "Congratulações". Você po- 
derá utilizá-lo quando o jogador tiver 
destruído todos os "monstros" ou pa- 
ra celebrar alguma outra vitória. 



utilizá-los também 
sub-rotinas. 



8000 FOH n-10 TO 60 STEP 5 
8010 BEEP .01. n 
8015 BEEP -01,n-2 
8020 NEXT n 



El 



8000 FOR N-70 TO ISO STEP 5 
8010 SOUND N. 3 
8015 SOUND N-2,3 
8020 NEXT N 

Tente fazer experiências mudando os 
parâmetros do comando BEEP (ou 
SOUND) para produzir efeitos sonoros 
em seus programas de jogos. Procure 




EFEITOS SONOROS NO TRS-80 

O TRS-80 não tem recursos para a pro- 
dução de efeitos sonoros, mas é pos- 
sível fazê-lo emitir alguns sons. Para is- 
to, utiliza-se a interface de saída para 
o gravador cassete, que gera pulsos no 
espectro audível, sob controle adequa- 
do de um software. Basta ligar o fio que 
vai do computador até o conector MIC 
ou AUX, em um sistema de amplifica- 
ção de som, 

O software òe produção de som 
funciona da seguinte maneira: o co- 
mando OUT envia para a porta de saí- 
da do gravador (a de número 255) uma 
sequência de bytes 0 e 1 . O byte 0 cau- 
sa um pulso negativo na saída, e o byte 
1, um pulso positivo. Alternando-se 
ambos, temos uma onda de som. Para 
variar a frequência do som, varia-se a 
pausa entre o pulso positivo e o nega- 
tivo. Com essa técnica, é possível pro- 
duzir sons em BASIC: basta colocar os 
comandos OUT dentro dos laços de re- 
petição entre meados de um laço de re- 
tardo de tempo: 
10 FOH 1=1 TO 1000 
20 OUT 255.0 
30 FOH J-l TO 10:NEXT J 
40 OUT 255,1 
50 NEXT I 

Sons mais agudos e efeitos como 
explosões, sirenas, etc, exigem uma 
rotina em linguagem de máquina, que 
pode ser chamada 3 partir de um pro- 
grama em BASIC pelo comando USR. 



SONS PARA 0 LABIRINTO 



Imagine o jogo de labirinto aleatório 
apresentado na última lição com alguns 
efeitos sonoros. Note que não há uma 
versão para o TK-2000. Adicione as li- 
nhas 365 e 500 ao programa original c 
modifique a linha 400. 



365 BEEP .01.10 

400 LET vidaa-vidaa-l: RESTORE 
500: FOR f-0 TO 10: READ a,b: 
BEEP a,b: NEXT f: IF vida9>0 
THEN GOTO 260 

500 DATA .45, 0. .3,0. . 15.0. .45. 
0, . 3, 3. . 15.2, . 3.2. . 15.0, .3, 0. . 
15.-1, .45,0 

Se você rodar o programa agora, des- 
cobrirá que acrescentou uma rotina de 
som simples mas muito eficaz, que exe- 
cuta uma marcha fúnebre sempre que o 
jogador perder uma "vida". Tente mo- 
dificar os valores de a e b para criar efei- 
tos diferentes. 

Esse exemplo mostra que você deve 
ser cuidadoso quando utilizar efeitos so- 
noros em jogos, já que o computador 
interrompe o que está fazendo durante 
a execução do BEEP, criando assim al- 
gumas pausas inoportunas. Mesmo que 
você inclua apenas efeitos de curta du- 
ração, isso poderá tornar o seu jogo 
muito lento. 



O MSX possui um dispositivo sono- 
ro muito sofisticado que emprega três 
"vozes" altamente controláveis, ou ca- 
nais sonoros. Esse dispositivo permite 
uma grande variedade de ruídos, mui- 
tos dos quais podem ser incorporados 
aos seus programas de jogos. 

Tais ruídos podem ser criados por 
meio das "vozes", isoladamente ou em 
grupos, de modo a formar diversas com- 
binações. Uma explicação mais detalha- 
da sobre programação de efeitos sono- 
ros no MSX será desenvolvida em um 
artigo posterior de BASIC. 

O MSX utiliza um segundo micro- 
processador interno somente para pro- 
duzir sons e efeitos sofisticados: algu- 
mas linhas de programa são suficientes 
para isso. Esse microprocessador é com- 
posto por 14 registros que funcionam de 
maneira semelhante às posições de me- 
mória do computador. O som é produ- 
zido de acordo com o conteúdo de tais 



nos registros. Os valores adequados são 
colocados nesses registros por. intermé- 
dio do comando SOUND R, N (R é o 
número do registro, e N o número que 
determinará as características do som). 

O MSX conta ainda com uma lingua- 
gem "macromusical" disponível me- 
diante o comando PLAV. Quando se 
deseja programar uma melodia (è neces- 
sário entender um pouco de música) é 
mais fácil utilizar esse comando e não 
se preocupar com tantos registros. O 
PLAY c, contudo, um pouco lento e 
não produz ruídos, só notas musicais. 
Para eniendè-lo melhor, leia a seção de- 
dicada ao TRS-Color, mais adiante. 



JOGO SONORO NUM LABIRINTO 



Se você gravou o programa de cria- 
ção de labirintos aleatórios para o MSX 
(apresentado na última lição de progra- 
mação de jogos), certamente achará in- 
teressante acrescentar as três linhas que 
listamos a seguir. 

1 330 IF XOLX OR YOLY THEN LX- 
X : LY-Y : PLAY " V 1 5T2550SL64DG" 
1340 IF F-l THEN F-0 : SC-5C+ (TI - 
TIME) :TI=TI~10: PLAY "V15T100O3B 
CDEFGA" : GOTO 1220 
1500 PLAY n V15T25502L2Cri64L4CR6 
4L12CR64L2CR64L4DIR64L8DR64L4DR 
64L8CR64L4CR6401L8BR6402L2C" : LI 
-LI-1 

A primeira linha produz som para o 
movimento do homenzinho; a segunda, 
para o momento em que ele encontra o 
tesouro; a terceira toca uma "marcha 
fúnebre" quando ele perde uma "vida". 

Como dissemos, o comando PLAY 
só é adequado para programação de me- 
lodias. Quando desejarmos ruídos (sons 
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não musicais) ou uma velocidade maior, 
deveremos utilizar o comando SOUND. 

Muitos valores (até 13) devem ser co- 
locados nos registros adequados, para 
a emissão de um determinado som. Co- 
mece a aprender como fazè-lo, digitan- 
do as seguintes linhas: 

10 SOUND 7.7 
20 SOUND 6. 20 
30 SOUND 8.15 

Rode o programa e ouvirá um ruído 
semelhante ao das ondas do mar que- 
brando na praia (use a imaginação). 

Vejamos os registros utilizados. Na 
linha 10 colocamos o valor 7 no regis- 
tro 7. Este último determina os canais 
de som a serem utilizados e se eles pro- 
duzirão música ou ruído. O que impor- 
ta no momento é que o valor 7 ativa os 
três canais para criar ruídos. O valor 56 
ativaria os três para sons musicais. 
Qualquer outro valor entre 1 e 63 utili- 
zaria os canais de uma maneira mista. 
Na realidade, deve-se converter o valor 
utilizado para a forma binária de modo 
a ficarmos sabendo o que cada canal 
produzirá: música ou ruído. 

Na linha 20, o registro 6 determina a 
frequência do ruído produzido, poden- 
do conter valores dc 0 a 63 . Números me- 
nores determinam sons mais agudos. Na 
linha 30, o registro 8 controla o volume 
do som produzido pelo canal A, poden- 
do conter um número entre 0 e 15. Ge- 
ralmente, é melhor colocarmos o valor 
máximo e ajustarmos o volume da TV. 
Outras vezes, contudo, podemos criar 
efeitos interessantes variando o volume. 
Acrescente as seguintes linhas ao progra- 
ma para obter um som mais próximo do 
real. Lsto é conseguido variando lenta- 
mente o volume nas linhas 40 e 70. 



JO FOR 1-10 TO L5 STEP 1E-HJ 
40 SOUND 8.1 
*>0 NEXT 

60 FOR 1=15 TO 10 STEP -IE'03 
70 SOUND 8 , 1 
80 NEXT 
90 GOTO 30 

Modifique o valor do STEP nas li- 
nhas 30 e 60 de -1E-3 para .5 e você ou- 
virá o barulho de um trem a vapor em 
movimento. O programa listado a seguir 
permite que você experimente e modifi- 
que vários efeitos sonoros, variando os 
valores dos diversos registros. 

5 CLS:H-HND(-TIME) 

10 INPUT "Número do programa tl 

-13): ";P 

15 INPUT "Envoltdria (1-fixa , 
2-progr amável ) : " ; E 

16 EE-14+E 

20 IF E-l THEN 35 

25 INPUT "Forma da onda sonora 
(8-15) : ";W 

26 SOUND 13, W 

30 INPUT "Período do ciclo (0-6 
5384): ";F 

31 Hi-F/256:LÍ-F-256*H* 

32 SOUND 11,L»:S0UND 12, Ht 

35 INPUT "Muaica ou ruído (M ou 
B) : ":MS 

36 IF «S-"M- THEN SOUND 7 , 56 : A- 
0:T-255:GOTO 40 

38 IF MS-"H" THEN SOUND 7,7;A-6 
:T-63:OOTO 40 

39 GOTO 35 

40 SOUND 8.EE 

60 ON P GOSUB 80.90.100,110,120 
.130,140.150.160.170,180.190.20 
0.210 

70 SOUND 8.0: END 

80 SOUND 1,5: FOR Z-l TO T STEP 

. 3 

85 SOUND A , Z : NEXT : RETURN 

90 SOUND 1,0: FOR Z-T TO 1 STEP 



95 SOUND A. Z: NEXT: RETURN 

100 SOUND 1.0:F0R Z-l TO 20 STE 

P .1 

105 SOUND A, ABS (SlN (Z) *T/2) 
107 NEXT : RETURN 
110 SOUND 1.1:F0R Z-l TO 200 
115 SOUND A . RND (1 ) * (T+l) : NEXT 
117 RETURN 

120 IF A-0 THEN A-1:T-1S 

122 FOR Z-l TO 50 

125 SOUND A.T AND ABS ÍTAN (Z) +5) 

127 NEXT : RETURN 

130 SOUND A,T/2:SOUND 1.2 

A linha 5 limpa a tela e prepara o ge- 
rador de números aleatórios. Os diver- 
sos INPUT das linhas seguintes pedem 
informações a respeito do efeito dese- 
jado. Nas linhas 80 a 207 estão treze di- 
ferentes sub-rotinas que geram- treze 
efeitos diversos. 

Essas sub-rotinas cuidam principal- 
mente da frequência dos sons — isto ê, 
se eles são agudos ou graves — e de co- 
mo essa frequência vai variar com o 
tempo. Caso se trate de som musical, é 
utilizado o canal A, cuja frequência é es- 
tabelecida pelos registros 0 (ajuste fino) 
e 1 (ajuste grosseiro). Em caso de ruí- 
do, a frequência ê determinada pelo re- 
gistro 6. A variável A contém o valor 
adequado do registro de frequência, 
conforme a opção seja música ou ruí- 
do. A variável T varia também confor- 
me essa opção, compatibilizando os va- 
lores máximos que cada registro de fre- 
quência comporta. 

Conforme o valor do registro 7 (li- 
nhas 36 e 38) teremos ruídos ou sons 
musicais. O valor 7 determina ruído, e 
o valor 56, música (nos três canais). 

Uma das características do dispositi- 
vo sonoro do MSX é a possibilidade de 
programar o formato da onda sonora 
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ou "envoltória". Isto significa que o vo- 
lume do som muda ao longo do tempo 
de acordo com uma curva cujo forma- 
lo pode ser escolhido por nós (formato 
de serra, triângulo, pulso, etc). Normal- 
mente, o volume é fixado de acordo com 
o valor do registro 8 (para o canal A). 
Se colocarmos nesse registro o valor 16 
(linha 40) leremos à nossa disposição di- 
versos tipos de envoltórias (veja o for- 
mato delas em seu manual). O registro 
13 seleciona a forma da envoltória, e os 
registros 1 1 e 12 determinam o período 
do ciclo. Este último valor corresponde 
ã velocidade com que o volume vai mu- 
dar. Valores baixos correspondem a al- 
tas velocidades. 

Comece então a experimentar. Esco- 
lhendo o programa 10, por exemplo, 
com envoltória Fixa e sons musicais, vo- 
cê ouvirá um canto de pássaro. As va- 
riações são quase ilimitadas. 

Para entender melhor como todos es- 
ses valores modificam as características 
do som produzido, faça o seguinte: pri- 
meiro ouça todos os treze programas 
utilizando envoltórias fixas e sons mu- 
sicais. Depois comece a ouvi-los com as 
diferentes envoltórias programáveis, 
mantendo o mesmo programa para po 
der comparar, inicialmente, varie ape 
nas a forma da onda, mantendo o va 
lor 1000 para o período do ciclo. A se 
guir, varie o período, conservando o 
to constante. Depois de experimentar os 
sons musicais, repita a mesma sequên- 
cia para os ruídos. 



■ ■ 



Existem dois comandos no BASIC do 
TRS-Color que podem ser usados para 
produzir efeitos sonoros: o SOUND e o 



PLAV. Ambos utilizam o mesmo gera- 
dor sonoro, embora não seja possível 
afetar de maneira significativa a quali- 
dade (timbre) da nota produzida. O 
SOUND controla a frequência e a dura- 
ção do som, enquanto o PLAV permite 
que você selecione uma sequência de no- 
tas musicais para executar uma melodia, 
por exemplo. O comando SOUND po- 
de ser utilizado para produzir bipes (sim- 
ples tons sonoros, de frequência e dura- 
ção fixas), como mostramos no progra- 
ma a seguir. Quando rodá-lo, não se es- 
queça de ligar o volume na sua TV; do 
contrário, não ouvirá nada! 

10 FOR Q-l TO 5 
20 SOUND 200,1 
30 NEXT Q 

A série de bipes pode ser alterada me- 
diante a modificação dos números após 
o comando SOUND. O primeiro núme- 
ro controla a frequência da nota e pode 
ter um valor de 1 a 255. A nota mais bai- 
xa é produzida por 1 e a mais alta por 
255 (para alguém que conhece algo so- 
bre música: o valor 89 corresponde à no- 
ta dó da escala do meio de um piano). 

O segundo número após o comando 
SOUND regula a duração do tom sono- 
ro. Novamente, a gama possível de va- 
lores vai de I a 255; o valor 16 fornece 
cerca de um segundo de duração. 

Esses bipes podem ser adequados a 
jogos especiais ou de fantasia, mas não 
são de muita utilidade quando o tema 
do jogo é mais realista. Assim como no 
caso dos efeitos gráficos simplificados 
para produzir explosões (flashes) descri- 
tos anteriormente, deve-se ser criterio- 
so ao utilizá-los. Nunca deixe de empre- 
gar efeitos sonoros adequados ao "cli- 
ma" do jogo. 



Quando se precisa de um tipo 
sofisticado de efeito sonoro, é recomen 
dável abandonar o comando SOUND. 
cujos recursos são limitados. Ao invés de- 
le, é preferível utilizar o comando PLAV. 
como será explicado mais adiante. 



OUTRA VEZ UM LABIRINTO 



Se você gravou o programa de criação 
de labirintos aleatórios para o TRS-Color ' 
(dado na última lição de programação de 
jogos), poderá melhorar muito o jogo, 
adicionando os efeitos sonoros a seguir. 

Substiluaa linha 230 no programado 
labirinto pela seguinte: 

230 IF XOLX OR YOLY THEN PUT 
(XI, Yl) - (Xl+BS-1 .Yl+BS-l) ,B,PSE 
T:LX-X:LY-Y.PLAY"T5005DC" 

Mude a linha 240 para: 

240 IF F-l THEN F-0 : SC-SC+ tTl-T 
IHEPO :T1-T1-10:PLAY"T10G3BCDEFG 
A-G0TO 130 

e substitua a linha 500 por: 

500 CLS:SCRE£N 0 , 0 : PLAY"T302L2C 
L4CL12CL2CL4DIL6DL4DL8CL4C01L8B 
02L2C" : LI-LI-1 

Agora, rodeoprogramaeescuteoque 
acontece quando o homenzinho se move 
pelo labirinto. Você obterá um som di- 
ferente no momento em que o tesouro for 
encontrado, e uma "marcha fúnebre" 
quando o jogador perder uma "vida". 

Ao lidar com efeitos sonoros, procu- 
re evitar que eles retardem o seu jogo, 
pois toda vez que produz um som o 
computador interrompe qualquer outra 
coisa que esteja fazendo. Em programa- 
ção de jogos, isso significa que qualquer . 
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movimento na leia cessa enquanto o 
som estiver sendo produzido. Na verda- 
de, você pode utilizar sons em vez de la- 
ços FOR...NEXT para introduzir pau- 
sas mais ou menos longas nos seus pro- 
gramas. O som na linha 230, por exem- 
plo, é muito curto, pois o espaço de tem- 
po foi reduzido ao mínimo. Trabalhan- 
do com sons, você pode até mesmo fa- 
zer o ajuste fino de seus programas. 



0 COMANDO PLAY 



O comando PLAY opera sempre 
com base em um cordão alfanumérico, 
que transporta instruções para o com- 
putador. O cordão na linha 230 do pro- 
grama anterior contem as instruções 
TS0O5DG.OT significa Tempo(ou ve- 
locidade, se você preferir) e pode ser es- 
tabelecido em qualquer valor de 1 a 255. 
A letra O é a oitava, e pode assumir um 
valor de I a 5 (I é o valor mais baixo, 
e 5 é o mais alto). As duas últimas letras, 
D e G, são notas, no sistema ameri- 
cano de notação (C é dó, D é ré, E é mi, 
etc). De um modo muito geral, o que 
T50O5DG significa é: "toque duas no- 
las altas rapidamente". 

Tente alterar os valores de T e O pa- 
ra ver que tipos de efeitos sonoros você 
poderá obter. 

Na linha 240, o cordão é T10O3BCD 
EFGA, que executa uma escala cres- 
cente. 

A marcha fúnebre na linha 500 é mais 
complexa. Uma explicação detalhada de 
como escrever música para o computa- 
dor deverá esperar mais um pouco, mas 
observe o quanto a duração da nota L 
é variada durante a melodia. Na verda- 
de, você pode variar qualquer um dos 



parâmetros em um cordão, em qualquer 
ponto durante a melodia, tornando as- 
sim o comando PLAY muito flexível. 



' J EXPLOSÕES 



O comando PLAY pode igualmente 
ser utilizado para produzir efeitos sono- 
ros simulando explosões, que serão de 
grande utilidade na maioria de seus jo- 
gos de açào. Os seguintes efeitos sono- 
ros podem ser utilizados sozinhos, ou 
com as imagens da lição "Bombardeios 
e Explosões" (páginas 121 a 127). 

Tente esse efeito: 

10 PLAY"T1600U30GFIFEIDIDC#D#D 
FE#" 

Você poderá usá-lo quando algo for 
atingido ou explodir na tela. Incorpore- 
o, por exemplo, ao programa da pági- 
na 64, acrescentando o comando PLAY 
à linha 270, antes do comando GOTO. 

Um interessante som de reverberação 
pode ser conseguido assim: 

10 PLAY"T80OlL2BFBFBFBFBFBFBFBF 
BF" 

Na oitava mais baixa, duas notas se 
repetem sem cessar. Tente manipular a 
velocidade e a duração das notas para 
obter variações sobre esse som. 

Você poderá conseguir uma repetição 
de seus efeitos sonoros utilizando uma 
rotina como a que se segue: 

10 FS-"T100O2LlOAGBE»DFADF|" 
20 F5-FS+FS 
30 PLAY FS 

A linha 10 contém o cordão de ins- 
truções para o som. A linha 20 conca- 



tena o cordão, de modo que, quando a 
linha 30 o executa, o som se repete. 



UMA SIRENE 



A repetição de um som lem outras 
aplicações. Se você deseja obter o ruí- 
do de uma sirene, empregue um progra- 
ma como esse: 
10 CLEAR 250 

20 FS""T150O4L8CDD#EF|FGF#FED|D 

C#CD#DC*C" 

30 FS-F$+FS+F$+FS 

40 PLAY FS 

Para se obter o efeito de sirene, 
constrói-se um longo cordão, con- 
catenando-se quatro partes do FS ori- 
ginal, antes de executá-lo. O computa 
dor TRS-Color oferece, ao ser ligado, 
uma quantidade limitada de espaço pa- 
ra variáveis alfanuméricas, de modo que 
o cordão que contém o novo efeito so- 
noro será muito maior do que a memó- 
ria disponível. 

Portanto, a linha 10 é usada para re- 
servar mais espaços para variáveis alfa- 
numéricas, por intermédio do comando 
CLEAR 250, que estipula 250 bytes pa- 
ra esse fim. Tenha cuidado em reservar 
os 250 bytes extras de memória quando 
você utilizar o efeito sonoro em um pro- 
grama de jogos; caso contrário, você ob- 
terá uma mensagem de erro: OS — oul 
of slring space. 

Não fique desapontado se os seus ex- 
perimentos não produzirem sons com- 
paráveis aos melhores efeitos em jogos 
comerciais. Alguns efeitos muito bons 
são possíveis em BASIC, mas os mais 
sofisticados são escritos em código de 
máquina — um tópico que será aborda- 
do futuramente em INPUT. 



Dividida em RAM e ROM, a memória 
do computador armazena dados, 
resultados e programas. Quase tão 
complexa quanto a memória humana, dela 
depende o funcionamento da máquina. 




A memória dos micros é constituída 
por milhares de minúsculos circuitos in- 
tegrados de silício que podem ser ligados 
e desligados individualmente. Esses cir- 
cuitos são organizados, dentro do chip, 
em grupos de oito. Cada grupo represen- 
ta um byte, isto é, um número binário de 
oito bits, ou o correspondente a dois dí- 
gitos em hexadecimal. Internamente, tal 
número é usado para definir um endere- 
ço para cada locação de memória. 



0 ESPAÇO OE MEMORIA 



Em computação, um K é aproxima- 
damente análogo ao k (quilo) do siste- 
ma métrico. Na realidade, 1K em com- 
putaçãa equivale ao número hexadeci- 
* mal 40©, que é igual a 1 024 em decimal. 



Assim, se quisermos identificar 64K de 
memória, devemos numerá-los de 1 a 
65 536 em decimal (ou, de 0000 a FFFF, 
em hexa). 

O número hexadecimal de quatro dí- 
gitos atribuído a uma locação de memó- 
ria é conhecido como o seu endereço. 

Os micros aqui citados podem atin- 
gir uma memória interna de 64K, pois 
contam com um espaço de endereça- 
mento de dezesseis biis. Entretanto, não 
é esta a quantidade habitual de memó- 
ria anunciada pelos fabricantes. O mo- 
delo mais comum do Spectrum (por 
exemplo, o TK-90X, no Brasil) tem 48K; 
o TRS-Color, 32K; e o Apple II e o 
TRS-80, 48K cada um, De fato, porém, 
todos eles têm 64K de espaço de memó- 
ria, ao todo. Esse número refere-se ape- 
nas à quantidade de memória que o 
usuário ou o programador podem utili- 
zar: os outros 32 ou 16K, conforme o 
caso, são reservados para utilização pe- 
la própria máquina. Nos micros citados, 
os fabricantes numeram as locações de 
memória de 0000 a FFFF. O Spectrum 
ou o ZX-81 de I6K (os menores) — que 
têm na realidade 32K de memória ao to- 
do — numeram suas locações de memó- 
ria de 0000 a 7FFF. 




Além da organização básica em bits 
e bytes, o espaço de memória do com- 
putador é dividido em subunidades: as 
páginas, definidas como conjuntos en- 
dereçáveis de 100 locações de memória 
em hexa, cada uma (256 em decimal). 

A página 0 (zero) vai de 0000 a 00FF; 
a página i (um), de 0100 a 0IFF, e as- 
sim por diante. A organização em pági- 
nas facilita a programação do sistema, 
pois páginas específicas podem ser re- 
conhecidas pelo hardware da UCP. 

Existem dois tipos de memória inter- 
na: ROM e RAM. ROM {Read-Onlu 
Memory) significa memória somente de 
leitura. Ou seja, pode-se ler o conteúdo 
das locações de memória ROM mas não 
se pode escrever nelas. Protegida con- 
tra alterações externas, a informação 
contida é fixada permanentemente 
quando os chips ROM são produzidos. 

A memória ROM guarda as instru- 
ções operacionais e o interpretador que 
traduz seus programas BASIC para có- 
digo de máquina. Os códigos contidos 
na ROM (ambém são responsáveis pela 
imposição de uma estrutura ao resto da 
memória. Aberta ao usuário, a RAM 
(Random Access Memory) significa me- 
mória de acesso aleatório. Algumas lo- 
cações na RAM são controladas pela 
ROM: se você tentar escrever nessas lo- 




cações reservadas de memória, os pro- 
gramas gravados na ROM se encarrega- 
rão de fazè-las voltar ao seu conteúdo 
original. Apesar disso, RAM é uma es- 
pécie de folha em branco, na qual você 
pode escrever o que quiser. 



PONTEIROS E INDICADORES 



Os mapas de memória mostrados 
adiante sào uma representação gráfica 
da memória RAM e ROM de cada tipo 
de micro. As áreas representadas, con- 
tudo, não estão em sua posição física 
exala, pois o espaço da memória é divi- 
dido em diferentes chips. Alguns dos li- 
mites entre as seções da memória — co- 
mo a fronteira entre a ROM e a RAM 
— coincidem com a mudança de um 
chip para outro. Outros, porém, são fle- 
xíveis e suas posições são indicadas por 
um ponteiro ou indicador na área de va- 
riáveis do sistema. 

Um ponteiro é uma locação da me- 
mória (ou melhor, um par de locações 
da memória) que armazena o endereço 
de uma outra locação — neste caso, o 
início de uma seção particular da memó- 
ria. O endereço de qualquer byte dc me- 
mória é constituído por um número bi- 
nário de dois bytes de comprimento (de- 
zesseis bits), de modo que precisa ser ar- 
mazenado em duas locações adjacentes 
de memória. 



A memória ROM de 16K do Spec- 
trum vai de 0000 a FFFF e contém o in- 
terpretador e o editor de programas em 
BASIC, bem como várias rotinas de en- 
trada e de saída e o conjunto de carac- 
teres que guardam os dados para as le- 
tras do alfabeto, números e outros sím- 
bolos gráficos. Os 48K restantes — que 
vão de 4000 a FFFF — ou os I6K res- 
tantes — que vão de 4000 a FFFF — 
são memoria RAM. 

As funções das áreas em que a memó- 
ria RAM está dividida são as seguintes: 
A área de exibição controla o que é 
mostrado no vídeo. Cada locação da 
memória corresponde a uma linha de oi- 
to píxels. 

A área de atributos controla as cores 
de fundo (PAPER) e de frente (INK) 
das 768 locações de caracteres na tela, 
e o tipo de exibição a ser feita (intensi- 
dade normal, brilhante ou piscante). 

A memória intermediária da impres- 
sora retém a próxima linha do texto que 
será enviada para a impressora. 

A área de variáveis do sistema con- 
tém as locações que guardam os ende- 
reços do início das áreas especificadas 
acima (apontadores). 

A área de mapeamenio de microdri- 
ves existe apenas nas unidades de micro- 
fita (microdrives) para o Spectrum. co- 
nectadas ao computador. Em caso con- 



trário, o apontador CHANS, cujo en- 
dereço é armazenado nas locações 
23 631 e 23 632 (5C4F e 5C50, em he- 
xadecimal), é deslocado para 5BC6. 

A área de informação de canal trans- 
porta os dados de entrada e de saída. Ela 
conduz a entrada do teclado para a pane 
mais baixa da tela de TV e a saída do 
programa para o restante da tela, para 
o espaço de trabalho mais acima na me- 
mória e para uma impressora. 

A área do programa BASIC retém as 
linhas de qualquer programa BASIC di- 
gitado ou carregado; seu tamanho de- 
pende da extensão do programa. Inicia- 
se no endereço fornecido pela variável 
de sistema PROG, que é armazenada 
nas locações 23 635 e 23 636 (5C53 e 
5C84) na área das variáveis do sistema. 
Isto apontará para a locação 23 755 
(5CCB em hexa), se nenhum microdri- 
ve estiver conectado. 

A área das variáveis armazena os 
valores das variáveis que estão sendo 
utilizadas no programa BASIC em cur- 
so. Começa na locação apontada por 
VARS, armazenado nas locações 23 627 
e 23 628 (5C4B e 5C4C em hexa) da área 
das variáveis do sistema. Quando um 
programa é rodado, o início da área das 
variáveis permanece onde está, mas o fi- 
na! vai crescendo para cima, à medida 
que novas variáveis são definidas pelo 
programa em BASIC. 

A área de edição è o local onde é fei- 
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ta a edição das linhas BASIC. Quando 
o < ENTER > é apertado, as linhas são 
copiadas para a área do programa BA- 
SIC. A área de edição começa na E- 
LINE, cujo endereço é retido nas loca- 
ções 23 641 e 23 642 (5C59 e 5C5A em 
hexa) na área das variáveis do sistema. 

O espaço de trabalho serve para ta- 
refas gerais, como a armazenagem dos 
dados de entrada e a concatenaçào de 
strings. O WORKSP é armazenado em 
23 649 e 23 650 (5C61 e 5C62 em hexa) 
na área das variáveis do sistema. 

A pilha de cálculo è utilizada para re- 
ter números em ponto flutuante, núme- 
ros inteiros de cinco bytes e o conjunto 
de parâmetros de cinco bytes. Começa 
em STKBOT, cujo endereço ocupa as 
locações 23 651 e 23 652 (5C63 e 5C64 
em hexa), e termina em STKEND, que 
é encontrado em 23 653 e 23 654 (5C65 
e 5C66 em hexa). 

A área de memória de reserva permi- 
te que as áreas da memória situadas aci- 
ma e abaixo dela cresçam até que 
STKEND encontre o indicador de pilha. 

Acima dos bytes sobressalentes está 
a pilha da máquina, empregada peia 
UCP quando um programa BASIC é 
dado. 

A pilha de sub-rotinas (GOSUB) 
mazena os números de linha para os 
quais um programa deve retornar quan- 
do completar cada sub-rotina chamada. 

O ponteiro RAMTOP indica o final 
da memória RAM disponível para o 
mazenamento de programas. Seu ende- 
reço é retido em 23 730 e 23 731 
(5CB4 e 5CB5 em hexa) na 
área das variáveis. — 

Acima de 

RAMTOP há 168 locações 

de me- mória que podem 

ser usadas para armaze- 

nar 21 representações 
ou padrões gráficos de- 
finidos pelo usuá- 
rio. Entre- 



tanto, o topo da RAM é armazenado em 
uma variável do sistema e pode ser deslo- 
cado para uma posição mais abaixo na 
memória, usando-se o espaço de reserva 
para as pilhas de sub-rotina e de máqui- 
na. Isto pode ser feito através de progra- 
mação em código de máquina. Normal- 
mente, um programa em código de má- 
quina fica acima do RAMTOP abaixada 

O apontador P-RAMT assinala o to- 
po físico da memória RAM; isto é, aci- 
ma desse ponto não existem mais locações 
da memória nos chips do Spectnim. O P- 
RAMT é uma variável do sistema, com 
endereço armazenado nas locações 23 732 
e 23 733 (5CB5 e 5CB6 em hexa). 

Para verificar o valor de P-RAMT li- 
gue a máquina e entre essa linha: 
PHINT PEEK 23732+256'PEEK 23733 

Isto retornará o valor 65535 no 
Spectrum de 48K, ou o valor 32767 no 
modelo de I6K. Se nenhum destes va- 
lores for retornado pela linha, então al- 
guma coisa está errada com o seu com- 
putador. Pode-se examinar o conteúdo 
dos outros apontadores na área de va- 
riáveis do sistema, utilizando a mesma 
linha PRINT, apenas substituindo os 
valores correspondentes às duas loca- 
ções de memória da variável. 

A palavra-chave PEEK em BASIC 
"olha" os conteúdos dos bytes da memó- 
ria e retorna o equivalente decimal do nú- 
mero que encontrar. O endereço tem o 
comprimento de dois bytes (requer duas 
locações da memória para ser armazena- 
do). O Spectnim divide 



dereço s ^ii 
hexa de quatro 
dígitos — por exemplo, 
o endereço normal FF57 de RAMTOP 
— em duas partes de F e 57. 

O byte mais baixo, 57, vai dentro do 
endereço menor, e o byte mais aito, 
FF, vai no endereço maior. 
Isto explica por que a 
segunda das loca- 
ções da 
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memória no 
programa acima 
é multiplicada por 
256; do contrário, o 
Spectrum poderia retornar 
j equivalente decimal de FF, 
ao invés de FFOO. 



Os micros compatíveis com o mode- 
lo Sinclair ZX-81 têm 8K de ROM, com 
endereços que vão de 0000 a 1FFF em 
hexa, ou de 0 a 8 190 em decimal. Os 
outros 8K de memória, de 2000 a 3FFF, 
não são utilizados. 

O mapa de memória mostrado aqui ser- 
ve para um ZX-81 com um cartucho de ex- 
pansão de 16K RAM, cujos endereços vão 
de 4000 a 7FFF em hexa, ou 16 384 a 
32 767 em decimal." No caso de 
o computador ter um cartucho de 
RAM de 8K ou um de 4K, bas- 
ta "achatar" as áreas de memória 
no espaço correspondente de 8K 
ou 4K, e fazer com que o topo fí- 
sico da memória RAM i 
^S^ser 5FFF (24 575 em decimal) 
a o cartucho de 8K, 



ou 4FFF (20 479 em decimal), para o car- 
tucho de 4K. 

Em todos esses casos, as variáveis do sis- 
tema ocupam a área de 4000 a 4087 em he- 
xa, ou 16 384 a 16 509 em decimal. As ou- 
tras áreas não são fixas, e os endereços cor- 
respondentes aos seus limites — D-FILE, 
WARS, E-LINE, STKBOT, STKEND, 
ERR-SP e RAM TOP — são armazenados 
como apontadores nessa área das variáveis 
do sistema. 

A área de programa BASIC, que vai de 
16 509 a D-FILE, contém o programa em 
BASIC do usuário. Da locação D-FILE até 
a locação WARS, fica o arquivo de 
exibição. 

A área de variáveis vai se expandindo 
à medida que um programa em BASIC é 
executado e novas variáveis são definidas 
em seu interior. Essa área tem o seu final 
assinalado pela locação da memória que 
contém 80, em hexa. 

Entre as locações E-LINE e STKBOT 
estão a área de edição e o espaço de traba- 
lha A linha que está sendo digitada pelo 
teclado ocupa a área de edição. Seu con- 
teúdo é transferido para a área do progra- 
ma assim que a tecla < E.NTER > é pres- 
sionada. 

Entre a locação STKEN D c o indicador 
da pilha de máquina existe uma área de re- 
serva de memória, para onde as áreas aci- 
ma e abaixo dela podem se expandir. A pi- 
lha de máquina é usada pela máquina 
quando um programa BASIC é rodado; a 
pilha de stib-rotinas (GOSUB) armazena 
os números de linha para os quais um pro- 
grama deve retornar depois da execução de 
uma sub-rotina. 

O apontador RAMTOP designa o to- 
po físico da memória — isto é, 32 767, 
24 575, 20 479 ou 17 407, dependendo do 
cartucho de expansão RAM conectado à 
máquina. Tecle a linha seguinte: 

PRINT PEEK 16388+256*PEEK 16398 



a segunda das duas locações da memória 
no programa acima é multiplicada por 256. 



O TRS-Coior tem uma memória ROM 
de 32K, que vai da locação &H8000 à 
&HFFFF. Essa área é dividida em duas ou- 
tras: uma que controla a entrada e a saída 
do computador em relação ao cartucho de 
ROM removível, e outra, não removível, 
que contem o sistema operacional e o in- 
terpretador BASIC. 

Os programas em BASIC e suas variá- 
veis são armazenados na memó ria R AM, 
entre as locações &H3600 a &H7FFF. Exis- 
te também uma pilha que ocupa a pane 
mais elevada de RAM, logo abaixo da 
ROM, de &H7FFF para baixo. Mas a pi- 
lha pode descer um pouco mais, de modo 
a criar espaço para um programa em códi- 
go de máquina. Isto é feito alterando-se o 
valor da variável do sistema, que aponta pa- 
ra a base da pilha. 




A linha retoma o valor decimal corres- 
pondente à RAM máxima disponível no 
sistema. Você pode examinar o conteúdo 
dos outros apontadores na área de variá- 
veis do sistema, utilizando a mesma linha 
PRINT e substituindo os valores corres- 
pondentes às duas locações de memória da 
variável. 

A palavra-chave PEEK em BASIC 
"olha" os conteúdos de cada byte da me- 
mória e retorna o equivalente decimal do 
número que encontrar. 

O endereço tem o comprimento de dois 
bytes. O ZX-81 divide o endereço hexa de 
quatro dígitos — por exemplo, o endereço 
normal FF57 de RAMTOP — em duas 
partes de FF e 57. O byte mais baixo, 57, 
vai no endereço menor, e o byte mais alto, 
FF, no endereço maior. Isto explica por que 
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Uma parte da RAM é reservada para oi- 
to páginas de gráficos de alta resolução, que 
não correspondem exatamente às páginas 
de memória mencionadas antes. Eslas con- 
têm 256 locações, ou 0.25K. As páginas de 
gráficos, ao contrário, têm I.5K, e cada 
uma guarda informação gráfica suficiente 
para preencher Ioda a leia na modalidade 
de resolução mais baixa — PMODE 0 — , 
enquanto a modalidade de resolução mais 
alta — PMODE 4 — necessita quatro des- 
sas páginas para preencher totalmente a te- 
la. O computador reserva automaticamente 
quatro páginas, mas PCLEAR pode ser 
usado para reservar mais. 

Quando não estão em uso, essas pági- 
nas são deixadas vazias. Mas, se uma me- 
mória extra for requisitada, elas poderão 
ser limpadas até a página 1 do BASIC. Is- 
to permite o acesso a uma memória extra 
de 10.5K. 

A tela de texto ocupa l/2Kentre&H400 
e &H600. Isto corresponde a uma locação 
de memória para cada espaço de caracte- 
res na tela de dezesseis linhas de 32 carac- 
teres. Os caracteres, formado? por 96 pon- 
tos na tela (oito por doze pixels), são gera- 
dos por um chip gerador de vídeo separado. 

As variáveis do sistema estão armaze- 
nadas na área que vai de &H000 a &H400. 



MAPA DE MEMÓRIA 
DO TRS-COLOR 




São uma coleçào de indicadores ou apon- 
tadores, que fornecem os endereços do ini- 
cio de diversas áreas na memória e de ou- 
tras variáveis do sistema. 

O primeiro grupo de 256 bytes — de 
&H00 a &HFF — é conhecido, no TRS- 
Color, como página direta. Qualquer das 
páginas de memória pode ser designada co- 
mo página direta, ou seja, a página cujas 
locações podem ser endereçadas mediante 
a utilização de um endereço curto de um 
byte, em vez do endereço normal e maior 
de dois bytes. Isto é feito definindo-se o re- 
gistro da página direta no micropro- 
cessador. 



Ql 




O TRS-80 tem um espaço máximo de 
memória RAM de 48K, quando usado 
com o BASIC Nível II (máquinas com gra- 
vador cassete), ou com o TRSDOS e equi- 
valentes (máquinas com disquete). Quan- 
do esses micros são usados com o sistema 
operacional CP/M, essa memória pode ser 
expandida internamente para 64K de 
RAM. Trataremos aqui apenas do mapa de 
memória de máquinas compatíveis com o 
modelo III da Radio Shack, como é o ca- 
so do Prológica CP-500. 

O espaço total de memória interna do 
TRS-80 é de 65 535. ou HFFFF, em hexa. 
O espaçoquevai doendereçoOa 14 435 (ou 
H0000 a H3800) é ocupado pela memória 
ROM do sistema: 12KdeEPROM conten- 
do o sistema operacional e o interpretador 
BASIC Nível II, e 2K de EPROM adicio- 
nais para uso do sistema (total de 14K de 
ROM). 

A memória RAM começa sempre na lo- 
cação 14 336 e se estende até o topo físico 
da memória, que pode ser 32 767 (máqui- 
nas com 16K), 49151 (máquinas de 32K)ou 
65 535 (máquinas de 48K). Os endereços 
em hexa são: H7FFF, HBFFF e HFFFF. 

A RAM é dividida, por sua vez, em duas 
partes principais: uma reservada para uso 
do sistema, que vai de 14 336 a 17 384 
(H380O a H43E8) e outra, que começa em 
17 385 (H43E9) e vai até o topo lógico da 
memória (RAMTOP). Essa locação está 
armazenada na área de variáveis do siste- 
ma, e é definida pela primeira vez quando 
o computador é ligado, e faz a pergunta ao 
operador (MEM SIZE?). 

A área do sistema é subdividida, por sua 
vez, em diversas áreas de comprimento fi- 
xo e uma de participação flexível. As áreas 
de comprimento fixo são as seguintes (ve- 
ja o gráfico): 

A área matricial do teclado contém as 
locações de memória m apeadas no tecla- 
do. Qualquer tecla pressionada "liga" bytes 
correspondentes nessa área (que vai de 
14 336 a 15 359). 



A memória de vídeo também corres- 
ponde a um mapeamento direto das 1 024 
posições de caracteres na tela, ern memó- 
ria RAM. Estende-se de 15 360 (canto su- 
perior esquerdo da tela) a 16 383 (canto 
inferior direito). Assim, uma posição N na 
tela (correspondente ao parâmetro do 
< PR1NT >) é armazenada na posição ab- 
soluta de RAM igual a 15J60+N. 

A área que vai das locações 16 384 a 
17 384 (mil bytes, portanto) é a área do sis- 
tema, que contém apontadores, bujfers, in- 
dicadores e outras locações especiais de uso 
particular do interpretador BASIC e que 
podem ser examinados e alterados pelo 
usuário por meio de comandos PEEK e 
POKE. O conteúdo inicial dos apontado- 
res e indicadores é estabelecido quando a 
máquina é ligada, ou quando é dado um 
RESET de iniciação. 

A área de programas e dados começa 
na locação 17 385 (H3E9). Tem três dife- 
rentes compartimentos: a área do progra- 
ma, a das variáveis e a de cordões alfanu- 
méricos. Os limites entre essas três subá- 
reas são alterados dinamicamente, em fun- 
ção da execução do programa em BASIC 
e de alguns de seus comandos. Por exem- 
plo, o comando CLEAR fixa o tamanho 
máximo da área de cordões, logo abaixo 
do topo lógico da RAM. Ao ser introduzi- 
do, o interpretador aloca automaticamen- 
te cinquenta bytes a essa área. 

O procedimento usual para colocar um 
programa em linguagem de máquina do 
usuário é fixar um limite lógico máximo 
de RAM, seja através da pergunta inicial, 
seja através da manipulação do ponteiro 
que contém o endereço. Isto cria uma área 
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protegida de memória onde é colocado o 
programa em linguagem de máquina por 
meio do monitor residente do TRS-80/1I I 
ou de programas monitores e Assembier 
carregados externamente. 



Os micros MSX apresentam algumas di- 
ferenças entre si. Por isso, tomaremos co- 
mo exemplo o micro nacional Sharp 
HB-8000 (Hot-bit). Este dispõe de um es- 
paço máximo de memória de 128K, divi- 
dido em quatro síots. ou encaixes dispo- 
níveis, quando usado com o BASIC para 
gravador cassete. Essa memória tem RAM 
disponível de 64K. 

O espaço de memória do Sharp é divi- 
dido em doi s com partimentos de 65 535 
bytes, ou &HFFFF, em hexa. No primeiro, 
o espaço que vai de 0 a 32 767 (ou &H0000 
a &H7FFF) é ocupado peia memória 
ROM; ele contém o interpretador BASIC 
e o sistema operacional. O espaço restan- 
te, de 3 2 768 a 65 575 (&H8000 a 
&HFFFF), é utilizado para endereçamen- 
to dos cartuchos removíveis de ROM. 



A memória RAM básica está no segun- 
do compartimento. A área que vai de 
&H0000 a &H7FFF (área livre) não é con- 
trolada pelo interpretador BASIC. 

A segunda área da RAM é controlada 
pelo interpretador BASIC e é dividida em 
duas partes principais: a primeira, mais alta 
e de comprimento fixo, é reservada para uso 
do sistema e vai de &F380 até o topo físico 
da RAM. É a área do sistema e contém 
apontadores, buffers, indicadores e outras 
locações de uso particular do interpretador 
BASIC e que podem ser examinados e al- 
terados pelo usuário (comandos PEEK c 
POKE) 

A segunda área, mais baixa, contém tu- 
do o que é de uso do programa BASIC ar- 
mazenado e é subdividida em áreas de com- 
primento variável. 

A área de blocos de controle dos arqui- 
vos tem como limite máximo o topo lógi- 
co da área do nsuário. Esse valor é defini- 
do como sendo &HF380, mas pode ser mo- 
dificado para baixo (comando CLEAR). 
Se um valor diferente deste for estipulado 
pelo CLEAR, a área livre entre essa loca- 
ção máxima e a locação &HF380 fica dis- 
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ponível para abrigar programas em códi- 
go de máquina. A área dos blocos de con- 
trole contém buffers e indicadores para 
transferências de entrada e saída. Seu ta- 
manho é definido internamente ou modi- 
ficado pelo comando MAXFILES do 
BASIC. 

A área de cordões alfanuméricos vem 
logo abaixo e contém os cordões definidos 
durante a execução do programa. Tem ta- 
manho estabelecido pelo comando 
CLEAR. Este pode conter um segundo ar- 
gumento, que é a definição do topo lógico 
da RAM. Por exemplo, CLEAR 200, 
&HDFFF fixa esse valor em &HDFFF. 

A seguir vem a área da pilha, que tem 
comprimento fixo e contém os endereços 
de retorno das sub-rotinas (GOSLíB) e dos 
laços FOR...NEXT. 

A área que se inicia em 32 768 
(&H8000) é a área de programa, que abri- 
ga o texto do programa. Acima dela exis- 
tem duas áreas dinâmicas, que crescem à 
medida que o programa é executado: a área 
de variáveis e a área das matrizes. A área 
de reserva de memória para programa (área 
residual ) correspondei diferença entre a so- 
ma das áreas fixas (pilha, cordões e blocos 
de E/S) e a soma das áreas variáveis (pro- 
grama, variáveis e texto). 

A memória de vídeo do MSX também 
corresponde a um mapeamento direto de 
posições de caracteres ou de gráficos cm di- 
versas páginas. São 16K de RAM que têm 
seu endereçamento à parte. 

A tela de vídeo é tratada pelo micropro- 
cessador central como um dispositivo de 
entrada e saída, e o BASIC dispõe de vá- 
rios comandos para fazer funcionar esse es- 
quema, inclusive leitura e gravação abso- 
luta (VPEEK e VPOKE). 



O Apple íleo TK-2000 utilizam o mi- 
croprocessador 6502, de oito bits. Seu es- 
paço total de endereçamento de memória 
é de 64K, dividido em 256 páginas de 256 
bytes. Essas páginas são alocadas para di- 
ferentes funções pela UCP e pelas rotinas 
operacionais, e constituem o mapa de me- 
mória do Apple. Na configuração padrão 
desses micros, somente 48K são disponí- 
veis para o usuário (RAM), mesmo assim 
parcialmente, pois uma parte é reservada 
para uso do sistema. Os 16K restantes cor- 
respondem à memória ROM. A forma 
básica de organização da memória é seme- 
lhante para os micros da linha Apple II e 
para o TK-2000. 

A organização da memória do Apple II 
depende do tipo de linguagem empregada 
(INTEGER BASIC, FPBASIC ou AP- 
PLESOFT), de se está sendo utilizado dis- 
quete ou não, e da versão do sistema ope- i 
racional de disquete (DOS). Além disso, é | 
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possível expandir-se a memória RAM me- 
diante bancos adicionais, para 64K ou 
128K. Examinaremos aqui o mapa de me- 
mória para a configuração básica, ou se- 
ja, um Apple II com 48K de memória 
RAM e sistema cassete: 

A área da memória ROM, que se esten- 
de das páginas $C1 a SFF (em hexa), con- 
tém o código de máquina necessário para 
a operação e programação da máquina — 
o interpretador BASIC, o monitor, e, no ca- 
so do TK-2000, também um disassembler 
e um míni-assembler. 

A área de entrada/saída é uma página 
de 1K, que inclui uma série de registros, 
áreas de memória intermediária, aponta- 
dores e indicadores relativos aos dispositi- 
vos de entrada e saída da máquina (vídeo, 
som, gravador cassete, teclado, seleção de 
RAM, etc). Além disso, existem áreas de 
memória reservadas para as páginas de ví- 
deo, que servem para mapear os textos e 
gráficos que nele aparecem. 

Os endereços das áreas de vídeo são di- 
ferentes para o TK-2000 e para os micros 
da linha Apple: 



Apple 



TK-2000 



TEXTO Pág. 1 0400-07FF 2000-3 FFF 
TEXTO Pág. 2 0800-OBFF A000-BFFF 
HGR Pág. 1 2000-3FFF 2000-3FFF 
HGR Pág. 2 4O00-5FFF AOOO-BFFF 



MAPA DE MEMÓRIA 
DO TK-2000 


0000 






87FF 


Ana do 
Sistema 






3800 


FIAM 

BK 






1FFF 








2000 

3FFF 


Primoira Pégina Vídeo 






4000 








9FFF 








A000 

BFFF 


SegunOa Pagina Vídeo 






COTtO 
COOF 


Em rada /Salda 






Cl 00 


ROM 
18 K 






FFFF 









O Apple tem quatro arcas de vídeo: duas 
páginas situadas na parte baixa da memó- 
ria (antes do inicio da área de programas) 
e duas na pane alta da RAM. Já o TK-2000 
tem somente duas áreas, ambas na parte 
alta da memória. 

A área de texto do Apple e do TK-2000 
também é usada para gráficos de baixa re- 
solução (GR), ao passo que as áreas de grá- 
ficos de alta resolução são separadas ape- 
nas no Apple. 

Finalmente, a terceira área é a área de 
memória RAM, que vai da página 0 à pá- 
gina 19! ($00 a SBF, em hexa). 

A memória RAM também ê subdividi- 
da em áreas de tamanho fixo ou variável, 
conforme a aplicação: 

A área de variáveis do sistema é arma- 
zenada na página 0 e comem apontadores 
e indicadores atualizados pela UCP. A pi- 
lha da máquina ocupa a página 1, e tem 
256 bytes. Ela serve para diversos fins, po- 
dendo inclusive ser utilizada pelo progra- 
mador em linguagem de máquina; normal- 
mente, ela guarda os endereços de retorno 
de sub-rotinas e laços em BASIC. A área 
de edição, alocada na página 3, contém o 
buffer (memória intermediária) do tecla- 
do, ou seja, a última linha digitada. 

A área de trabalho, que se estende das 
páginas 3 a 7, também é reservada para o 
sistema operacional, para o monitor e pa- 
ra diversas rotinas de E/S. Alguns endere- 
ços dessa área podem ser utilizados pelo 
programador em linguagem de máquina 
para colocar seus próprios programas, bem 
como para modificar alguns ponteiros e in- 
dicadores que permitem alterar a maneira 
pela qual a UCP processa os dados na me- 
mória e nos dispositivos de E/S. 

Finalmente, o espaço que vai da página 
8 em diante è a área do usuária Os pro- 
gramas em BASIC começam normalmen- 
te na página 8, que também pode ser utili- 
zada para programas em linguagem de má- 
quina. Nos micros da linha Apple, contu- 
do, esse espaço de RAM não fica inteira- 
mente disponível para os programas do 
usuário. Bem no meio da área do usuário 
estão as duas página* do vídeo referidas aci- 
ma. Usando comandos POKE, nos micros 
da linha Apple, e os comandos MP e MA, 
no TK-2000, é possível comutar-se a utili- 
zação da primeira área de vídeo, passando- 
a para a segunda, situada mais acima. 

Os programas em BASIC começam a 
partir de &H0800. Por isso, sobram cerca 
de seis Kbytes até o começo da primeira 
área de vídeo. Se você quiser utilizá-la, o 
truque acima não funcionará. Mas há uma 
alternativa. A área de variáveis do BASIC 
tem dois limites definidos por dois apon- 
tadores na área de variáveis tio sistema: LO- 
MEM, que define o limite inferior dessa 
área, e HIMEM, seu limite superior. Exis- 
tem comandos equivalentes em BASIC pa- 



MAPA DE MEMÓRIA 






DO APPLE II 




0000 












0800 


Primeira Pèginn Te*to 








Segunda Pagina Tsito 






coo 


RAM BK 






1FFF 








2000 
3FFF 


Primeira Pagina Vídeo 






GFFF 


Segunda Pag.ne Vídeo 






8000 


RAM 
24 K 






BFFF 








COSO 










ROM 

16 K 


p 


FFFF 


LUHUlHi 









ra alterar esses endereços. Assim, 
deslocando-se simultaneamente o endere- 
ço, de início de um programa BASIC para 
uma posição acima da primeira área de ví- 
deo (isto é feito com dois comandos PO- 
KE) e os parâmetros HIMEM e LOMEM, 
é possível preservar-se a primeira página de 
vídeo. 

O Apple íleo TK-2000 têm a capaci- 
dade de selecionar a RAM ou a ROM pa- 
ra execução de programas residentes em 
memória. Essa opção é armazenada em 
dois indicadores situados na área de entra- 
da/saída, que podem ser modificados por 
dois POKE. No TK-2000, o apontador RO 
seleciona a ROM e está na locação $C05 A. 
O Apontador RA seleciona a RAM e está 
em JC05B. Ao ser ligada a máquina, é se- 
lecionada a ROM, o que ativa o interpre- 
tador BASIC residente. O programador po- 
de alterar esses endereços e dar ordem pa- 
ra que o micro execute código de máquina 
(primeiro endereço da RAM). O botão 
< RESET > eas teclas <CTRL> <RE- 
SET> fazem uma resseleção da ROM. 
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IEUNÂ SEUS DADOS 
EM GRÁFICOS 



COMO FUNCIONA 0 PROGRAMA 



ENT RADA DAS INFORMA ÇÕES 
CORREÇÒES 



ELABORAÇÃO DOS GRÁFICOS 



ARMAZENAGEM DOS DADOS 



Digite os números e deixe o micro 
convertê-los em histogramas coloridos 
e bem-feitos. Por meio deles, será 
fácil comparar valores diversos ou 
verificar suas tendências temporais. 



Você já deve ler visto alguns anún- 
cios de programas para aplicações co- 
merciais, nos quais se destaca a elabo- 
ração de gráficos sobre estatísticas de 
vendas, evolução de cotação das ações 



na Bolsa, ele. Esse tipo de informação, 
que em geral envolve uma quantidade 
enorme de números, torna-se de fácil 
compreensão quando representado por 
diagramas ou gráficos. E se preparar um 
gráfico manualmente é trabalhoso, pa- 
ra um computador comercial trata-se de 
tarefa simples e rápida. 

A capacidade de representar informa- 
ções não é, entretanto, atributo exclu- 
sivo dos computadores comerciais. Ela 
esiende-se, também, aos computadores 
domésticos, constituindo-se em uma de 
suas áreas de aplicação prática. Todos 



os computadores apresentados aqui pos- 
suem capacidade numérica e gráfica que 
os habilita a efetuar esse tipo de traba- 
lho, com graus variáveis de precisão e 
de detalhamento gráfico. 

Dificilmente o usuário médio de com- 
putadores domésticos precisará lidar 
com a vasta quantidade de informações 
geradas, por exemplo, por uma peque- 
na empresa. Mas numerosas questões 
que lhe interessam diretamente podem 
ser analisadas de maneira proveitosa em 
um microcomputador. Por exemplo, a 
relação entre seus rendimentos e gastos 
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ao longo dc uni ano; o peso especifico, 
em períodos distintos, dos di\ ursos itens 
que compõem seu ornamento; as varia- 
ções mensais de sua capacidade de 
poupança. 

Além dessas arcas, cujas aplicações 
se assemelham ás comerciais, existem 
várias outras, sobretudo relacionadas 
com algum tipo de passatempo, que po- 
dem ter seus dados analisados e repre- 
sentados graficamente: a frequência ao 
clube local ou a espetaculos teatrais em 
determinado período, a evolução Cio nú- 
mero de itens em coleções de livros, dis- 
cos ou selos e estatísticas de resultados 
esportivos. 

O programa apresentado serve para 
preparar, rapidamente, um gráfico de 
barras — ou histograma — . mostrando 
as variações temporais de algum tipo de 
valor. Como os eixos do gráfico (hori- 
zontal e vertical) ajustam-se automati- 
camente, pode-se trabalhar com dados 
semanais, mensais, anuais ou on qual- 
quer ouira unidade de tempo 

O intervalo máximo de valores utili- 
zado pelo programa depende do seu 
computador. Para o ÍRS-Colof, esses 
valores situam-se entre tWc ~99. Pa- 
ra o Speetrum. entre + KWKI e -1000, 
mais ou menos, .lá para o Apple e o 
MSX, lais valore-, podem ter qualquer 
amplitude — unidades, de/enajÉ cenie- 
nas. milhares e até milhões, -e tua apli- 
cação assim requerer. 



ENTRADA DOS DADOS 



Ao executar o programa, este apre- 
sentará na tela uma lista das opções dis- 
poníveis (o menu). Se for selec^ 
opção para a entrada de dadol 
grama pedirá os títulos dos doT 
apresentando-os no momento | 
traçar o gráfico. 

Ao entrar com os títulos d4 
tenha sempre o cuidado de ( 
corretamente e na ordem pedid 
xo horizontal (X) representa < 
semanas, meses, anos ou qualJ 
tra unidade escolhida. O (' 
(Y) representa os valores dadol 
ras — cruzados, temperatura, núrr 
de discos, etc. A altura de cada uma das 
barras será proporcional a esie valor. 

Em seguida, o programa pede o nú- 
mero de barras que deve apresentar. O 
número máximo possível depende, ba- 
sicamente, da capacidade gráfica do seu 
computador. O Speetrum, por exemplo, 
apresenta no máximo 25 barras; no 
TRS-Color. este número passa a 26; o 
Apple e o MSX têm capacidade para 



apresentar até 200 barras, mas seu limi- 
te prático é de cerca de 65. Acima deste 
valor, as barras ficam muito finas ou ir- 
regulares, constituindo um quadro vi- 
sualmente pouco claro. 

As perguntas seguintes feitas pelo 
programa referem-se aos valores dos da- 
dos. São apresentados na leia os núme- 
ros sequenciais das barras e uma pergun- 
ta sobre o valor a ser atribuído a cada 
uma. Esse valor, positivo ou negativo, 
é, novamente, limitado pela capacida- 
de numérica do seu computador. No 
TRS-Color, os valores vão de -999 a 
+ 999 e, no Speetrum, de -1000 a 
+ 1000. O Apple e o MXS. por sua vez, 
trabalham com valores de qualquer 
magnitude, já que os gráficos são mon- 
tados com o uso de escalas. 

Se «ti computador é um Speetrum ou 
um TRS-Color, e você deseja represen- 
tar valores que estão fora da capacida- 



de do programa, a solução é fornecer os 
dados divididos ou multiplicados por al- 
gum fator de conversão (por exemplo, 
em unidades dc centenas, milhares, mi- 
lhões, etc). 

Quando o último vaior for introduzi- 
do, surgirá novamente a lista inicial de 
opções. Você poderá, então, escolher en- 
tre modificar algum valor digitado ou 
partir para a apresentação do gráfico. Se 
optar pela modificação, os valores que di- 
gitou serão apresentados na tela. Siga as 
instruções para corrigir o valor desejado. 

Quando estiver satisfeito com os va- 
lores, selecione a opção que permite a 
apresentação do gráfico. Os usuários do 
Apple e do MSX possuem apenas uma 
maneira de apresentar seus gráficos. 
Usuários do TRS-Color e do Sinclair 
Speetrum podem escolher entre um grá- 
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A opção de um gráfico escalonado 
apresenta o diagrama de barras com as 
dimensões, ao longo do eixo y, arredon- 
dadas para um valor máximo de 10, 100, 
1000, ele, dependendo do valor máxi- 
mo dos dados. Conforme este valor, po- 
rém, o gráfico pode não aparecer intei- 
ramente na (ela. 

A opção de um gráfico em represen- 
tação real mostra o diagrama de barras 
ocupando a tela inteira, apresentando os 
valores reais dos dados (não os valores 
em escala) ao longo do eixo y. 

Para maior clareza, as barras apre- 
sentadas pelo Apple, pelo MSX e pelo 
Spectrum são separadas umas das ou- 
tras por um pequeno espaço ou uma 
barra colorida. O TRS-Color apresenta 
as barras coloridas alternadamente de 
cinza e amarelo, para os valores positi- 
vos, e de vermelho e laranja, para os va- 
lores negativos. 



são armazenados nas variáveis LO e Hl. 
respectivamente. O valor mínimo prede- 
finido é sempre zero; se os dados apre- 
sentarem um valor mínimo maior, este 
será ignorado pelo programa. O valor 
máximo é arredondado: 10. 100, 1000, 
10 000, etc. 

Havendo dados negalivos no conjun- 
EO A (valor mínimo menor que zero}, o 
programa definirá que o gráfico é de ti- 
po l; senão, de tipo 2. Nos gráficos de 
tipo 1 , a linha de base (eixo dos \) fica- 
rá acima do fundo da tela. e as barras 
correspondentes aos valores negativos 
serão dirigidas para baixo. 

O escalamento dos valores de um ei- 
xo é feito segundo uma regra simples, 
que leva em conta os valores mínimo e 
máximo, o número de pixels (pontos 
gráficos) que cabem no eixo e o arredon- 
damento ou não dos rótulos ao longo do 
eixo. A fórmula de escalamento é: 



COMO FUNCIONA 0 PROGRAMA 



O programa de elaboração de histo- 
gramas tem três rotinas principais: 

• entrada dos dados que serão exibidos 
no gráfico; 

• edição (modificação) dos dados já en- 
trados; 

• elaboração do gráfico. 

Os dados são armazenados no con- 
junto A peia primeira rotina. A capaci- 
dade desse conjunto é especificada di- 
namicamente pelo comando DIM, após 
o usuário indicar o número de dados que 
deseja utilizar. Quando 0 programa en- 
tra na rotina de elaboração do gráfico, 
o conjunto de dados é examinado, para 
que se identifiquem os valores mínimo 
e máximo nele presentes. Esses valores 



nax - xmin 



onde: 

x' = valor escalado 
x = valor original 
xmin « valor mínimo na escala 
xmax = valor máximo na escala 
pix ■ número máximo de pixels no 
eixo 

Em seguida, 0 gráfico é elaborado. 
Cada computador utiliza um método 
distinto para traçar as barras. Se você 
conhecer um pouco de programação 
BASIC, poderá, nesse ponto, alterar o 
programa para fazer coisas diferentes. 

Por exemplo, a versão para o Sinclair 
Spectrum utiliza o comando PLOT pa- 
ra posicionar o cursor gráfico no ponto 
onde a barra vertical será traçada, e o 
comando DRAW, para traçá-la de uma 
vez. Se você substituir o comando 
DRAW por Um outro PLOT, obterá 
apenas um ponto colorido, correspon- 
dente ao topo da barra. 

Outra modificação se refere à defini- 
ção das cores. No Sinclair Spectrum, 
por exemplo, o comando INK determi- 
na a cor a ser usada na barra. Note que 
a variável que se segue a este comando 
é modificada automaticamente pelo pro- 
«rama, de modo a alterar a cor da bar- 
ra seguinte. Por meio de um comando 
1NPUT, você pode mudar o programa, 
determinando que a cor seja solicitada 
ao usuário. 

Interessante também é a possibilida- 
de de modificar o programa para arma- 
zenar os dados entrado 1 ;, em fita casse- 
te ou disquete. Nesse caso, o menu ini- 
cial deverá ter duas opções adicionais: 
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MSX: gráfico da variação de temperatura ao longo do ano. ZX Spectrum: gráfico de lucros e perdas por 11 



• armazenar dados 
" gravar dados 

As roiinas correspondemos a estas 
chamadas deverão ser programadas c 
adicionadas ao programa. Assim, você 
poderá mamer séries de dados armaze- 
nados (por exemplo, os rendimentos da 
caderneta de poupança ou os gastos 
mensais com alimentação) e amalizá-los 
com novos valores sempre que quiser 
compará-los ou verificar sua tendência 
por meio do gráfico. Com esta modifi- 
cação, você não precisará, portanto, di- 
gitar os dados anteriores toda vez que 
executar um programa pai a elaboração 
de gráfico. 

■ ■ 

10 PMODE 4.1 
20 CLS 

30 PRINT #45 . *MENU" : PRINT «102. 
"1- INTRODUZIR DADOS":PRINT 816 
6, "2- GRÁFICO DE BARRAS" : PRINT 
#230, "3- VER/CORRIGIR DAD0S":PR 
INT §294, "4- SAIR DO PROGRAMA" 
40 AS-INKEYS:IF AS<"1" OR AS>"4 
" THEN 40 

50 IF AS="1" AND DA-1 THEN 80 
60 ON UAL (AS) GOSUB 1000.2000,3 
000.4000 
70 GOTO 20 

80 PRINT #484."V0CE TEM CERTEZA 

90 AS=INKEY$:IF AS<>"Y" AND AS< 
>"N* THEN 90 

100 IF A$-"Y" THEN CLEAR 200:AS 
-"l":GOT0 60 
110 GOTO 20 

1000 DA-1 -CLS: INPUT"NOME DO EIX 

1010 XS-LEFTS (X$ , 32) : IF X5-"" T 
HEN XS-"EIXO X" 



1020 MD-INT(16-LEN(XS)/2> 

1030 INPUT"NOME DO EIXO Y" ; YS 

1040 YS=LEFTS(Y$.12Í : IF YS-"" T 

HEN YS-"EIX0 Y" 

1050 HT-INT(6-LEN[Y$)/2) 

1060 INPUT-NUMERO DE BARRAS" ; NB 

1070 NB- INT (NB) : IF NB<1 THEN 10 

60 

1080 BL-INT(26/NB) :IF BL<1 THEN 

BL-1 
1090 DIM A (NB) 
1100 PRINT 
1110 FOR K-l TO NB 
1120 PRINT"VALOR DA BARRA" r K ; : I 
NPUT A (K) 
1130 NEXT 
1140 RETURN 

2000 IF DA-0 THEN PRINT #455. "D 
ADOS NAO INTRODUZIDOS": FOR K-l 
TO 2000:NEXT:RETURN 
2010 TP-0:BT-0 
2020 FOR K-l TO NB 
2030 IF A(K)>TP THEN TP-A(K) 
2040 IF A(K)<BT THEN BT-A(K) 
2050 NEXT 

2060 IF TP-0 AND BT-0 THEN PRIN 

T "TODOS OS VALORES SAO ZERO " : 

FOR K-l TO 2000: NEXT: RETURN 

2070 CLS: PRINT #64,"VOCE QUER U 

M GRÁFICO EM ESCALA (S/N)?" 

2080 A$-INKEYS:IF ASO"?" AND A 

5<>*N" THEN 2080 

2090 IF AS-"N" THEN 2120 

2100 IF TP>0 THEN E-INT (LOG (TP) 

/LOG(IO) ) :TP-INT(1+TP/ (10"E) ) "1 

0"E 

2110 IF BT<0 THEN E-INT (LOG (-BT 
) /LOG (10) ) : BT--INT ( 1-BT/ (10 "E) ) 
*10-E 

2120 IN-176/(TP-BT) 

2130 ST-INT(IN*TP) 

2140 TS-"":IF TP-0 THEN 2160 

2150 IF TP>ABS(BT) THEN E-2«INT 

(LOG(TP)/LOG(1000)) ELSE E-2-IN 

T (LOG {ABS (BT))/LOG (1000)) 

2160 TS-"+"+MID$(STR$(INT(.5+TP 

/10~E)) ,2} :B$-"" :IF BT-0 THEN 2 



ISO 

2170 BS-STR$(INT(.5+BT/10"E)) 
2180 SL-1:LP-NB:IF NB>26 THEN L 
P-26 

2190 POKE 179.243:PCLS:POKE 654 
75.0:POKE 65477, 0:POKE 65479.0 
2200 POKE 179,2 

2210 LINE (40 , 0) - (47 . 191 ) , PRESET 
. BF 

2220 IF T$«"" THEN 2260 

2230 FOR K-l TO LEN (TS) : P-ASC (M 

IDSITS.K.l)) AND 63:FOR K-0 TO 

11 

2240 POKE 1540-LEN(TS)+32"M+K,P 

2250 NEXT M , K 

2260 IF B$-"" THEN 2300 

2270 FOR K-l TO LEN (BS) : P-ASC (M 

IDS (BS , K , 1 ) ) AND 63:FOR M-0 TO 1 

1 

2280 POKE 6916-LEN(BS)+M*32+K,P 

2290 NEXT M.K 

2300 FOR K-l TO LEN(XS) 

2310 P-ASC{MIDS(XS.K.U) AND 63 

2320 FOR M-182 TO 190:POKE 1503 

+MD+32*M+K.P:NEXT 

2330 NEXT 

2340 FOR K-l TO LEN(YS) 

2350 FOR M-0 TO 11 

2360 P-ASC(MID$(Y$,K,1)) AND 63 

2370 POKE 1566+384*(K+HT)+32*M, 

P 

2380 NEXT M.K 

2390 FOR K-5 TO 31 

2400 POKE 1S36+32*ST+K,12B 

2410 NEXT 

2420 FOR K-ST TO 0 STEP -22 
2430 POKE 1541+K*32,202 
2440 NEXT 

2450 FOR K-ST TO 178 STEP 22 
2460 POKE 1541+K*32.202 
2470 NEXT 

2480 FOR K-SL TO LP:CO-(C0+l) A 
ND 1 

2490 POKE 178. 35+CC64 : POKE 179 

3+CO* 1 9?^^^^^^^^^^^^M 
2500 IF INT(A(K)*IN)>0 THEN LIN 
E(48+8* (K-SL) *BL,ST-D- (47+8* (K 
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TRS-Color; grafito da dislrihuiçào das notas 



Apple: gráfico dos saldos mensais da poupai 



-SL+1)*BL.ST-INT(A(K)*IN)) . PSET 
. BF 

2510 IF FIX(A(K) «INXO THEN LIN 
E (48+8* (K-SL) «BL.ST) - (47+8* (K-S 
L+1)*BL.ST-FIX<A(K)*IN) ) , PRESET 
.BF 

2520 NEXT K 

2530 IF LP-NB THEN 2570 

2540 SL-LP+1:LP-LP+26:IF LP>NB 

THEN LP-NB 

2550 IF INKEYS""" THEN 2550 
2560 POKE 179.243:LINE(48.0)-(2 
55.178) , PBESET . BF : GOTO 2390 
2570 IF INKEYS-"" THEN 2570 
2580 BE TU RN 

3000 IF DA-0 THEN PRINT §455 , "D 

ADOS NAO INTRODUZIDOS" : FOR K-l 

TO 2000:NEXT:RETURN 

3010 SL-1 :LP-NB : IF NB>14 THEN L 

P-14 

3020 CLS : PRINT "BARRA" . "VALOR* 
3030 FOR K-SL TO LP 
3040 PRINT K,A[K) 
3050 NEXT 

3060 IF NB-LP THEN 3130 

3070 PRINT §480. "e PARA EDITAR. 

QUALQUER OUTRA PARA CONTINUA 
R" ; 

3080 AS-INKEYS:IF AS-"" THEN 30 
80 

3090 IF AS-"E" THEN 3170 
3100 SL-LP+1:LP-LP+14 
3110 IF LP>NB THEN LP-NB 
3120 GOTO 3020 

3130 PRINT §460, "e PARA EDITAR. 
QUALQUER OUTRA PARA RETORNAR 

3140 AS--ÍNKEYS:IF AS-"" THEN 31 
40 

3150 IF AS="E" THEN 3170 
3160 RETURN 

31^0 CLS : PRINT : INPUT"NUMERO DA 

ENTRADA A SER EDITADA ?";E 

3180 E-INT(E):IF E<1 OR E>NB TH 

EN 3170^^^^^^^^^^^^^^ 

3190 PRINT:PRINT"NOVO VALOR DA 
ENTRADA" ; E ; : INPUT A (E) 



3200 GOTO 3020 

4000 CLS:PRINT §37."VOCE TEM CE 
RTEZA (S/N)?" 

4010 AS"INKEYS:IF ASO"S" AND A 

SO"N" THEN 4010 

4020 IF AS-"N" THEN RETURN 



100 BORDER 

CLS 

110 PHINT 
INK 7; AT 4 
120 PRINT 



PAPER 7: INK 0: 



BRIGHT li PAPER 3 ; 
10;"OPCOES" 
BRIGHT 1; AT 7,4;" 1 

- INTRODUZIR NOVOS DADOS " 

130 PRINT BRIGHT 1 i AT 9.4;" 2 

- VER / EDITAR DADOS 

140 PRINT BRIGHT 1 ; AT 11.4;" 

3- GRÁFICO EM ESCALA 

145 PRINT BRIGHT 1 ; AT 13.4;" 

4- GRÁFICO EM TELA CHEIA " 
150 PRINT BRIGHT li FLASH 1; 
INK 2;AT 16.9;" SELECIONE OPCA 



160 II 



INKEYS 3 "" THEN GOTO 



170 LET AS-INKEYS: IF AS<" 
OR AS>"4" THEN GOTO 160 
180 GOSUB VAL AS*1000; GOTO 
100 

500 REM "ROTINA PARA ENTRADA 

DE DADOS NUMÉRICOS"* 

510 INPUT (wSl: LINE aS : IF 

LEN a$-0 THEN GOTO 510 

520 FOR 3-1 TO LEN aS 

540AIF (aS(J)>*"0" AND aS(j)<- 

"9") OR aS(3)-"-" OR aS(J)-"-" 

THEN NEXT Ji LET v-VAL aS : 

RETURN 

550 GOTO 510 

1000 BEM **ROTINA PARA ENTRADA 

DE DADOS** 

1010 BORDER 1: PAPER 1: INK 7- 

CLS 

1020 INPUT "NOME DO EIXO X? "j 



1030 PRINT INVERSE 1 ;AT 0.0;" 
";xSi" " 

1040 INPUT "NOME DO EIXO Y? 
LINE yS 

1050 PRINT INVERSE 1 ; AT 0,16;" 
"syS;" " 

1060 LET uS-"QUANTO "+xS+" d A 

25) ? " : GOSUB 500 
1070 IF v<l OR v>25 OR vOINT v 

THEN GOTO 1060 
1090 LET E-Vi DIM a (z) 
1100 FOR k-l TO z 
1110 LET WS-"DIGITE DADOS PARA 
"+STRS k + " " : GOSUB 500 
1120 LET a(k)-v 
1130 PRINT k,a(k) 
1140 NEXT k: LET g=l ; PAUSE 50: 

RETURN 

2000 REM **ROTINA PARA EDICAO D 
E DADOS** 

2010 BORDER 2: PAPER 2: INK 7 
2020 LET cn-1 

2025 CLS : PRINT PAPER 6; INX 
2;AT 0.0;xS.yS:TAB 31;" " 
2030 PRINT cn.a(cn) 
2035 PRINT |lj PAPER 6; INK 2;A 
T 0.0;"EDIT para alterar valor 
corrente Qualquer tecla para co 



ntli 



50 



THEN GOTO 20 



2060 LET cS-INKEYS 

2070 IF cS-CHRS 7 THEN GOSUB 2 

500 

2080 IF cn-z THEN PRINT PAPER 
6; INK 2; "FIM DOS DADOS": PAUS 
t 100 : RETURN 

2090 LET cn-cn+1: IF cn-21 THEN 

GOTO 2025 
2100 GOTO 2030 

2500 LET wS="INTRODUZIR NOVO VA 
LOR PARA "+STRS cn+" ". GOSUB 5 
00 



2510 LET afe 
6; INK 2;cn. 
ETURN 



) -v 
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3000 BEM "GRÁFICO EM ESCALA*" 
3010 BORDER 0: PAPER 0: INK 7: 
CLS : LET hl-0: LET lo-oB 
3020 FOR k-1 TO z 
3030 IF a(k)>hi THEN LEThi-a( 

3040 IF aíkKlo THEN LET lo-a< 

*) m 

3050 NEXT k 

3060 LET type-2: LET orgM 
3070 IF lo<0 THEN LET type-1: 
LET org-84 

3080 LET h-hl: IF ABS lo>hl THE 

N LET h-ABS lo 

3090 LET ra-hi-lo 

3100 IF h<-l THEN LET hi-1 : GO 

TO 3150 

3110 IF hO10 THEN LET hi-10: 
GOTO 3150 

3120 IF h<-100 THEN LET hl-100 
: GOTO 3150 

3130 IF 1K-1000 THEN LET hl-10 
00: GOTO 3150 

3140 IF h<-10000 THEN LET hl-1 
0000 

3150 LET wd-INT (25/zl I 

3160 IF type-1 THEN LET ft-B0/ 

hi 

3170 IF type-2 THEN LET ft-162 

/hl 

3180 PLOT 56,org; DHAW 198,0 
3190 PLOT 55.4: DRAU 0,160 
3200 FOR n*4 TO 168 STEP B: PLO 
T 52, n: DRAW 3„ 0 : NEXT til 
3220 PRINT t 1 ; PAPER 1 ; AT 0.14; 

• *txtt' " 

3225 LET ZS-" "+yS+" * I 

3230 FOR n-1 TO LEN zS 

3240 PRINT AT n+ U9-LEN y$)/2,0 

; PAPER l;zS(n) 

3250 NEXT n 

3255 LET dc»l 

3260 IF type-1 THEN GOTO 3320 
3270 FOR n-hl TO 0 STEP -{hl/10 

) 

3275 IF n<.01 THEN LET 0-0 

32B0 LET n$-STRS n 

3290 PRINT AT dc.(6-LEN n8);n 

3295 LET dc-dc+2 

3300 NEXT n 

3310 GOTO 3400 

3320 FOR n-hi TO -hi STEP -(hi/ 

3330 IF n<.01 AND n>-.01 THEN 
LET n-0 

3340 LET nS-STRS ri 

3350 PRINT AT dc,(6-LEN n$):n 

3360 LET dc-dc+2 

3370 NEXT n 

3400 LET ink-1 

3410 FOR n-1 TO z 

3420 LET cm-org 

3430 LET ink-ink+1: IF inK-8 TH 

EN LET mK-2_^___^__^M 
3440 INK ínk 

3450 FOR m-1 TO (a(n)*ft) STEP 
SGN a<n) 

3460 PLOT 56+ (n-1) *wd*8 , cm: DRA 
W wd-S-2.0 

3470 LET cm-cm+SCN a(n) 

34B0 NEXT m ^^^^^^^H 

3490 NEXT n 

3500 IF INKEYSO"" THEN GOTO 3 



4010 BORDER 0: PAPER 0: INK 7: 

CL*-: LET hl-0: LET lo-O 

4020 FOR n-1 TO z 

4030 IF a(n)>hi THEN LET hi-a( 

n) 

4040 IF a(n)<lo THEN LET lo=a( 
rO 

4050 NEXT n 

4060 LET ra-hi-lo: LET ft-175/r 

a: LET org-(ra-hi)*ft 

4070 LET wd-INT (25/z) 

4080 PLOT 56,org: DRAW 198,0 

4090 PLOT 55,0: DRAW 0.175 

4100 PRINT 11; PAPER 1 ; AT 0,14; 

• ";xS;" " 

4110 LET ZS-" "+YS+" " 

4120 FOR n-1 TO LEN zS 

4130 PRINT AT n+(19-LEN yS)/2.0 

i PAPER l:zS(n) 

4im NEXT n 

4150 PRINT AT 0,0;hl;AT 21.0;lo 
4200 GOTO 3400 



fffi 



10 CLS : RESTORE 

20 DATA ENTRAR DADOS . GRÁFICO DE 
BARRAS , VER/ EDITAR DADOS , FIM DE 
PROGRAMA 

30 LOCATE7.2:PRINT"M E N U P 

RINCIPAL" 

40 F0RI-1T04:READMS 

50 LOCATE10,2*I+7:PRINTI;"- " ; M 

9 

60 NEXT 

80 PRINT : PRINT : PHINTTAB (20) "O PÇ 
XOAr; 

90 RS-1NKEYS : IFRS-" "THEN90 
100 IFRS< , '1"ORRS>"4"THEN90 
110 ONVAL (RS) GOTO1000 ,2000, 3000 
,4000 

150 LO-VA(l) :HI-VA(1) 
160 FORI=lTONB* 
170 IFVA(I)>HITHENHI~VA(I) 
180 IFVA(IXLOTHENLO-VA(I) 
190 NEXT : RETURN 

1000 CLS : IFNBtOOTHENLOCATElO , 1 
4: PRINT"CONFIRMA7 " ; ELSE1030 
1010 RS-INKEYSlIFRS-^THENlOlO 
1020 IFRS<>"S"THEN10 
1030 CLS : LOCATE1 0 : PRINT" ENTRADA 

DE DADOS" 
1040 CLEAR:LOCATE0.4:INPUT"NOME 

DO EIXO-X " ;X$ 
10p0 XS-LEFTS (XS ,9) : IFXS-""THEN 
XS-"EIXO-X" 

1060 INPUT"NOME DO EIXO-Y ";YS 
1070 Y$-LEFTS(YS,9) : IFJS-" "THEN 
YS-"EIXO-Y" 

1080 PRINT : INPUT"NÚMERO DE BARR 
AS; ";NBÍ 

1090 IFNBl>65THEN1080 

1100 DIMVA (NBI ) : PRINT : PRINT 

1110 FORI-1TONBÍ 

1120 PRTNT"VALOR DA BARRA " : T ; : 

INPUTVA(I) 

1130 NEXT:GOTO10 



2000 IFNBÍ-OTHEN10 
2010 GOSUB150 

2020 IFSGN (HI ) OSGN (LO) THENHT-A 

BS(HI)+ABS(LO) :GOTO2050 

2030 HT-ABS<(SGN(HI)-1)*ABS(HI) 

+ (SGN (LO)— 1) «ABS (LO) ) 

2040 IFHT-0THEN10 

2050 A-2-INT{(180-3*NBÍ)/NBI/2' 

:S-3:ES-150/HT 

2060 IFA>15THENA-15 

2070 IFLO>-0THENY-155:GOTO2100 

2080 IFHK-0THENY-5:GOTO2100 

2090 Y-INT(80+(ABS(HI)-ABS(LO)) 

•ES/2) 

2100 SCREEN2:COLOR 15.4,4:P-61 
2110 LINE (55,5)-(55,158) :LINE 
(52,Y)-(250,Y) 
2120 FORI-1TONBÍ 

2130 LINE ÍP,Y-SGN{VA(I)))-(P+A 

,INT(Y-{VA(I)*ES) ) ) ,6,BF 

2140 P-P+S+A:NEXT 

2150 OPEN "GRP : " FOR OUTPUTAS» 

1 

2160 PRESET(0,3) 

2170 FORI-1TOLEN (Y$) 

2180 PHINT|1,TAB(1)MIDS(YS.I.D 

: NEXT 

2190 PRESET (170.160) 
2200 PRINTtl.XS 

2210 IFSGN(LO)OSGN(HI)THEN2250 
2220 PRESET(O.Y) : PRINT» 1 . TAB ( 4 ) 

■0" 

2230 PRESET(15,155+(150MHI>0)) 
) :PRINT#l,LO*(-(SGN(LO)— 1))+HI 
«(-(SGN(HI)-D) 
2240 GOTO 2270 

2250 PRESET(15.155) ;PRINTIl,LO: 
PRESET(15,5) : PRINT»!, HI 
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2260 PBESET ( 0 , Y) : PRINTf 1 , TAB (4) 
-0" 

2270 CLOSE 

2280 IFINKEYS-""THEN22B0 

2290 SCREEN0:GOTO10 

3000 IFNBt-OTHENIO 

30Í0 CLS:LOCATE10:PRINT"MODULO 

DE EDIÇÃO" 

3020 PRINT : PB I NT "BARBA" . "VALOR" 
3030 FORJ-lTONBt 
3040 PRINTJ.UA(J) 

3050 IFINT { J/17) - J/17THENGOSUB3 
090 

3060 NEXT 
3070 GOSUB3090 
3080 GOTO10 

3090 LOCATEO . 20 : PRINT"Tecle <E> 
para editar ou qualquer outra 
tecla para continuar"; 
3100 RS-INKEYS:1FHS-""THEN3100 
3110 IFRSO"E"THENL0CATE0 . 3 : FOR 
H-lTOl9:PBINTSPC(40) :NEXT : LOCAT 
EO. 3 : RETURN 

3120 LOCATEO . 20 : PRINTSPC ( 79) ; LO 

CATE0 . 20 : INPUT"Qual barra ";B 

3130 LOCATEO, 21 :INPUT"Novo valo 

r ";VA(B) 

3140 I-B:GOSUB150 

3150 GOTO3090 

4000 CLS: LOCATE7 , 14 : INPUT*FIM D 
E PROGRAMA (S/H) " ;RS 
4010 IFRS<>"S"THEN10 



DE B ABBAS , VER / EDITAR DADOS, F 
IM DE PROGRAMA 

30 VTAB 3: HTAB 8: PRINT "M E 
NU PRINCIPAL" 
40 FOR I - 1 TO 4 
50 READ MS 

60 HTAB 10: VTAB 2 * I + B: PR 



INT I ; 



70 



INT 



NEXT 
PRINT 
"OPCAO 
GET RS 



MS 

PBINT : HTAB 20: PB 



OR RS : 



HE] 



IF RS < 
"4" THEN 90 
100 ON VAL (BS) GOTO 1000.200 
0 , 3000 ,4000 

110 LO - VAU) :HI - VAU) 

120 FOR I - 1 TO NBÍ 

130 IF VA{I) > Hl THEN Hl - VA 

(D 

140 IF VA(I) < LO THEN LO - VA 

(D 

150 NEXT : BETURN 
1000 HOME : IF NBt < > 0 THEN 
VTAB 15: PBINT TAB ( 10) "CONF 
IRMA? (S/N)";: GET RS: IF RS < 

> "S" THEN 10 
1010 HOME : PRINT TAB ( 10)"EN 
TRADA DE DADOS" 

1020 CLEAR : VTAB 4: INPUT "NO 

ME DO EIXO 'X' : * ;X$ 

1030 XS - LEFTS (XS,5): IF XS 

- "" THEN XS - "EIXO-X" 

1040 INPUT "NOME DO EIXO 'Y': 
" I YS 

1050 YS - LEFTS (YS,5): IF YS 

- "" THEN YS " "EIXO-Y" 

1060 PRINT : INPUT "NUMERO DE 
BARRAS : " ; NBt 



1070 IF NBt > 65 THEN 1060 

10B0 DIM VA (NBt ) 

1090 PRINT : PRINT 

1100 FOR I - 1 TO NBt 

1110 PRINT "VALOR DA BARRA ";I 

T : INPUT VA(I) 

1120 NEXT : GOTO 10 

2000 IF NBt - 0 THEN 10 

2010 GOSUB 110 

2020 IF SGN (Hl) < > SGN (L 

0) THEN HT - ABS (HIÍ + ABS ( 
LO) : GOTO 2050 

2030 HT - ABS ( ( SGN (Hl) - 1) 
* ABS (Hl) + ( SGN (LO) - - 

1) * ABS ÍLO)) 

2040 IF HT - 0 THEN 10 
2050 A - 2 * INT ( (270 - 2 • N 
Bt) / NBt / 2) :S - 2:ES - 150 / 
HT 

2060 IF A > 15 THEN A - 15 
2070 IF LO > - 0 THEN Y - 155 
: GOTO 2100 

2060 IF Hl < - 0 THEN Y - 5: 
GOTO 2100 

2090 Y - INT (76 + ( ABS (Hl) 
- ABS (LO) ) * ES / 2) 
2100 HGR : HCOLOR- 7:P - 4 
2110 HPLOT 2,0 TO 2.158: HPLOT 

0.Y TO 279.Y 
2120 HCOLOB- 5 
2130 FOR I - 1 TO NBt 
2140 FOR J - 1 TO A 
2150 HPLOT J + P.Y - SGN (VAI 
I)) TO J + P, INT (Y - (VA(I) * 

ES)) +1 
2160 NEXT :P - P + S + A: NEXT 

2170 VTAB 21: HTAB 1: PRINT XS 
; TAB ( 34) ;YS 

2180 VTAB 22: HTAB 10: PBINT " 
VAL MAX-";HI;: HTAB 25: PBINT " 
VAL MIN-";LO 

2190 PBINT TAB { 5) I " PBESSIONE 

QUALQUER TECLA PARA SAIR"; 
2200 GET BS: TEXT : GOTO 10 
3000 IF NBt " 0 THEN GOTO 10 
3010 HOME : PBINT TAB ( 10) "MO 
DULO DE EDICAO" 

3020 PBINT : PRINT "BABRA* , "VA 

LOB" 

3030 FOR J - 1 TO NBt 

3040 PRINT J,VA(J) 

3050 IF PEEK (37) - 20 THEN 

GOSUB 3090 

3060 NEXT 

3070 GOSUB 3090 

3080 GOTO 10 

3090 VTAB 21: HTAB 1: PRINT "T 
ECLE <E> PARA EDITAR OU OU AL QUE 
R OUTRA TECLA PARA CONTINUAR 
";: GET RS: IF RS < > "E" THEN 

VTAB 4: HTAB 1: CALL - 958: 
ÍIETUBN 

■'•'3100 VTAB 21: HTAB 1; CALL M - 
958: INPUT "QUAL BABRA? ";B 
3110 INPUT "NOVO VALOB? ";VA(B 

> 

3120 I - B: GOSUB 110 
3130 OOTO 3090 

4000 HOME : VTAB 15: HTAB 10: 

PRINT "FIM DE PROGRAMA? "j: GET 
RS: IF RS < > "S" TKEN 10 




IIIIIIIIIIMHHHHBHMMHHIIIIIIIII 



III 




Um sprite é um tipo especial de carac- 
lere gráfico definido pelo usuário, dese- 
nhado em alia resolução e extremamen- 
te fácil de movimentar. Alguns exemplos 
de seu uso já foram vistos em artigos an- 
teriores. Além da mobilidade, o sprite 
tem outras características especiais, tais 
como a possibilidade de definir e movi- 
mentar mais de um sprite e de indicar se 
houve colisão na tela — ou seja, se dois 
sprites coincidiram no mesmo ponto. 

Não surpreende, portanto, que os spri- 
tes estejam presentes na maioria dos pro- 
gramas de jogos. Mas são, também, uti- 
lizados em qualquer tipo de programa 
que necessite de figuras móveis em alta 
resolução — por exemplo, programas fi- 
nanceiros que empreguem um "ícone" 
(símbolo apontando para as opções). 



DEFINIÇÃO OE UM SPRITE 



O desenho de um sprite é definido 
informando-se ao computador quais 
pontos devem ser "acesos" e quais de- 
vem ser "apagados", para que sc obte- 
nha o padrão desejado. Existem dois ta- 
manhos de sprite: pequeno (8x8 pontos) 
e grande (16x16). No decorrer deste ar- 
tigo, trataremos apenas dos sprites gran- 
des, salvo menção em contrário. 

Um sprite grande é formado por de- 
zesseis linhas de dezesseis pontos cada. 
Em vez de se definir, ponto por ponto, 
quais serão acesos ou apagados, 
reúnem-se cada oito pontos em um gru- 
po. Assim, a informação sobre o padrão 
de uma linha tio sprite é armazenada em 
dois grupos de oito pontos cada. 
Atrtbuindo-se o algarismo "1" para os 
pomos acesos e "0" para os apagados, 
cada grupo de oito pontos se transfor- 
mará em um número binário (byte de 8 
bits) que, convertido para a forma de- 
cimal, dará origem a um número entre 

0 e 255. Cada sprite, portanto, é forma- 
do por 32 grupos de oito pontos, 32 nú- 
meros binários de oito dígitos (8 bits ou 

1 byte) ou, simplesmente, 32 números. 
Estes números são agrupados em uma li- 
nha DATA, ordenados como descrito 
adiante. Calculam-se da mesma maneira 
os valores para sprites pequenos, já que 

Ieles são formados por oito linhas de oi- 
to pontos cada, dando origem a 8 bytes. 



Entre os vários recursos gráficos 
do MSX, o sprite destaca-se 
por servir de base ao funcionamento 
da maioria dos jogos de ação. 
Veja como é fácil usá-lo. 




no sprite e a se 



A ordem dos byte 
guinte: 

Linha I: BYTE 1 BYTE 17 
Linha 2: BYTE 2 BYTE 18 
Linha 3: BYTE 3 BYTE 19 

... e assim por diante até que: 

Linha 15: BYTE 15 BYTE 31 
Linha 16: BYTE 16 BYTE 32 



... sendo que os bytes foram numerados 
na ordem em que aparecerão na linha 
DATA. 

Uma orientação para o cálculo des- 
tes valores, uma vez definido o padrão 
gráfico para o sprite, é dada na figura 
da página 190. Por meio do exemplo, 
você terá uma ideia de como obter o va- 
lor decimal correspondente a um gru- 
po de oito pontos. Se todos os pontos 
estiverem- acesos, o valor decimal será 
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■ 


0 QUE E UM SPRITE? 


■ 


UM PROGRAMA PARA CRIAR 


■ 


APLICAÇÕES 




SPRITES 


■ 


COMO DEFINIR 


■ 


0 USO DOS SPRITES 




E MOVIMENTAR SPRITES 


■ 


"TIRO AO PÁSSARO": 


■ 


PRIMEIROS PASSOS 




CONTROLE DE COLISÕES 




128 + 64 + 32 + 16 + 8 + 4 + 2+ 1, ou se- 
ja, 255 (veja, no alto da figura, o valor 
pelo qual se deve multiplicar cada pon- 
to). Se todos estiverem apagados, a so- 
ma dos valores será zero. Entre estes 
dois extremos haverá um único valor pa- 
ra cada permutação possível de pontos 
acesos e apagados. Cada valor obtido 
pode ser usado na definição do sprite, 
desde que colocado em uma iinha DA- 
TA, na ordem já especificada. 



Exereite-se um pouco. Comece dese- 
nhando o padrão da figura desejada em 
papel quadriculado. Deli- 
mite uma área de dezes- 
seis por dezesseis qua- 
drinhos e indique as posi- 
ções dos bytes. Na figura da 
página 190, por exemplo, 
definimos um sprite que 
epresenta uma nave espacial. 
Ao lado da figura, temos o va- 
lor de cada byte em decimal. O 
primeiro byte da primeira linha tem 
todos os seus pontos apagados, exce- 
o último, cujo valor podemos encon- 
ir no alto da figura. Como só há um 
ponto aceso, seu valor é o valor total do 
byte: 1. Na segunda linha temos o se- 
gundo byte (veja a ordem dos bytes no 
sprite, já fornecida). O segundo ponto 
está aceso, bem como o último. Se con- 
sultarmos os valores desses pontos no al- 
ta da tabela, veremos que o valor do 
byte 2 é 64 + 1 - 65. Os próximos três 
bytes têm o mesmo valor. A propósito, 
uma recomendação prática: após calcu- 
lar o valor de um byte, verifique se, no 
resto do sprite, existem outros bytes com 
o padrão e, portanto, com o 
mesmo valor. Agora vamos à linha 6. 

0 byte 6 tem o segundo e o sétimo pon- 
tos acesos, o que lhe dá um valor de 
64 + 2 = 66. O valor do byte 7, que apre- 
senta os pontos 2 e 6 acesos, é 
64 + 4 = 68. O byte 8, por sua vez, tem 
os pontos l, 2, 3, 5 e 8 acesos, resul- 
tando num valor de 128 + 64 + 32 + 8 + 

1 =233. Calcule os bytes restantes do 
mesmo modo. Terminado o trabalho, 
coloque os números obtidos em uma li- 
nha com instrução DATA. Para definir 

imentar o sprite, digite o progra- 
ma completo: 
10 SCREEN 2,2:COLOR 15,4,4 
20 FOR 1-1 TO 32 
30 READ A: AS-AS+CHRS (A) 
40 NEXT I 
50 5PRITES(0)-A$ 
60 FOB 1-210 TO -20 STEP -.5 
70 PUT SPRITE 1,(1,1), 10,0 
80 NEXT I 

100 DATA 1,65,65,65,65,66,68, 
233.169,191.175,163,227.3,15,17 
.0,4,4,4.4.132,68,46.42,250,234 
,138,142. 128, 224.16 



Para a definição de um sprite em BA- 
SIC, devem-sc colocar os valores já cal- 
culados dentro de uma cadeia alfanumé- 
rica. Em nosso exemplo, isso é feito pe- 
lo laço FOR. ..NEXT das linhas 20, 30 
e 40. Note que dentro de uma cadeia não 
se colocam números e, sim, caracteres 
cujos códigos ASCII correspondam aos 
números desejados. Observe a linha 30. 
Ela lê os dados da linha DATA e os co- 
loca na variável AS, usando a função 
CHRS (A), que define o caractere cujo 
código está na variável A. 

A definição propriamente dita do 
sprite é feita na linha 50, pelo comando 
SPRITES (0) AS. O número 0 é o nú- 
mero do sprite (no MSX podemos ter 
sprites numerados de 0 a 9). Observe que 
na linha 10 escolhemos a tela de alta re- 
solução, pois a de texto de 40 colunas 
não permite o uso de sprites. Nessa li- 
nha encontramos o comando SCREEN 
2.2. Como você já deve saber, o primei- 
ro número corresponde ao formato da 
tela (2 para a tela de alta resolução). O 
segundo número deve ser novo para vo- 
cê. Ele estabelece o tamanho do sprite 
utilizado: 0-pequeno (8x8), 1-pequeno 
ampliado (16x16, baixa resolução), 
2-grande (16x16) c 3-grande ampliado 
(32x32, baixa resolução). 

Para desenhar e movimentar o spri- 
te na tela usamos o comando PUT 
SPRITE. Não é preciso seguir o sprite 
apagando posições ja ocupadas: ao de- 
senharmos um sprite na nova posição, 
a antiga é automaticamente apagada. O 
formato desse comando é PUT SPRI- 
TE P, (X. V), C, N, onde P é a priori- 
dade do sprite, X é a coordenada hori- 
zontal do sprite, variando de -32 (fora 
da tela, portanto) a 255; Y é a coorde- 
nada vertical, que varia de -32 a 191, po- 
dendo ainda assumir os valores 208, que 
faz com que todos os sprites de menor 
prioridade desapareçam da tela, e 209, 
que apaga o sprite na tela; Cea cor do 
sprite, e N, o número do sprite. 

Quando dois ou mais sprites ocupa- 
rem a mesma posição na tela, aparece- 
rá apenas o que estiver "na frente", ou 
seja, aquele que tiver o número de prio- 
ridade menor. Isso permite dar aos seus 
jogos efeitos tridimensionais. Os carros 
passam atrás dos postes, e ursos se es- i 
condem atrás de árvores, por exemplo. | 



mu 



VALORES DOS PONTOS 



NÚMEROS DA |\a figura ao lado — um 
LINHA DATA sprite representando uma 
nave espacial — , os 
números das linhas e os 
1 O valores dos ponlns estão 

65 4 indicados cm suas 

65 4 respectivas posições, para 

65 4 facilitar o acompanhamento 

65 4 dos cálculos. 

66 132 Veja eomo os 

6B 6B valores são somados, para 
233 46 dar origem aos números da 
169 42 linha DATA, mostrados a 
191 250 direita. Há dois números 
175 234 para cada linha, 
163 13B representando dois bytea 
227 142 com oito pontos cada. O 
3 1 28 calculo desses valores pode 
15 224 ser leito manualmente ou 
17 li, com o uso de um programa. 



UM PROGRAMA PARA CRIAR SPRITES 



A larefa mais aborrecida, ao se tra- 
balhar com sprites. consiste em calcu- 
lar os 32 números que serão colocados 
na linha DATA. Em vez de fazê-to ma- 
nualmente, use um programa que tra- 
balhe por você. 

Este deverá, em primeiro lugar, per- 
mitir a utilização dos recursos de edição 
e movimentação do cursor do MSX pa- 
ra desenhar a figura do sprite na tela. 
Em seguida, precisará calcular os valo- 
res correspondentes que serão incluídos 
na Unha da instrução DATA, 
possibilitando-lhe usar o sprite em seus 
programas. 

O programa seguinte foi preparado 
para efetuar todas essas coisas, ofere- 
cendo ainda a opção de produzir uma 
cópia impressa, caso você tenha uma im- 
pressora. A tarefa de digitá-lo e gravá- 
lo em uma fita cassete é compensado- 
ra, pois facilita muito a posterior cria- 
ção de sprites. 

5 SCREEN 0:KE-Y OFF 

10 Dl M ASC16) ,Z(2,16) ,AU6) 

20 CLS: PRINT TAB (10) ; "EDITOR DE 

SPRITES" 
30 PRINT : PRINT TAB (8) ; : INPUT "C 
dPIA IMPRESSA (S/N) ";I$:IF IS- 
"S" THEN PR$-"S" 

40 IF ISO"S" AND ISO"N" THEN 
GOTO 20 

50 PRINT : PRINT TAB ( 15 ); "Aguarde 

60 FOR Z-l TO 6 

62 READ A(Z) :A(Z+8)-A(Z) 

64 NEXT 

66 DATA 128,64,32,16,8,4,2,1 

70 FOR Z-l TO 16 

75 READ A$(Z) 

I 80 FOR ZZ-1 TO 8 

I 85 IF MIDS(AS(Z) ,ZZ, !)•"*" THEN 



Z(1,Z)-Z(1,Z)+A(ZZ) 

90 NEXT ZZ:FOR ZZ-9 TO 16 

95 IF MIDS(A$(Z) ,ZZ.l)-"*" THEN 

Z(2,Z)-Z(2,Z)+A(ZZ) 
100 NEXT ZZ.Z 

110 CLS:IF PH$-"S" THEN OPEN "L 
PT:" FOR OUTPUT AS ll ELSE OPEN 

"CRT : * FOR OUTPUT AS |1 
120 PRINT tl, "Linha DATA "; 
130 FOR Z-l TO 16 
132 PRINT il.ZU ,Z) ; " ; 
134 NEXT Z 
136 FOR Z-l TO 16 
138 PRINT #1,Z(2,Z) ; : IF Z<16 TH 
EN PRINT il , " , " ; 
140 NEXT Z 

145 PRINT ":PRINT #1." * 

150 IF PRS-"S" THEN GOTO 170 
155 PRINT *1. "Aperte RETURN par 



60 

170 SCREEN 1,3: COLOR 14,5.5 
172 VPOKE BASE(6)+15,68 
174 VPOXE BASE(6)+5,69 
176 PRINT tl.TAB(S) : "DESENHO DO 
SPRITE" 

178 PRINT ":PRINT #1," " 

180 PRINT 11. TAB[5) ="1234567890 
123456" 

190 FOR Z-l TO 16 

195 PRINT ll ,TAB(5) ; 

200 FOR ZZ-1 TO 16 

205 IF MIDS(ASÍZ) ,ZZ, 1)-""" THE 

N PRINT H.CHRSU20) r ELSE PRIN 

T II , " . " ; 

210 NEXT ZZrPRINT 11," ";Z 

220 NEXT Z:IF PRS-"S" THEN CLOS 

E : END 

230 FOR Z-l TO 16 
240 A$-A$+CHR$(ZU.Z)) 
250 B$-BS+CHRS(Z(2.Z>) 
260 NEXT:SPRITES(0)-AS+B5 
270 FOR Z-190 TO 5 STEP -5 
275 PUT SPRITE0, (10, Z) ,1 
280 NEXT 

290 IF PR$<>"S" THEN GOTO 290 



300 REH 1234567890123456 

301 DATA" 

302 DATA" 

303 DATA" 

304 DATA" 

305 DATA" 

306 DATA" 
30 7 DATA" 

308 DATA" 

309 DATA" 

310 DATA" 

311 DATA" 

312 DATA" 

313 DATA" 

314 DATA" 

315 DATA" / " 

316 DATA" 

Rode o programa, tal como ele está, 
para verificar se houve algum erro de di- 
gitação. Ao fazê-lo, responda N à per- 
gunta da linha 30. 

Para usar o programa, digite LIST 
300-, Isso fará com que as dezesseis li- 
nhas DATA vazias do final da listagem 
surjam na leia. Desenhe dentro delas o 
padrão do seu sprite. Cada uma das de- 
zesseis posições das linhas, entre as as- 
pas, reprcsenla um ponto. Use apenas 
os controles de movimentação do cur- 
sor e a barra de espaço, colocando um 
asterisco nas posições que deseja acen- 
der. Evite usar 1!NS e DEL, que alteram 
o número de posições entre as aspas. 
Não deixe dc apertar RETURN em ca- 
da uma das dezesseis linhas DATA; ca- 
so contrário, o MSX não se lembrará 
delas. Orienle-se pelos números da linha 
300, que correspondem às posições ho- 
rizontais. Um desenho típico se encon- 
tra na figura da página ao lado, que re- 
presenta um pássaro voando. 

Quando completar seu desenho, apa- 
gue a teia e liste as últimas linhas para 
conferir. Rode o programa. O compu- 
tador lhe dará. entào, a opção de cópia 
impressa. Responda N e veja o resulta- 
do na tela. 

Primeiro, surgem os 32 números das 
linhas DATA. Um desenho ampliado de 




PLANEJAMENTO DE SPRITES 

Existe um modo muito prático de 
usar o programa de criação de sprites. 
Desenhe seu sprite em papel quadricu- 
lado com tamanho correspondente ao 
das linhas DATA do final da listagem. 
Pregue-o com fita adesiva na tela de 
sua TV. Em seguida, simplesmente use 
os controles do cursor para desenhar 
asteriscos nas posições dos quadrinhos 
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seu sprite é mostrado a seguir, 
apertando-se a tecla RETURN. As te- 
clas CTRL e STOP, pressionadas ao 
mesmo lempo, interrompem o progra- 
ma. Caso tenha uma impressora e dese- 
je uma cópia impressa, rode o progra- 
ma novamente e responda S à pergunta 
da linha 30. O resultado será enviado à 
impressora, e não ã tela. Algumas im- 
pressoras requerem um ajuste no núme- 
ro máximo de caracteres por linha (use 
quarenta). 

Para o exemplo da figura do pássa- 
ro, o resultado c o seguinte: 

Linha DATA 128 , 192 , 176 . 7 
2 . 116 , 84 , 50 , 42 . 41 , 3 
7 , 26 , 4 . 56 , 199 , 98 . 28 

. 7 . 30 . 42 , 84 . 84 , 168 
, 168 . 208 , 160 . 248 , 4 . 3 
4 , 222 , 33 , 144 , 72 

DESENHO DO SPRITE 



1234567890123456 



O mesmo programa pode ser utiliza- 
do para sprites pequenos. Para tanto, 
desenhe seu padrão utilizando apenas 
os oito primeiros bytes, ou seja, no qua- 
drante superior esquerdo do conjunto de 
linhas DATA. Considere apenas os pri- 
meiros oito números calculados. 



O programa seguinte desenha e mo- 
vimenta o sprite do pássaro, que acaba- 
mos de calcular. 
10 SCREEN 1,2: COLOR 15.4,4 

20 FOR 1-1 TO 32 

21 READ A:AS"AS+CHRS(A) 

22 NEXT I :TIME-0 

23 SPRITES (0) -AS 

25 X-90:Y-X:GOTO 50 

30 KS-INKEYS:A-0:XX-0 

31 IF KS-"" THEN GOTO 30 

32 IF KS-CHRS(30) THEN A-l: GOTO 
50 

35 IF KS-CHRS(31) THEN A-2:GOTO 
50 

40 IF KS-CHRSÍ29) THEN XX--2:GO 



TO 50 

45 IF RS-CHBS(28) THEN XX-2:GOT 

O 50 

50 FOR Z-l TO 10 

52 X-X+XX:IF X>255 THEN X-0 

55 IF X<-32 THEN X-255 

60 IF A-l AND Y>-32 THEN Y-Y-2 

65 IF A-2 AND Y<190 THEN Y-Y+2 

70 PUT SPRITE 0,(X.Y),15 

75 NEXT Z:GOTO 30 

100 DATA 128,192,176.72,116,84. 

50,42,41,37,26,4,56,199,98,28,7 

,30.42,84.84,168.168,208.160,24 

8,4.34,222,33.144,72 

O sprite é desenhado na tela de tex- 
tos de 32 colunas e pode ser movimen- 
tado pelas teclas de controle do cursor. 
Para usar qualquer outro sprite, basta 
mudar a linha 100. 

O laço contido nas linhas 20, 21 e 22 
lè os valores da linha 100 e os coloca na 
variável A$. A linha 25 define o sprite 
atribuindo-lhe o número 0. As linhas de 
30 a 75 movimentam o sprite conforme 
a tecla pressionada. 



Outro recurso interessante dos spri- 
tes é a indicação da ocorrência de coli- 
são entre dois deles, em sua movimen- 
tação peia tela. Para entender como is- 
so é feito, apague a linha 32 do último 
programa e acrescente: 

20 SPRITE ON ! FOR 1-1 TO 40 

22 NEXT I:TIME-0:S-0 

23 SPRITES(0)-LEFTS(AS,32) 

24 SPRITESU)-RIGHTS(AS,8) 

25 X-90:Y-X:XX-100:YY-XX 

30 FOR Z-l TO 5:LOCATE 0,0 

31 PRINT "TEMPO: " ; TIME ; 

35 A-INT(RND(1)*3)+1:X-X+10 

36 IF X>255 THEN X — 30 

40 IF A-l AND Y>-30 THEN Y-Y-10 
45 IF A-2 AND Y<250 THEN Y-Y+10 
50 PUT SPHITE l.(X.Y),15,0 

52 ZS-INKEYS:IF 2$-"" THEN GOTO 
52 

53 IF ZS-CHRS [ 29) AND XX>-30 TH 
EN XX-XX-5 

55 IF ZS-CHRS (28) AND XX<250 TH 
EN XX-XX+5 

60 IF ZS-CHRS (30) AND YY>-30 TH 
EN YY-YY-5 

65 IF ZS-CHRSOD AND YY<190 TH 
EN YY-YY+5 

70 PUT SPRITE 0, (XX, YY) .10.1 
72 ON SPRITE GOSUB 1000 

75 LOCATE 20,0: PRINT "SCORE: "i 

S 

76 NEXT Z:IF TIME<5000 THEN 30 
80 PRINT : PRINT "O Tempo acabou 
! " : END 

110 DATA 8.8,62,8,8,0.0,0 

1000 SPRITE 0FF:S-S+1 

1010 FOR I-Y TO 191 

1020 PUT SPRITE 1,(X,I),15,0 

1030 NEXT I:SPRITE ON 

1040 X — 30 : RETUBN 




COMO EDITAR UMA LINHA DATA 

Para evitar o trabalho de digitar a li- 
nha DATA criada pelo programa, taça 
o seguinte: assim que o computador 
fornecer os números, pare o programa 
usando CTRL + STOP. Movimente o 
cursor até o topo da tela, onde se en- 
contra a linha DATA. Usando DEL, apa 
gue a palavra "Linha" e, usando INS. 
escreva o número da linha DATA no 
programa que está preparando. A se- 
guir, aperte RETURN O efeito será 
idêntico ao da digitação de todos aque- 
les números. 

Este método pode ser usado para 
colocar a mesma linha em programas 
já existentes em fita. Carregue o pro 
grama sem apagar a linha DATA da ta 
bela. O programa carregado apaga a 
memória, mas não apaga a tela. Movi- 
mente o cursor até a linha DATA. mo 
difique seu número, se necessário, e 
aperte RETURN 



Este é um pequeno jogo de "tiro ao 
pássaro", extremamente simples, mas 
útil à nossa finalidade. Não explicare- 
mos seu funcionamento enquanto jogo. 
restringindo-nos apenas ao controle de 

Para que possamos trabalhar com co- 
■lisões de sprites, devemos "habilitar" o 
programa a reconhecer tal ocorrência, 
por meio da instrução SPRITE ON, na 
linha 20. Uma vez feita a habilitação, 
devemos usar a instrução ON SPRITE 
GOSUB, que desvia o programa para 
uma sub-rotina sempre que quisermos 
verificar se houve uma colisão de spri- 
tes. Nesta sub rotina pode estar progra 
mado um efeito visual ou sonoro de ex 
plosào, por exemplo. Em nosso progra- 
ma, tal comando ocorre na linha 72. Ca 
so haja colisão entre o pássaro e a "mi 
ra", o controle c transferido para a sub- 
rotina 1000, que incrementa o escore e 
faz com que o pássaro caia. Durante a 
execução da sub-rotina, o programa é 
desabilitado pela instrução SPRITE 
OFF na linha 1000. Esse é um procedi- 
mento usual e quase sempre necessário, 
e não há uma explicação simples para 
ele. Retire este comando, bem como o 
de habilitação da linha 1030, e veja co- 
mo ocorrem erros no escore. 

Existe ainda a instrução SPRITE 
STOP, que não desabilita o programa 
mas adia qualquer desvio, guardando a 
ocorrência de colisões na memória. Só 
haverá o desvio após a ocorrência de um 
SPRITE ON no programa. 
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CONJUNTOS : CAIXAS 
DE INFORMAÇÃO 



Os conjuntos constituem um recurso 
muito eficaz para armazenar e 
processar listas de qualquer natureza: 
nomes, datas, as mais diversas 
estatísticas. Aprenda a utilizá-los. 



Os conjuntos são uma forma de re- 
presentação de dados em programa BA- 
SIC, constituindo método mais adequa- 
do para se programar a manipulação de 
informações inter-relacionadas — por 
exemplo, listas dos membros de um clu- 
be, com seus respectivos endereços e ins- 
crições, registros financeiros ou, então, 
listas de personagens, armas e tesouros 
para um jogo de aventuras. 

O comando LET, que você já conhe- 
ce, poderia ser utilizado para atribuir va- 
lores como esses a uma série de variá- 
veis. No entanto, para listas muito lon- 
gas, ele é bastante ineficiente, pois to- 
ma muito tempo de digitação, 

O conjunto simplifica o trabalho, ar- 
mazenando a informação de uma for- 
ma mais compacta. Em vez de uma va- 
riável diferente para cada item da infor- 
mação, utiliza-se uma variável com o 
mesmo nome para todos os itens — o 
A, por exemplo. E, para se diferenciar 



um item dos demais, acrescenta-se sim- 
plesmente um número (ou. às vezes, uma 
expressão aritmética) entre parênteses, 
logo após o nome da variável. O primei- 
ro elemento é chamado de A(l), o se- 
gundo de A(2), o terceiro de AC3) e as- 
sim por diante. 

O conjunto não apenas torna o sis- 
tema de armazenagem mais compacto, 
como também facilita grandemente a 
programação da entrada, modificação 
e listagem dos dados nele contidos. 



COMO DIMENSIONAR UM CONJUNTO 



Antes de utilizar um conjunto em 
BASIC, é necessário declarar ao com- 
putador o tamanho (númerode elemen- 
tos) que ele o terá. Assim, o computa- 
dor poderá reservar espaço suficiente na 
memória. Isto é feito mediante a decla- 
ração DIM (de "dimensão"), como se 
vè a seguir: 



Use um A maiúsc 
da linha ZX-81. 



10 DIM a(4) 



A declaração DIM acima informa ao 
computador que o conjunto A terá qua- 
tro elementos, ou variáveis. Nos com- 
putadores Apple, TRS-Color e MSX 
eles são numerados de AIO) a A(3). Nos 
micros da linha Sinclair, que não acei- 
tam o elemento A(0), eles são numera- 
dos de AH) a A<4>. 

O número de elementos que se vai di- 
mensionar pode ser tão grande quanto 
se queira (milhares, por exemplo), des- 
de que caiba na memória RAM do com- 
putador, é claro. Na verdade, não è 
obrigatório dimensionar o número exa- 
lo de elementos que se utilizarão: para 
ter a garantia de que o espaço será sufi- 
ciente, reserve um pouco mais. Mas te- 
nha em mente que o espaço de memó- 
ria reservado com um DIM não poderá 
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ser ocupado por outras variáveis. Por is- 
so, não dimensione exageradamente, ou 
receberá uma mensagem de "'estouro de 
memória" (oul of memory). 



ATRIBUIÇÃO DE VALORES 



O passo seguinte consiste em atribuir 
os valores para cada elemento. Se, por 
exemplo, as variáveis representassem as 
locações da tela nas quais se imprimiria 
um texto ou um gráfico, a próxima li- 
nha seria mais ou menos isto: 



20 LET A(l)-0 
30 LET A(2)-2 
40 LET A(3)-10 
50 LET A(4) -20 

Até agora, nào houve economia de 
tempo ou dc espado na memória. Ao con- 
trário, teria sido bem mais rápido utilizar 
um simples comando LET. Mas veja em 
seguida o que acontece quando è neces- 
sário armazenar valores que são diferen- 
tes, cada vc* que se roda o programa: 



30 INPUT a(l) ,al2) ,al3) ,a(4) 



10 dim AtU 

20 PRINT "QUAIS SAO 

OS VALORtS?" 



10 DIM A(3) 
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30 INPUT A(l> 

40 INPUT A(2) 

50 INPUT A[3) 

60 INPUT A(4) 

O computador pedirá o valor de ca- 
da variável, sempre que você rodar o 
programa. Bastará, então, digitar um 
número (seguido por <ENTER> ou 
<RETURN>) quando o computador 
solicitar. 

Assim, na medida em que o programa 
tiver um número maior de elementos, o 
tempo economizado passará a compen- 
sar o trabalho inicial. Suponha, por 
exemplo, que você queira entrar uma 
centena de números. Um programa bem 
simples será o suficiente: 

imas 

10 DIU A (99) 
20 FOR N-0 TO 99 
30 INPUT A (N) 
40 NEXT N 



No ZX-81 digite em letras maiúsculas. 

10 DI m a(100) 
20 F0B n-1 TO 100 
30 INPUT a(n) 
40 NEXT n 



números. O dimensionamento do con- 
junto específico para nomes é assim: 

1 é 

10 DIM AS (5) 

Nos micros da linha Sinclair {ZX-81 
e Spectrum) é necessário ainda especifi- 
car o comprimento máximo que a cadeia 
alfanumérica poderá ter. Assim, se o 
maior nome da lista tiver dez caracteres, 
os conjuntos de nomes serão dimensio- 
nados da seguinte maneira: 



No ZX-81 digite em letras maiúsculas. 

10 DIM aS(6,10) 

Em cada caso o computador reservou 
espaço na memória para seis cadeias al- 
fanuméricas (nomes, rótulos, etc). Pa- 
ra definir o laço de entrada desses no- 
mes, digile: 

í « MQQ 

20 FOR N-0 TO 5 
30 INPUT AS(N) 
40 NEXT N 



20 FOR n-1 TO 6 
30 INPUT aS tn) 
40 NEXT n 

Rode o programa e entre os nomes 
à medida que forem pedidos na tela, 
seguindo-os por <ENTER> ou <RE- 
TURN > . Se você quiser verificar, logo 
após digitar cada nome, se o armazena- 
mento foi correto, adicione esta linha ao 
programa acima e rode-o novamente: 



CONJUNTO DE NOMES 



O tipo de conjunto descrito até aqui 
permite apenas o armazenamento de nú- 
meros. Mas também é possível utilizar 
conjuntos para armazenar cadeias alfa- 
numéricas. 

Se você quiser processar tanto nomes 
quanto números, por exemplo, precisa- 
rá definir dois conjuntos separadamen- 
te: um para os nomes e oucro para os 



35 PP.INT AS(N) 



35 PRINT aS(n> 



Não é difícil digitar seis nomes, mes- 
mo que sejam longos. E, ainda que o 
número de nomes chegue a cem, o tra- 
balho será rápido. Imagine, por exem- 
plo, que você esteja realizando uma pes- 
quisa sobre o campeonato de Fórmula 
1 e deseja armazenar os nomes das cur- 
vas e o número de batidas que ocorre- 
ram em cada uma delas durante uma 



temporada de corridas. Não será impro- 
vável que precise entrar algumas deze- 
nas de curvas, ou até mais, dependen- 
do do caso. Mas o princípio é o mesmo 
que o utilizado no programa a seguir, 
com apenas seis nomes. Este programa 
faz com que o computador leia a série 
de nomes de curvas do autódromo de 
Jacarepaguá, armazenados em declara- 
ções DATA (os micros da linha ZX-81 
não dispõem desse recurso): 

ú 

10 DIM A3(5) 
20 FOR N-0 TO 5 
30 P.EAD AS(N> 
40 NEXT N 

50 DATA NORTE. NONATO, PACE 
60 DATA UM, VITORIA, LAGOA 



10 DIM a$(6,ll) 
20 FOR n-1 TO 6 
30 READ aSín) 
40 NEXT n 

50 DATA"NORTE" . "NONATO" , "PACE* 
60 DATA-UM", "VITORIA". "LAGOA" 

Os nomes são lidos nas declarações 
DATA na linha 50 e armazenados em 




um conjunto, na linha 10. Assim, cada 
vez que o programa é rodado, os mes- 
mos nomes entram automaticamente. 
No caso de existirem cem nomes, em vez 
de seis, modifique a linha 10 para DIM 
A$(99) e a linha 20 para FOR N = 0 
lo 99 (para os micros Apple, TRS-80, 
TRS-Color e MSX), ou DIM A$ (100, 
11) e FOR N = 1 TO 100 (para o Spec- 
trum). Em seguida, você poderá acres- 
centar os 94 nomes restantes às decla- 
rações DATA, a partir da linha 50. 

O próximo passo será a definição do 
conjunto que conterá o número de aci- 
dentes em cada curva. 

60 DIM A (5) 
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70 FOR N-0 TO 5 
80 READ A (N) 
90 NEXT N 

100 DATA 0.2.5,1,3,6 



60 DIM a (6) 

70 FOR n=l TO 6 

80 READ a(n) 

90 NEXT n 

100 DATA 0,2.5,1.3.6 

É possível ignorar o elemento zero de 
um conjunto, nos computadores Apple, 
MSX, TRS-80 e TRS-Color, se for mais 
conveniente. Assim, no último exemplo, 
podemos definir DIM AS (6) e numerar 
os itens de 1 a 6. Isso significa que 
AS(0) fica vazio, pois é mais usual con- 
tar a partir do 1 do que 0. 



UTILIZAÇÃO DOS CONJUNTOS 



Agora o computador já "sabe" 
quantos acidentes ocorreram em cada 
curva. Mas como essa informação po- 
de ser manipulada? 

Provavelmente, você gostaria que, 
antes de mais nada, o computador im- 
primisse uma lista com todas as curvas 
e o número dos acidentes registrados em 
cada uma — somente para checar se os 
dados foram digitados corretamente. 
Adicione as linhas seguintes ao progra- 
ma e rode-o de novo. 



mmâB 



300 CLS 

310 LET TL-0 

320 FOR N-0 TO 5 

330 LET TL-TL+A<N) 

340 NEXT N 

350 PRINT "NUMERO TOTAL DE ACTD 
ENTES " ; TL 



210 FOR N-0 TO 5 
220 PRINT AS(N) ,A{N) 
230 NEXT N 



210 FOR n-1 TO 6 
220 PRINT aS(n) ,a(n) 
230 NEXT n 

As linhas 210 e 230 percorrem a lis- 
ta, enquanto a linha 220 imprime os no- 
mes e os números armazenados nos con- 
juntos correspondentes. Se algum erro 
de digitação foi cometido, você terá a 
oportunidade de localizá-lo. 

Você pode, também, querer analisar 
os resultados contidos nos conjuntos 
Por exemplo, para o levantamento d; 
corridas, seria interessante obter respoí 
tas para questões tais como: "quantas 
colisões ocorreram ao todo?"; "quais 
são as curvas mais seguras?". As linhas 
adicionais do programa, destinadas a 
identificar o tota! de acidentes, são as 
seguintes: 



Substitua no programa anterior o co- 
mando CLS por HOME, na linha 300. 



300 CLS 

310 LET total-0 
320 FOR n-1 TO 6 
330 LET total-tot, 
340 NEXT n 
350 PRINT "Numero 
dentes: ";total 



ANALISE DA INFORMAÇÃO 



Imagine o quanto o programa acima 
seria útil se existissem cem curvas, em 
vez de apenas seis. 

E. levando em conta que a informa- 
ção não apenas pode ser facilmente ar- 
mazenada em um conjunto, como tam- 
bém pode ser analisada com a mesma 
facilidade, você entenderá por que os 
conjuntos constituem um instrumento 
tão poderoso — para qualquer coisa, 
desde orçamento doméstico até finanças 
internacionais. 

Digite estas linhas extras para exami- 
nar um exemplo de análise: 

* './<■■■■ 

400 FOR N-0 TO 5 

410 IF A(N)>3 THEN PRINT AS (N) , 
MH) 

420 NEXT N 




400 FOR n-1 TO 6 

410 IF a(n)>3 THEN PRINT aS(n 

) .a(n) 
420 NEXT n 

Esta parte do programa mostra na te- 
la uma lista das curvas nas quais ocor- 
reram mais de três acidentes. Em nosso 
exemplo de seis nomes, elas são as cur- 
vas PACE e LAGOA. Sc você substituir 
o número 3 pelo 5, na linha 410, e ro- 
dar o programa, apenas LAGOA será 
impresso. Para qualquer número maior 
do que 6 —nesse caso, o maior valor — 
nada será impresso. 

A informação armazenada nos con- 
juntos poderia ser, para dar um segun- 
do exemplo, uma lista de famílias de 
uma cidade, juntamente com estatísti- 
cas como o número de crianças, os ren- 
dimentos mensais e o número de carros. 

Uma vez que esses elementos tenham 
sido entrados, eles poderão ser classifi- 
cados em grupos e analisados de inúme- 
ras maneiras. Por exemplo, suponha 
que queiramos listar os dados de todas 
as famílias com sobrenome começando 
com P. Para ter uma ideia de como isso 
funciona, acrescente estas linhas ao 
programa: 

600 FORN-0TO5 

620 IFLEFTS(ASÍN) , 1 ) - " P "THENPRI 
NTAS (N) 
630 NEXT 



600 FOR n-1 TO 6 

620 IF aSín,l)-"P" THEN PRINT 

aS(n) 

630 NEXT n 

As linhas 600 e 630 definem um la- 
ço, para examinar cada elemento do 
conjunto de nomes. Ã medida que isso 
ocorre, a linha 620 checa o primeiro ca- 
ractere. Se ele for P, um nome inteiro 
aparecerá. 

Nesse caso, a curva chamada PACE 
será impressa, porque é a única que co- 
meça com P. No exemplo do conjunto 
de família, poderíamos escrever uma li- 
nha do programa que listasse todas as 
famílias 'SILVA', todas as que tivessem 
mais de um carro, e assim por diante. 
Outra possibilidade é o cruzamento de 
informações — por exemplo, quais as 
pessoas cujos nomes começam por 'A', 
que moram em determinada rua, no nú- 
mero 21, e cujo cachorro é um fila bra- i 
sileiro ! 




TRAI 
DO ASSEMBLY 
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Rápidos e eficientes, os programas 
em código de máquina têm, contudo, 
uma desvantagem: é extremamente di- 
fícil escrevê-los e depurá-los. Frequen- 
temente, de fato, eles parecem apenas 
uma sequência de números sem sentido, 
pois instruções, dados e endereços são 
lodos especificados como números he- 
xadecimais. 

A solução não está em deixar de es- 
crever programas em códigos de máqui- 
na. A maioria deles é escrita inicialmente 
em linguagem Assembly e depois tradu- 
zida para código de máquina. Normal- 
mente, isto é feito por um outro progra- 
ma, chamado Assembler (ou seja, mon- 
tador). Porém, se você não dispuser de 
um Assembler — ou se quiser aprofun- 
dar seus conhecimentos — poderá fazer 
essa tradução manualmente e digitar os 
códigos hexadecimais resultantes na me- 
mória do computador, entrando o pro- 
grama monitor ou o inlerpretador BA- 
SIC (comandos PEEK e POKE). 



1 LINGUAGEM ASSEMBLY 



Você terá, assim, que aprender a lin- 
guagem Assembly, que está longe de ser 
tão difícil quanto os códigos de máqui- 
na. Os mnemónicos, que representam os 
códigos de operações da máquina, pra- 
ticamente dispensam explicações, pois 
são abreviaturas muito claras dos co- 
mandos correspondentes (mnemónico 
significa que lembra algo). Os dados e 
endereços são todos numéricos, assim 
como os códigos de máquina. Mas, 
usando códigos alfabéticos para escre- 
ver os comandos, a sequência pura de 
números será rompida, e ficará muito 
mais fácil para o programador entender 
o programa resultante. 

Ao se programar em linguagem As- 
sembly, portanto, basta consultar em 
uma tabela os códigos mnemónicos re- 
ferentes ao microprocessador utilizado 
pelo seu computador. 

O Sinclair Spectrum, o ZX-81, o 
TRS-80 e o MSX empregam o micro- 
processador Zilog Z-80, enquanto o 
TRS-Color usa o Motorola 6809, e o 
Apple II e o TK-2000 utilizam o 6502. 
O resultado da consulta à tabela é o có- 
digo de operação numérico correspon- 



dente. Coloque-o no lugar correto, e a 
tradução estará praticamente feita. 

Há algo mais a ser lembrado. Nos 
computadores das linhas Sinclair, Ap- 
ple II, TRS-80 e MSX, não se pode es- 
quecer de trocar a ordem dos bytes cons- 
tantes de um endereço de memória, do 
programa, ou de outros dados que pre- 
cisam ser representados por dois bytes 
(dezesseis bits). A razão disso é que es- 
sas máquinas armazenam números no 
formato de byte-baixo/byte-alto. O 
TRS-Color utiliza um formato inverso, 
ou seja, de byte-alto/byte-baixo, de mo- 
do que você poderá deixar os dados ou 
endereços de dezesseis bytes em sua or- 
dem normal. 



Os mnemónicos — assim como os có- 
digos de máquina em hexa que eles re- 
presentam — servem para manipular o 
conteúdo de um registro, definir o va- 
lor de um sinalizador ou passar de um 
ponto a outro no programa. Estas são, 
basicamente, as únicas coisas que as ins- 
truções em código de máquina são ca- 
pazes de realizar. Um exemplo de mne- 
mónico é LDA, que significa LoaD Ac- 
cumulator (carregar o acumulador). 



Se quisermos utilizar ei 
veremos começar por aprender a tradu- 
zir os mnemónicos da linguagem As- 
sembly para códigos hexadecimais. 



Contudo, traduzir programas em lin- 
guagem Assembly para código de má- 
quina não é tão fácil quanto parece. 
Mesmo uma instrução simples como 
LDA pode ser traduzida para cinco a 
quinze códigos de operações diferentes, 
dependendo da máquina. 

Os diversos códigos de operações de- 
pendem do tipo de endereçamento que 
está sendo utilizado, ou seja, das formas 
de acesso à memória RAM que são uti- 
lizadas pelo microprocessador. 

Veremos a seguir como realizar a tra- 
dução correta de um programa em lin- 
guagem Assembly para os vários tipos 
de computador. Na próxima lição, 
aprenderemos a montar rotinas muito 
úteis em linguagem Assembly. 



O tipo mais simples de endereçamen- 
to no ZX-81 é o chamado endereçamen- 
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Montar programas em código de máquina ■ LI NGUAGEM ASSEMBLY 

pode ser um risco para seu equilíbrio ■ CÓDIGOS MNEM Ó NICOS 

mental! Uma alternativa mais saudável ■ COMO CONVERTER OS CÓDIGOS 

é escrevê-los em Assembly e depois ■ ENDERE ÇA MENTO 

traduzi-los para hexadecimal. 1 DESVIOS E USO DE RÓTULOS 



to imediato, no qual um valor numéri- 
co é usado como argumento do código 
de operação: 

LD A,4 

significa: "'carregar (LOAD) o acumu- 
lador (A) com o número 4"; essa ins- 
trução é traduzida para o código 3E04 
em linguagem de máquina. 

Já no endereçamento direio é forne- 
cido um endereço onde o dado pode ser 
encontrado, ao invés do próprio dado. 
Por exemplo: 

LD A,(0E2D> 

significa: "carregar o conteúdo da lo- 
cação 0K2D no registro A". Isto se tra- 
duz para 3A 2D OE (observe que os dois 
bytes correspondentes ao endereço fo- 
ram trocados), 

O endereçamento direto também fun- 
ciona de modo inverso: 

LD 10E2D).A 

significa: "carregar o conteúdo do re- 
gistro A na locação de memória 
0E2D". Isto c traduzido para 32 2D OE 
(novamente os dois bytes foram inter- 
cambiados). Um terceiro tipo c o ende- 



reçamento indireto. Este diz à máquina 
onde encontrar o endereço do dado ne- 
cessário. Por exemplo, a instrução: 

LD A, (HL) 

significa: "carregar o registro A com o 
dado pertencente ao endereço contido 
no par de registros HL". 

Em outras palavras, o microproces- 
sador examina o registro HL e usa esse 
número como o endereço da locação de 
memória onde está o byte a ser carrega- 
do no acumulador. 

Esse comando funciona também na 
direção contrária: 

LD (HL), A 

significa: "carregar o conteúdo do re- 
gistro A na locação de memória cujo en- 
dereço se encontra no par de registros 
HL". 

Existe um tipo especial de endereça- 
mento indireto que é chamado de ende- 
reçamento indexado. Aqui, um dos dois 
registros de indexação — IX e IY — e 
0 próprio endereço a ser utilizado são 
fornecidos por um valor de deslocamen- 
to, o qual é acrescentado aos conteúdos 
dos registros IX ou IY. 

Uma instrução típica poderia ser: 




LD A, (IX + 2F) 

Observe que o deslocamento é de 
apenas um byte. 

Os dados também podem ser trans- 
feridos de um registro para outro. Isso 
é chamado de endereçamento de regis- 
tro a registro, cuja instrução correspon- 
dente é escrita assim: 

LD D,B 

que significa: "carregar o conteúdo do 
registro B no registro D". 

O endereçamento relativo é emprega- 
do apenas com comando de desvio. Ele 
diz ao computador quantos bytes este 
deve saltar para a frente ou para trás. 
Por exemplo: 

JRNZ OFC 

O mnemónico JRNZ (Jump Relati- 
ve on Non-Zero) significa: "saltar FC 
bytes em relação à posição atual. se o 
resultado da última operação efetuada 
for diferente de zero", ou seja, se o si- 
nalizador de zero no registro de sinali- 
zadores (flag register) não for igual a I . 
O FC diz para onde saltar. 

FC é -4 em complemento de dois. 
Assim, se o sinalizador dc zero não es- 
tiver ligado, o microprocessador salla 
quatro bytes para trás no programa, 
contados a partir do final da instrução 
JRNZ OFC, e esta é traduzida para 20 
FC em código de máquina. Assim, o mi- 
croprocessador salta de fato para a ins- 
trução que apareceu dois bytes antes 
dela. 

Na realidade, raramente o endereça- 
mento relativo é utilizado em linguagem 
Assembly. Normalmente os saltos são 
indicados por rótulos [/abeis). Estas são 
palavras inventadas pelo programador, 
que cumprem a função de marcadores 
— tal como INICIO — destinados a as- 
sinalar o começo de determinadas por- 
ções de um programa. 

Esse marcador aparece na frente da 
instrução para onde será realizado o sal- 
to, ou ainda, logo após a instrução de 
salto. Por exemplo, a linha inicial po- 
deria ser: 



INICIO LD A.07 
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e em algum outro pomo do programa 
apareceria a instrução de salto: 

DJNZ INICIO 

O DJNZ (Decrement and Jump on 
Non-Zero) significa: "reduzir de 1 o va- 
lor do registro B e saltar para a instru- 
ção logo a seguir, onde o rótulo INICIO 
estiver colocado, no caso de o sinaliza- 
dor de zero não estar ligado". Ao tra- 
duzir manualmente para código de má- 
quina, você precisará elaborar os saltos 
relativos por sua própria conta. 



BM1I 



A forma mais simples de endereça- 
mento no microprocessador 6502 é o en- 
dereçamento implícito. Na verdade, ele 
não é propriamente um endereçamento. 
Por exemplo: 

CLC 

significa: "limpar o sinalizador de trans- 
porte (Clear Carry Flag)" . Não é neces- 
sário nenhum tipo de endereço como ar- 
gumento. A ação é executada no sinali- 
zador de transporte, cujo endereço está 
implícito na instrução. 

No endereçamento imediato o dado 
segue diretamente a instrução. Por 
exemplo: 

LDA #&04 

Essa operação carrega o acumulador 
com o número 4. O comando LDA é 
traduzido, na tabela de códigos de ope- 
rações do 6502, para A9 quando esta 
modalidade de endereçamento é utiliza- 
da. Assim, a instrução completa passa 
a ser A904. 

Já no endereçamento absoluto, o en- 
dereço completo de uma locação de me- 
mória segue o mnemónico. Por 
exemplo: 

LDA & 1122 

■ significa: "carregar o acumulador com 
I o dado armazenado na locação de me- 



mória 1122". Essa forma também é co- 
nhecida como endereçamento direto. 

A tradução para o LDA com ende- 
reçamento absoluto é o código hexade- 
cimal AD. No exemplo acima, a instru- 
ção completa é traduzida para AD 2211. 
Observe que essa operação tem três 
bytes e que os dois bytes do endereço são 
trocados de ordem, quando se traduz da 
linguagem Assembly para o Apple. 

Na página 0 — isto é, de 0000 a OOFF 
— não é preciso especificar o primeiro 
byte de endereço, mas deve-se utilizar 
um código de operação especial de pá- 
gina 0 (chamado de código de operação 
de endereço curto), o qual diz ao com- 
putador para olhar para um endereço de 
um byte. 

O código de operação para LDA na 
modalidade de endereçamento de pági- 
na 0 é A5. Assim, uma instrução como: 

LDA &7F 

será traduzida para A57F. 

Com o endereço absoluto e o ende- 
reço de página 0, é possível utilizar o en- 
dereçamento indexado, no qual o con- 
teúdo de um dos registros de indexação 
-X e Y- é acrescentado ao endereço 
dado com a instrução, para fornecer um 
segundo endereço que será utilizado. 
Por exemplo: 

LDA &1122.X 

Suponha que o conteúdo de registro X 
seja 33. Acrescentando-se 33 a 1122, 
obtém-se 1 155; o acumulador é, então, 
carregado com o dado que se encontra 
na locação de memória 1155. 

Ambos os registros X e V podem ser 
empregados para indexar tanto o ende- 
reçamento absoluto quanto o de pági- 
na 0. 

Mas note que, se a soma do conteú- 
do do registro X com o endereço da pá- 
gina 0 for maior do que FF e, em virtu- 
de disso, cair na página I. o byte mais 
significativo será ignorado. No endere- 
çamento de página zero, indexado ou 
qualquer outro, o endereço utilizado 
sempre estará na página 0. 

Ao usar endereçamento indexado 



deve-se consultar o código mnemónico 
em Assembly, correspondente à página 
0X, página 0Y, absoluto X ou absoluto 

Y. 

Também é possível endereçar indire- 
tamente uma locação de memória, 
utilizando-se o endereçamento indireto. 
Nesta forma, o código de operação é se- 
guido por um endereço entre parênteses. 
Isso significa que o microprocessador 
encontrará nesta locação um segundo 
endereço, o qual será empregado para 
acessar o dado. Por exemplo: 

JMP (&1530) 

significa: salte para o endereço dado na 
locação de memória 1530. Mas como 
qualquer locação de memória pode re- 
ter apenas um byte, e como são neces- 
sários dois bytes para compor um ende- 
reço, o microprocessador olha para 1530 
e 1531. A primeira locação contém o 
byte menos significativo, e a segunda, 
o byte mais significativo, de acordo com 
a convenção utilizada para esse micro- 
processador. Assim, se a locação de me- 
mória 1530 contém 2F, e a locação de 
memória 1531 contém 13, o micropro- 
cessador saltará para a locação de me- 
mória 132F. 

Existem também duas maneiras de 
indexar endereços indiretos. Com o re- 
gistro X você poderá acrescentar um 
deslocamento ao primeiro endereço (o 
endereço fornecido na instrução). O 
procedimento é chamado de endereça- 
mento indireto pré-indexado. Alterna- 
tivamente, você poderá acrescentar um 
deslocamento do registro Y para o se- 
gundo endereço (o endereço nas loca- 
ções de memória fornecido na instrução 
original). Isso é chamado de endereça- 
mento indireto pós-indexado. 

Esta é a aparência de instruções des- 
te tipo, em linguagem Assembly: 

LDA (&U22.X) e LDA <&1122),Y 

O primeiro código usa o endereça- 
mento pré-indexado, e o segundo, o pós- 
indexado. Para se consultar os códigos 
hexadecimais correspondentes, deve-se 
procurar o LDA sob (indireto, X) e (in- 
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direto),Y. Isso fornecerá Al e BI respec- 
tivamente. Assim, as duas instruções 
acima seriam traduzidas para Al 2211 
e BI 22 11. 

As instruções de desvio são saltos 
condicionais. Por exemplo: 

BEQ 

significa: desviar se for igual a (Branch 
if EQual* — isto 6, se o sinalizador ze- 
ro estiver igual a 1 . As instruções de des- 
vio podem utilizar endereçamento rela- 
tivo em alguns tipos de Assembler. 

BEQ #&04 

significa: salte quatro bytes para a frente 
a partir do início da próxima instrução, 
se o sinalizador zero estiver igual a I. 

Por meio de rótulos, indica-se ao mi- 
croprocessador o ponto do programa 
para onde o desvio deve ser realizado. 
A primeira instrução a partir deste pon- 
to é simplesmente precedida pelo rótu- 
lo. Por exemplo: 

INICIO LDA &04 

ao passo que a instrução que produz o 
desvio terá: 

BEQ INICIO 

O Assembler se encarregará, então, de 
calcular o desvio relativo. No entanto, 
se você está traduzindo manualmente 
uma listagem em Assembly, a respon- 
sabilidade pelo cálculo será sua. Códi- 
go de máquina não emprega rótulos, 
apenas números. Os microprocessado- 
res 6510 e 6502 comportam ainda mais 
um tipo de endereçamento — o endere- 
çamento por acumulador — , usado 
principalmente com instruções de deslo- 
camento e rotação de bits. Por exemplo: 

ASL A 

significa: desloque o acumulador de um 
bit (Accumulator Shift Left). É possí- 
vel utilizar esta instrução, também, com 
outras locações de memória, e não ape- 
nas com o acumulador. Neste caso, bas- 



ta substituir o A, no exemplo acima, pe- 
lo endereço de memória cujo conteúdo 
você quer deslocar. Esta locação pode 
ser indexada com o registro X, apenas. 

A instrução Lem o' seguinte efeito: o 
bit menos significante da memória é ze- 
rado, o bit mais significante é colocado 
no registro indicador de transporte 
(carryflag), e os bits restantes são des- 
locados uma posição à esquerda. Da 
mesma forma, existe o ASR (Accumu- 
lator Shift Right), para efetuar desloca- 
mentos de bits ã direita. 



il 




O microprocessador Motorola 6809, 
utilizado nos computadores compatíveis 
com a linha TRS-Color, tem um tipo de 
endereçamento implícito, também cha- 
mado endereçamento de registros. 

Esta expressão refere-se às instruções 
da linguagem Assembler que não preci- 
sam ser acompanhadas de um endereço 
pois operam cm um registro interno do 
microprocessador, que è estipulado pe- 
la própria instrução. Por exemplo: 

DECA 

significa: diminua de 1 o registro A (De- 
crement Accumulator). O código hexa- 
decimal correspondente, que pode ser 
encontrado na tnbela de conversão do 
manual do microprocessador, é 4A. 

No endereçamento imediato, o dado 
a ser utilizado é o próprio argumento da 
instrução. Por exemplo: 

ADDB #S7 

significa: adicione 7 ao registro B. O códi- 
go para ADD em modo imediato éCB, em 
hexadecimal, de modo que a instrução 
completa acima é traduzida para CB 07. 

Existe ainda outra forma de endere- 
çamento imediato, na qual se usa um se- 
gundo byte, chamado pós-byte. Neste 
caso, a instrução assume a forma: 

TFR A,B 

que significa: transferir o conteúdo do 



registro A para o registro B. 

Para traduzir essa instrução para có- 
digo de máquina, deve-se consultar o có- 
digo TFR na seção de endereçamento 
imediato da tabela. Isto nos dá o códi- 
go IF. A seguir, o pós-byte é avaliado 
um nibble (um grupo de quatro bits) de 
cada vez. 

Em geral, para usar esta instrução 
com o 6809, atribui-sc um digito hexa- 
decimal para cada registro. Dois desses 
dígitos são unidos para formar o pós- 
byte. Por exemplo, o registro A recebe 
o valor de 8, e o registro B, o valor de 
9. De modo que: 

TFR A,B 

é traduzido para IF 89. Se, ao contrá- 
rio, a instrução tivesse sido: 

TFR li. \ 

a instrução correspondente em código 
de máquina seria IF 98. 

No endereçamento absoluto, ou am- 
pliado, a instrução é acompanhada do 
endereço de dezesseis bits da locação de 
memória a ser utilizada. Por exemplo: 

ST A $7530 



significa: armazene o conteúdo do acu- 
mulador da memória &H7530 (Store 
Accumulator). A tradução, no caso, se- 
ria B7 75 30 (note que os dois últimos 
bytes, correspondentes ao endereço, são 
mantidos na ordem direta, como é obri- 
gatório para a maior parte dos outros 
tipos de microcomputador). 

A instrução é um pouco complicada, 
pois envolve três bytes. Usando-se en- 
dereçamento direto, porém, podemos 
reduzi-la para uma instrução de dois 
bytes. O microprocessador 6809 tem um 
registro de página direta, que armaze- 
na o byte mais significativo de um en- 
dereço. Assim, todas as memórias na- 
quela página podem ser endereçadas 
usando-se apenas um byte, no caso o 
menos significante. 

Esse recurso funciona da seguinte 
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maneira: o registro de página dircta é 
carregado usando-se a instrução TFR, 
mencionada acima, ou a insiruçào EXG 
(EXchanGe), que troca os conteúdos de 
dois registros entre si. 

EXG A, DP 

Na instrução acima, pede-se para in- 
tercambiar os registros A e página dire- 
ta (Direct Page). A instrução não ape- 
nas define a página direta com o que foi 
carregado em A com um comando LDA 
prévio: ela também armazena o núme- 
ro de página direta previamente retido 
por DP, de volta para o registro A. Da- 
li esse número pode ser jogado para uma 
locação de memória qualquer, usando 
a instrução STA. 

O byte mais significante da página di- 
reta — 75, neste exemplo — está agora 
definido, e o byte menos significante po- 
de ser dado com a instrução. Neste ca* 
so, para fazer a tradução manual, é ne- 
cessário consultar a instrução STA na 
labela de códigos, sob a seção de ende- 
reçamento indireto. O resultado é 97, 
em hexadecimal. Assim, a instrução 
completa do exemplo será 9730. 

Obviamente, não vale a pena repelir 
todo este procedimento cada vez que se 
quiser armazenar dados em uma loca- 
ção de memória. Definir o endcreço- 
base da página direta toma muito mais 
tempo do que o economizado com a re- 
dução da instrução de três bytes para 
dois bytes. Mas muitas vezes é suficien- 
te definir a página direta no começo de 
um segmento de programa e, dat em 
diante, armazenar todos os dados na 
mesma página. 

Endereçamento indireto ocorre quan- 
do o microprocessador precisa examinar 
uma memória indicada por um endere- 
ço que, por sua vez, contém um segun- 
do endereço, no qual estão os dados que 
serão carregados no acumulador. A for- 
ma de notação utilizada é entre col- 
chetes: 

LDA ISFEEEI 

Por meio desta instrução, pede-se ao 
microcomputador para recuperar um 
endereço, nas locações de memória 
FEEE e FFFF (o endereço completo, 
com dois bytes). 

Prosseguindo, a instrução carrega no 
acumulador A o conteúdo na locação 
com este segundo endereço. 

O endereço indireto também pode ser 
realizado com os registros U, S, X e Y, 
bem como com o cortador de programa. 

Em todos esses casos de endereça- 
I mento indireto, é necessário consultar o 
Imnemônico da instrução na tabela, sob 



a seção de endereçamento indexado, pa- 
ra se obter o código correspondente. Em 
seguida, deve-se consultar o pós-byte. 

No exemplo dado acima, consulta-se 
LDA sob a seção de endereçamento in- 
dexado, e se obtém A6. Depois, con- 
sulta-se o endereço [mmmm], que indi- 
ca um endereço geral de dezesseis bytes, 
na tabela de pós-bytes. Isto dá 9 F (ou 
BF, ou DF ou FF, pois os pós-bytes 
são repetidos para cada registro: como 
|mmmm] é independente de qualquer re- 
gistro, aparece quatro vezes). 

Assim a instrução completa: 

LDA ISFFFE] 

é traduzida para A6 9F FF FE. 

Usando os registros U, S, X e Y, bem 
como o contador de programa, pode-se 
estipular tanto o endereçamento não-in- 
direto (sem colchetes), quanto o ende- 
reçamento direto (com colchetes), usan- 
do-se deslocamentos (offsets). Os des- 
locamentos podem ser constantes — de- 
cimais, hexadecimais de oito ou dezes- 
seis bits — ou o conteúdo de outros re- 
gistros. Este conteúdo é somado ou sub- 
traído do conteúdo-base de um dos cin- 
co endereços indexáveis. 

LDA 0 ,X 

significa: carregue o registro acumula- 
dor com dados na locação de memória, 
cujo endereço está armazenado no re- 
gistro X. Nesse exemplo, o deslocamen- 
to é zero. Outros exemplos: 

LDA I.X 

significa: carregar o acumulador com o 
endereço em X, somado de I. 

LDA - 16, Y 

significa: carregar o acumulador com o 
endereço em Y*, diminuído de 16. 

LDA ($10,X) 

é a versão para endereçamento indexa- 
do. Ele carrega o acumulador com o 
conteúdo da locação de memória cujo 
endereço está indicado em X, e que é 
adicionado dc 10 (em hexadecimal). 

Em todos estes casos, o código ope- 
racional para LDA pode ser encontra- 
do na seção de endereçamento indexa- 
do, e o pós-byte apropriado precisa ser 
adicionado, a partir do que for encon- 
trado na tabela de pós-bytes. Desloca- 
mentos de oito bits e endereços de de- 
zesseis bits seguem-se a isto. 

Desvios em linguagem Assembler são 
programados por meio das instruções 



JMP e JSR. Estes desvios podem ser de- 
finidos em termos de endereços finais de 
página direta, ampliados, ou, ainda, in- 
dexados, de modo que os códigos de 
máquina equivalentes se alteram de 
acordo. Desvios condicionais, entretan- 
to, utilizam endereçamento relativo. 

Com endereçamento relativo, 
inlorma-se à UCP quantos bytes o pro- 
grama deve pular para a frente ou para 
trás em relação à instrução de desvio. 

Existem dois tipos de desvios: um 
desvio ordinário de oito bits, que pula 
para até 127 bytes para a frente ou 128 
bytes para trás, e um desvio longo de de- 
zesseis bits, que pode abranger 32 767 
bytes para trás. 

BEQ SFA 

pulará seis bytes para trás, a partir do 
início da instrução seguinte, se o indi- 
cador de zero {zero flag) estiver ligado. 
FA é - 6 em complemento de dois. Al- 
ternativamente, temos o desvio longo: 

LBLQ SOAOO 

que saltará 2560 bytes para a frenie, se 
o indicador de zero estiver ligado. 

Os desvios sempre utilizam endereça- 
mento relativo — não há outro tipo de 
endereçamento disponível para eles. Po- 
rém, como muitas vezes é trabalhoso 
calcular o tamanho de um salto, 
procura-se utilizar rótulos. 

Os rótulos são palavras (simbólicas) 
criadas pelo programador, que indicam 
ao microprocessador qual é o ponto do 
programa para onde o desvio deve ser 
realizado e, a parlir desie ponto, a pri- 
meira instrução è simplesmente precedi- 
da pelo rótulo. Por exemplo: 

INICIO DEC A 

ao passo que a instrução que produz o 
desvio terá: 

BEQ INICIO 

O Assembler se encarregará, entào, 
de calcular o desvio relativo, que pode- 
rá ser para a frente, se o rótulo estiver 
depois da instrução de desvio, ou para 
trás, se estiver antes dela. Entretanto, se 
você está traduzindo manualmente uma 
listagem em Assembly, a responsabili- 
dade pelo cálculo será sua, já que códi- 
go de máquina não emprega rótulos, 
apenas números. Para fazer o cálculo, 
conta-se o número dc bytes a parlir do 
final da instrução de desvio até o come- 
ço da instrução para a qual se deseja 
saltar. Lembre-se que, para um sal- 
to longo, isto tomará dois bytes. 
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DEFINIÇÃO DE MATRIZES 



ENTRE DADOS EM UMA MATRIZ 



COMO PROGRAMAR MATRIZES 



RECUPERAÇÃO DE INFORMAÇÕES 



USOS PARA AS MATRIZES 



Se você tem uma grande quantidade de 
dados inter relacionados, a 
informação pode estar perdida entre 
eles. Coloque-os numa matriz 
e o computador extrairá 
exatamente a informação desejada. 



Agora que você já conhece como um 
conjunto pode ser empregado para con- 
servar informações em um programa (li- 
ção Conjuntos: Caixas de Informação. 
página 192), podemos passar ao estudo 
de matrizes. Matriz (ou matrix) é to- 
do conjunto bidimensional que serve de 
meio para armazenar grupos de dados 
inter-relacionados. 

Um conjunto bidimensional é, grafi- 
camente, como uma pilha de gavetinhas, 
onde cada gaveta serve para : 



um único dado. Esta é uma maneira 
muito conveniente de lidar com infor- 
mações pois, para localizar uma delas, 
basta se referir a um elemento do con- 
junto, por meio dos seus números de li- 
nha e de coluna. 

A matriz armazena itens reais, tais 
como os parafusos da ilustração abai- 
xo, onde se pode encontrar imediata- 
mente a caixa que contém parafusos de 
latão de 38 mm, ou para qualquer ou- 
tra que se esteja procurando. Neste ca- 
so o dado da matriz é o número de pa- 
rafusos em cada caixa. 

A matriz pode também guardar in- 
formações abstraias, como o número de 
revendedores de automóveis, discrimi- 
nados segundo a sua nacionalidade e 
marca dos carros vendidos. 

Informações como esta são frequen- 
temente colecionadas como resultado de 
levantamentos, que são a base para o 



programa exposto neste artigo. Entre- 
tanto, a estrutura do programa é a mes- 
ma para qualquer matriz bidimensional, 
pouco importando o tipo de informação 
que ela contém. 

Como exemplo, suponha que você se- 
ja um professor interessado em classifi- 
car os animais de estimação trazidos por 
um conjunto de crianças. Em primeiro 
lugar, seria preciso anotar o nome das 
crianças e descrever quantos animais de 
cada grupo elas possuem. A lista seria 
mais ou menos assim: 

Sílvia: dois periquitos, um coelho. 
João: um cachorro, quatro peixes. 
Carlos: dois hamsters, um gaio. 



Re curso muil» úlil para armazenar dados, 
as ma triz es servem lamhém para 
classificar pequenos item como parafusos. 
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Jaci: um cachorro, um gaio, um hamster. 
Belo: um raio, um coelho, dois peixes. 

Enireianio, em uma lista como essa 
lorna-se um tanio difícil extrair infor- 
mações como ■'quantas pessoas pos- 
suem gatos?", ou "quem tem mais de 
quatro animais?" — e quanto maior for 
a iista, mais difícil será também obier 
respostas. 

A melhor maneira de resolver o pro- 
blema seria disiribuir as informações em 
forma de tabela ou quadro, com o no- 
me dos animais dispostos no alto e o das 
crianças à esquerda. Pois bem, é exata- 
mente assim que funciona uma matriz 
bidimensional. 

Em um exemplo pequeno como este 
é simples encontrar a resposta para qual- 
quer pergunta sobre os dados. Enireian- 
io, o computador trabalha com um in- 
findável número de informações. Se vo- 
cê examinar todo o conjunto de dados 
para descobrir quem tem pelo menos um 
gaio, ou se quiser saber o nome das pes- 
soas que possuem raios, verificará que 
o trabalho será lanio maior quanlo mais 
ampla for a quantidade de dados. Por 
sorte, o computador pode cumprir essa 
tarefa em questão de segundos. 



DEFINA A MATRIZ 



Equacionado o problema, o passo se- 
guinte será colocar a informação den- 
tro do computador. Se você voltar às pá- 
ginas 192 a 195 verá como definir e usar 
uma matriz unidimensional (também 
chamada de conjunto). Matrizes bidi- 
mensionais são muito similares, envol- 
vendo apenas um pouco mais de Iraba- 
Iho para serem definidas. 

Uma matriz unidimensional pode ser 
escrila na forma A(N), onde N é o nú- 
mero dos seus elemenios. Uma malriz 
bidimensional, por sua vez, é definida 
como A(L,C), onde L é o número de li- 
nhas e C o número de colunas. Na ver- 
dade, pouco importa se você a definir 
de forma invertida, como A(C,L), com 
as colunas antes das linhas, desde que 
seja coerente com a primeira ou a segun- 
da definições. 

Contudo, mesmo irabalhando com 
uma matriz bidimensional, você preci- 
sará definir duas matrizes unidimensio- 
nais que sirvam de cabeçalho para as co- 
lunas e para as linhas (no nosso caso, 
uma matriz conterá o nome das crian- 



Assim como as bolinhas da ilustração, 

distribuídas ordenadamente 

segundo seu tamanho e COf, as informações 

devem ser armazenadas na memória 

de acordo com o grupo a que pertencem. 




ças e a outra o nome dos animais). A 
matriz bidimensional conterá os dados. 

Vamos chamar as duas primeiras ma- 
trizes de PETS (Õ e CHS (R) e a mairiz 
de dados de N (R,C). Uma outra ma- 
triz, PT (R), conterá o número toial de 
animais em cada linha. No Spectrum, as 
matrizes são rotuladas de p$ (c), c$ (r), 
n (r, clep (r), pois é permitido apenas 
um caractere para a formação dos no- 
mes. O programa não funcionará no 
ZX-81. Eis um programa para dimen- 
sionar a matriz e ler os dados de um co- 
mando DATA. 

■ ■■■ li l '//j 

100 C-7:R-5 

110 DIM PETS(C) ,CHS(H) ,N(R,C) ,P 
T (H) 

120 FOR J-1TOC : READPETS ( J) : NEXT 

130 FORJ-1TOR : HEADCHS ( J) : NEXT 

140 FOR J-1TOR 

150 FORK-1TOC 

160 BEAD N(J.K) :NEXT:NEXT 

3000 DATA PERIQUITO, GATO. CACHOR 

RO , PEIXE . RATO , HAMSTER . COELHO 

3010 DATA SILVIA, JOÃO, CARLOS, JA 

Cl , BETO 

3020 DATA 2.0,0,0,0,0,1 
3030 DATA 0.0.1.4,0.0,0 
3040 DATA 0,1.0.0,0,2,0 
3050 DATA 0,1.1.0.0.1,0 
3060 DATA 0.0.0.2.1.0.1 



100 LET c-7 : LET r-5 

110 DIM pS(c,7): DIM cSír,5) 

DIM n(r.c) : DIM P(r) 

120 FOR j-1 TO c: READ pS(j) 

NEXT 3 

130 FOR J-1 TO r: READ cS(j) 
NEXT J 

140 FOR j-1 TO r 
150 FOR k-1 TO c 
160 READ níj.kl! NEXT k: NEXT 

i 

3000 DATA "PERIQUITO" , "GATO" ,"C 
ACHORRO" . "PEIXE" , "RATO" , "HAMSTE 
R" , "COELHO" 

3010 DATA "RODRIGO" , "RICARDO" , " 

FERNANDA" , "BEATRIZ" , "JÚNIOR" 

3020 DATA 2.0.0,0.0.0,1 

3030 DATA 0.0.1.4.0,0.0 

3040 DATA 0.1,0.0.0,2,0 

3050 DATA 0.1.1,0.0.1.0 

3060 DATA 0.0,0,2,1.0.1 

As variáveis R c C foram usadas pa- 
ra facilitar a adaptação do programa: 
afinal, é improvável que sua matriz te- 
nha o mesmo número de linhas e de co- 
lunas que a que apresentamos aqui. As- 
sim, tudo o que você tem a fazer é tro- 
car os números na linha 100 e, logica- 
mente, as informações nas linhas dos co- 
mandos DATA. 

Note agora que os dados entram na 
matriz. Existe uma linha para o cabeça- 



lho das colunas, outra para o cabeçalho 
das linhas e uma para cada linha da ma- 
triz principal. Note também que você 
deve entrar um item de dado para cada 
espaço na matriz, mesmo que ele seja ze- 
ro, ou o computador responderá com 
uma mensagem de erro. 

Agora que os dados estão dentro do 
computador, você deve decidir o que fa- 
zer com eles. Um de seus recursos é ofe- 
recer tantas opções quanto possível: afi- 
nal, é o computador que vai trabalhar, 
e não você. 



Será melhor descrever as opções em 
forma de menu. E para a pesquisa dos 
animais você provavelmente precisará 
do seguinte: 



300 LET fo-0: CLS 
310 PRINT 1 ' "MENU" 
320 PRINT '"1- LISTAR ANIMAIS" 
LISTAR CRIANÇAS" 
INTRODUZIR TIPO 



INTRODUZIR NOME 



INTRODUZIR NUMER 
MOSTRAR A MATRIZ 



330 PRINT 
340 PRINT 
DE ANIMAL" 
350 PRINT "4 
DA CRIANÇA" 
360 PRINT "5 
0 DE ANIMAIS 
370 PRINT "6 



380 PRINT ' ' "SELECIONE OPCAO" 
390 INPUT a 

395 IF a<l OR a>6 THEN GOTO 
390 

400 CLS 

410 GOSUB (a*100+400) 
420 GOTO 300 

■ ■■■ 

No TRS-80, multiplique por 2 os va- 
lores utilizados com o PRINT®. 

300 FOUND-0:CLS 

310 PRINT §43. "MENU" 

320 PRINT §98. "1 LISTAR ANIMAIS 

330 PRINT 6130. "2 LISTAR CRIANC 

AS 

340 PRINT #162. "3 INTRODUZIR TI 
PO DE ANIMAL 

350 PRINT §194. "4 INTRODUZIR NO 
ME DA CRIANÇA" 

360 PRINT §226, "5 INTRODUZIR NU 
MERO DE ANIMAIS" 

370 PRINT §258. "6 MOSTRAR A MAT 
RIZ" 

380 PRINT : PRINT "ESCOLHA A OPCAO 
390 INPUT A 

395 IF A<1 OR A>6 THEN 390 
400 CLS 

410 ON A GOSUB 500.600.700,800. 

900.1000 

420 GOTO 300 
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ACÃOBAS 



300 FO-0:CLS 

310 LOCATE 17,1:PRINT"MENU* 
320 LOCATE 7 , 4 : PRINT" 1 . LISTAR 
ANIMAIS" 

330 LOCATE 7:PRINT"2. LISTAR CR 
I ANCAS" 

340 LOCATE 7:PRINT"3. INTRODUZI 
R TIPO DE ANIMAL" 
350 LOCATE 7:PRINT"4. INTRODUZI 
R NOME DE CRIANÇA" 
360 LOCATE 7:PHINT"5. 
R NOMERO DE ANIMAIS" 
370 LOCATE 7:PRINT"6. 
MATRIZ" 

380 PRINT: PRINT : LOCATE 20:PRINT 
"OPÇXO" ; 
390 INPUT A 

395 IF A<1 OR A>6 THEN 390 
400 CLS 

410 ON A GOSUB 500,600,700,800. 

900.1000 

420 GOTO 300 



INTRODUZI 



MOSTRAR A 



GE El] 



PRINT "2. LISTAH C 

PRINT "3. INTRODUZ 
IIMAL" 

PRINT "4. INTRODUZ 



PRINT i HTAB 20: 



320 VTAB 5: 
LISTAR ANIMAIS" 
330 HTAB 8: 
Hl AN CAS" 
340 HTAB 8: 
IR TIPO DE A 
350 HTAB 8: 
IH NOME DE CRIANÇA" 
360 HTAB 8: PRINT "5. INTRODUZ 
IR NUMERO DE ANIMAIS" 
370 HTAB 8: PRINT "6. MOSTHAR 
A MATRIZ" 
380 PRINT : 
HINT "OPCAO 
390 INPUT A 

395 IF A < 1 OH A > 6 THEN 390 
400 HOME 

410 ON A GOSUB 500,600,700,600 
.900 , 1000 
420 GOTO 300 



ESCREVA AS SUB ROTINAS 



As sub-rotinas a seguir servirão para 
o início do trabalho, embora, mais tar- 
de, você possa adicionar outras opções. 
A primeira imprime apenas a lista de 
animais, fazendo uma procura na ma- 
triz PETS( ) ou p$( ). A segunda faz a 
mesma coisa para imprimir a lista de 
crianças. 



499 REM *« 

500 PRINT 
_510 PRINT 1 
■520 FOR j-1 TO c 



530 PHINT pS (J) 
540 NEXT J 

550 PRINT ' 1 " PRESSIONE QUALQU 
EH TECLA PARA HETORNAR" 
560 PAUSE 0 
570 RETURN 

599 REM ** OPCAO 2 ** 

600 PHINT ''"LISTA DE CRIANÇAS 

610 PRINT - ' 
620 FOR j-1 TO r 
630 PRINT cS(j) 
640 NEXT J 

650 PHINT ' ' "PRESSIONE QUALQUE 
H TECLA PARA RETORNAR" 
660 PAUSE 0 
670 RETURN 



510 PRINT : PHINT 
520 FOR J-1TOC 
530 PRINT PETS(J) 
540 NEXT 

550 PRINT:PRINT"PRESSIONE QUALQ 
UER TECLA PARA HETORNAR" 
560 IF INKE1ÍS-""THEN560 
570 RETURN 

599 REM ttt OPCAO 2 Itl 

600 PRINTTAB (5) ; "LISTA DE CRIAN 
CAS" 

610 PRINT : PRINT 
620 FOR J-1TOR 
630 PRINT CHS (J) 
640 NEXT 

650 PRINT:PRINT"PRESSIONE QUALQ 
UER TECLA PARA RETORNAR" 
660 IF INKEYS-""THEN660 
670 RETURN 



DE El! 



499 REM *** OPCAO 1 *** 

500 PHINT TAB ( 10)"LISTA DE A 
NIMAIS" 

510 PHINT : PRINT 
520 FOR J-1 TO C 
530 PRINT PETS (J) 
540 NEXT 

550 PRINT : PRINT "PRESSIONE Q 
UALQUER TECLA PARA RETORNAR" : 
560 GET AS 
5 70 RETURN 

599 REM *** OPCAO 2 *** 

600 PHINT TAB ( 10);"LISTADE 
CRIANÇAS" 

610 PRINT : PRINT 
620 FOR J-1 TO H 
630 PRINT CHS(J) 
640 NEXT 

650 PRINT : PRINT "PRESSIONE Q 
UALQUEH TECLA PARA HETORNAR" : 

660 GET AS 
670 

Ta mais interessante. Se 
Jnar o nome de um animal, o 
friputador imprimirá uma lista de 
rianças que têm no mínimo um deles. 



informando ainda quantos espéci 
cada criança possui. 



699 lem ** OPCAO 3 •* 

700 PRINT ' ' " INTRODUZA TIPO DE 
ANIMAL" 

705 DIM 1S(7): INPUT LINE lS 
710 PRINT ' " PESSOAS QUE TEM UM 

"íiS 

720 FOR J-1 TO c 

730 IF PS(J)-1S THEN LET fo-j 

740 NEXT J 

750 IF fO-0 THEN PHINT " ANIM 
AL NAO ENCONTRADO. TENTE OU' 
RA VEZ . " : GOTO 700 
760 FOR J-1 TO r 




A matriz n 
revendedores d 

) classificados por 
país e mar tu de automóvel. 
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770 IP ntj.fmi 

S(3);" "jn" 
775 NEXT j 
780 PRINT 
EH TECLA PARA | 
7B5 PAUSE 0 
790 RETURN 



710 INPUT PS 

715 PRINT : PRINT 

720 FORJ-1TOC 

730 IFPETS (J) -PSTHENFO-J 

740 NEXT 

750 IFFO"0THENPRINT "ANIMAL NAO 
ENCONTRADO. TENTE DE NOVO ! " : GOT 
0700 

760 FORJ-1TOR 



770 IFN(J,FO)>0THENPRINTCHS(J) : 
" ":N(J,FO) 
775 NEXT 

780 PRINT : PRINT"PRESSIONE QUALQ 
UER TECLA PARA RETORNAR"; 
785 IFINXEYS-*"THEN785 
790 RETURN 



[SE] 




699 REM *** OPCAO 3 

700 PRINT TAB ( 101;"DIGITE O 
TIPO DE ANIMAL" 

705 PRINT TAB 1 5); "LISTA DE T 
ODOS QUE TEM " 
710 INPUT PS 
715 PRINT : PRINT 
FOR J - 1 TO C 
IF PETS(J) - PS THEN FO - 

40 NEXT 

50 IF FO - 0 THEN PRINT "ANI 
MAL NAO FOI ENCONTRADO . TENTE 
- NOVAMENTE!": GOTO 700 
\ 760 FOR J - 1 TO R 



(J.l 



PRI 



NT CHS(J) ; 
775 NEXT 

780 PRINT : PRINT "PRESSION 
i E QUALQUER TECLA PARA RETOR 
\ NAR" 

H 785 GET AS 
\ 790 RETURN 



Es[a rotina c mais complica- 
da, de modo que valo a pena 
explicá-la com mais detalhes. 
A linha 7 1 0 guarda nossa 
entrada na variável PS (iS no 
Speclrum). Digamos, por 
exemplo, que nossa enira- 
. da seja "GATO"; assim, 
\ PS = "GATO" (ou iS = 
| "GATO"). As linhas 720 
l a 740 verificam se há al- 
\ gum "GATO" na lisla 
de animais. Em caso 
positivo, a variável FO 
receberá o número da 
coluna em que "GATO" 
achado. No nosso caso, PO = 2 
porque "GATO" está na coluna 2. 
Se j computador atingir a linha 750 
e FO for igual a 0 (ou seja, se seu valor 
for igual a 0 na linha 300), isso signifi- 
ca que o animal pedido não está na lis- 
ta. Em consequência o programa reco- 
meçará. 

As linhas 760 a 77? percorrem cada 
elemento na coluna 2. Se algum elemen- 
to for maior que 0, isso significa que 
a pessoa nessa linha tem um gato e seu 
nome será impresso junto com a infor- 
mação de quantos animais dessa espé- 
cie ela tem. 

Verifique o programa e veja se você 
pode seguir o que o computador está fa- I 
zendo a cada passo. A opção 4 permite I 



ACÁO BASIC 



entrar o nome de uma pessoa para ver 
a lista de seus animais. 

O programa funcionará de modo 
quase igual ao da última rotina. Desta 
vez, entretanto, o computador procura- 
rá por uma Unha particular da matriz, 
e não por uma coluna, como acontecia 
no exemplo anterior. 



799 REM «" OPCAO 4 ** 

800 PRINT '• "INTRODUZA O NOME 
DA CHI ANCA" 

805 DIM fS(5); INPUT LINE fS 

810 PRÍNT "ANIMAIS PERTENCENTE 

S A ";f$ 

815 PRINT ' ' 

820 FOR j-1 TO r 

830 IF cS(j)=fS THEN LET ÍQ'3 

840 NEXT 3 




Que problemas podem ocorrer 
com laços múltiplos? 

Definir uma matriz permite exercitar 
seus conhecimentos sobre os coman- 
dos FOR. ..NEXT e IF...THEN (tente 
contar quantos desses comandos exis- 
tem nos programas ai resentados aqui; 
você logo vai perceber que eles são 
muitos). Porém, a parte mais difícil da 
programação de matrizes diz respeito 
ao uso de iaços FOR.. .NEXT múltiplos, 
ou "aninhados" listo é, um dentro do 
outro). Com efeito, é nessa parte que 
os iniciantes, e mesmo os programado- 
res experientes, mais se confundem. 

Examine as linhas dos programas do 
artigo. Elas são responsáveis pela lei- 
tura dos dados armazenados nas linhas 
DATA. 

Cada linha de DATA corresponde a 
uma linha da matnz de dados, de modo 
que o FOR,., NEXT que controla a leitu- 
ra das linhas deve vir antes (laço mais 
externo). Se a linha de DATA contivesse 
os elementos de uma coluna da matriz, 
teríamos que usar como FOR. ..NEXT 
externo aquele que lé as colunas. 

É por isso que o conjunto é dimen- 
sionado como N (L,C), em vez de N IC, 
L). A ordem dos índices de linha e co- 
luna no comando DIM não é muito im 
portante, desde que você os faça 
corresponder aos laços FOR. ..NEXT. 

Os cabeçalhos para as linhas e co- 
lunas devem ser definidos separada- 
mente, para facilitar a compreensão. 



850 IF fo-0 THEN PRINT ' ' "NOM 

E NAO ENCONTRADO. TENTE OUTRA V 

EZ" : GOTO 800 

860 FOR J-1 TO C 

870 IF n{fo,j)>0 THEN PRINT n 

(fo, j) j" ";pS(J1 

875 NEXT 3 

860 PRINT ' "' PRESSIONE QUALQU 
ER TECLA PARA RETORNAR" 
885 PAUSE 0 
890 RETURN 



799 REM III OPCAO 4 (IH 

800 PRINTTAB (2) : "DIGITK D NOME 
DE UMA CRIANÇA" 

805 PRINT" LISTA DE TODOS OS ANI 

MAIS QUE PERTENCEM A " j 

810 INPUT FS 

815 PRINT : PRINT 

B20 FORJ-1TOR 

830 IFCHS (J) -FSTHENFO-J 

840 NEXT 

850 IF FO-0THENPRINT: PRINT "NOME 
NÃO ACHADO. TENTE NOVAMENTE ! " ! 
GOTO800 
860 FORJ-1TOC 

870 IFN (FO , J} >0THENPRINTN (FO, J) 
;" ";PETS(J) 
875 NEXT 

880 PRINT ; PR I NT "PRESSIONE QUALQ 
UER TECLA PAPA RETORNAR"; 
885 IFINKEY$-""T!iErJ885 
890 HETURN 



ara 



799 REM *** OPCAO 4 *** 

Í100 PRINT TAB ( 5);"DIGITE 0 N 

OME DE UMA CRIANÇA" 

805 PRINT "LISTA DE TODOS OS A 

NIMAIS QUE PERTENCEM A "; 

810 INPUT FS 

815 PRINT : PRINT 

820 FOR J - 1 TO R 

830 IF CHS(J) " FS THEN FO - J 

840 NEXT 

850 IF FO - 0 THEN PRINT : PR 
INT "NOME NAO ENCONTRADO. TENTE 

NOVAMENTE!"; GOTO 800 
860 FOR J - 1 TO C 
870 IF N(F0,J) > 0 THEN PRINT 

N(F0,J1 ;" ";PETS(J) 
875 NEXT 

880 PRINT : PRINT "PRESSIONE Q 
UALQUER TECLA PARA RETORNAR": 
885 GET AS 
890 RETURN 

A opção 5 pede que você entre um 
número e imprime a lista de pessoas que 
têm no mínimo esse número de animais. 
Ela também informa quantos animais 
cada pessoa tem. 

Digite então a próxima sub-rotina da 
seguinte forma: 



900 PRINT "' DIGITE UM NUMERO 
PARA LISTAR TODOS OS QUE TE 
M AO MENOS ESTE NUMERO DE ANI 
MAIS" 

910 INPUT a 

915 PRINT 1 ' 

920 FOR j-1 TO r 

930 LET p(j)-p(j)+n(j.k) 

935 NEXT k 

940 LET P(J)-0 

945 LET p(j)-0 

950 NEXT } 

95S IF fo-0 THEN PRINT ' ' "NIN 
GUEM TEM TANTOS ANIMAIS !" 
960 PRINT ''" PRESSIONE QUALQU 
ER TECLA PARA RETORNAR" 
970 PAUSE 0 
980 RETURN 



899 REM tM OPCAO 5 Itt 

900 PRINT"DIGITE UM NÚMERO PARA 
LISTAR TODOS QUE TEM AO MENOS 

ESTE NUMERO DE ANIMAIS"; 

910 INPUTA 

915 PRINT : PRINT 

920 FORJ-1TOR 

925 FORK-1TOC 

930 PT<J)-PT(J)+N(J.K) 

935 NEXTK 

940 IFPT(J)>-ATHENPRINTCHS(J) t" 

" : PT | J) : FO-1 
945 PT(J]=0 
950 NEXT J 

955 IFFO-0THENPRINT; PRINT"NINGU 

SM TEM TANTOS ANIMAIS!" 

960 PRINT:PRINT"PRESSIONE QUALQ 

UER TECLA PARA RETORNAR" 

970 IF INKEYS-""THEN970 

980 RETURN 



KMi 



899 REM *** OPCAO 5 *** 

900 PRINT "DIGITE UM NUMERO PA 
RA LISTAR TODOS QUE TEM AO MENO 
S ESTE NUMERO DE ANIMAIS"; 

910 INPUT A 

915 PRINT : PRINT 

920 FOR J-1 TO H 

925 FOR K - 1 TO C 

930 PT(J) - PT(J) + N{J,K) 

935 NEXT K 

940 IF A < - PT(J) THEN PRIN 
T CHS(J) ";PT(J) :F0 - 1 
945 PT(J) - 0 
950 NEXT 

955 IF FO - 0 THEN PRINT : PR 
INT "NINGUÉM TEM TANTOS ANIMAIS 

960 PRINT : PRINT "PRESSIONE Q 
UALQUER TECLA PARA RETORNAR"; 
970 GET AS 
980 RETURN 

Antes de comparar o número que vo- 
cê imprimiu com os totais para cada 
criança, o computador precisa calcular 
esses totais. As linhas 920 e 925 definem 
os laços que percorrem as linhas e colu- 
nas da matriz, enquanto a linha 930 cal- 



cuia o total de animais em cada linha. 
Os totais são armazenados em um eon- 
junio chamado PT( ), ou pl h no Spec- 
irum. Se o total de cada linha for maior 
ou igua! ao número que você entrou, o 
nome da criança será exibido na tela, 
juntamente com o número de animais 
que ela possui. 

Assim que o nome de alguém for im- 
presso, 0 indicador FOLIND (ou seja, 
achado, em inglês) será igualado a I . Se 
FOUND ainda for igual a 0 quando o 
compulador atingir a linha 955, isso sig- 
nifica que nenhuma criança lem aquele 
número de animais que você solicitou, 
e o programa lhe dará essa informação 
por meio de mensagem. 

A última opção — de número 6 — 
mostra a matriz na tela. 

Como é difícil encaixar lodos os no- 
mes dos animais de estimação no topo 
da tabela, o programa imprime núme- 
ros de referência, em vez de palavras. Em 
compensação, ele imprime os nomes dos 
proprietários. 



1010 PRINT ' TAB 9; 

1015 FOE j-1 TO c 

1020 PRINT J ; " "i 

1025 NEXT }: PRINT 

1030 FOR j-1 TO r 

1035 PRINT 'cSÍJ) ;TAB 9; 

1040 FOR k-1 TO G 

1050 PRINT n ( J , k) ; " " ; 

1060 NEXT k 

1065 NEXT J 

1070 PRINT '"' PRESSIONE QUALQU 
ER TECLA PARA RETORNAR" 
1080 PAUSE 0 
1090 RETURN 



1000 PRINT "CRIANÇAS" 



NIMAIS 



999 REMIU OPCAO 6 III 

1000 PRINT #32 , "CRIANÇAS" , "ANIM 
AIS" 

1010 PRINT «72, ; 

1015 FOR J-1 TO C 

1020 PRINT J 

1025 NEXT: PRINT 

1030 FOR J-1 TO R 

1035 PRINT : PRINT CHS (J) TAB{8); 

1040 FOR K-1 TO C 

1050 PRINT N(J.K) ; 

1060 NEXT K.J 

1070 PRINT:PítrNT:PRINT " PRESSI 
ONE QUALQUER TECLA PARA RETOR 
NAR" 

1080 IF INKEYS-"" THEN 1080 
1090 RETURN 



1010 HTAB 15 

1015 FOR J - 1 TO C 

1020 PRINT Jj" "i 

1025 NEXT : PRINT 

1030 FOR J - 1 TO R 

1035 PRINT : PRINT CHS (J) : TAB 

( 15) -, 

1040 FOR K-1 TO C 

1050 PRINT N(J.K) ; " " : 

1060 NEXT : NEXT 

1070 PRINT : PRINT : PRINT "PR 

ESSIONE QUALQUER TECLA PARA RET 

ORNAR"; 

1080 GET AS 

1090 RETURN 



HM] 



999 REM 



999 REM III OPCAO 6 III 

1000 PRINT"CRIANÇAS" . "ANIMAIS" 
1010 LOCATE 15 

1015 FORJ-1T0C 
1020 PRINTJ; 
1025 NEXT : PRINT 
1030 FORJ-1TOR 

1035 PRINT:PRINTCHS(J) ;TAB(15) ; 
1040 FORK-1TOC 
1050 PRINTN ( J , K! ; 
1060 NEXT : NEXT 

1070 PRINT : PRINT : PRINT"PRESSION 
E QUALQUER TECLA PARA RETORNAR" 



USOS PARA AS MATRIZES 



Uma matriz usada dessa forma c cha- 
mada de base de dados. É possível criar 
bases de dados para os mais diversos 
fins; para um Icvantamenro da vida ani- 
mal, por exemplo. Numa pesquisa des- 
se género, a base de dados mostraria o 
número de certos animais, assim como 
o tipo de habitai onde eles são encon- 
trados. As linhas da matriz indicariam 
os tipos de animais, e as colunas, os ha- 
bitats. Em seguida, os dados poderiam 
ser examinados para verificar a distri- 
buição dos animais em determinadas re- 
giões ou épocas do ano. 

A base de dados pode ser aplicada 
lambem em levantamentos de tráfego 
cm estradas: para verificar, por exem- 
plo, que lipos de carros passam por ca- 
da seção de uma rodovia. Ela se presta 
ainda para aplicação no campo da nu- 
Irição. Assim, a matriz conteria os da- 
dos de cada tipo de alimento, com rela- 
ção ao seu eonieúdo de proteínas, gor- 
duras, carboidratos e calorias. Com 
uma matriz desse tipo, seria fácil impri- 
mir iodos os alimentos que apresentas- 
sem uma certa quantidade de proteínas, 
ou tantas calorias, ou que oferecessem 
certas combinações de elementos. 




COMO USAR A DECLARAÇÃO REM 

3 basta que o programa em BA 
SIC esteja correto ou passe por todos 
: é preciso ainda que ele es- 
teja bem documentada e estruturado 
e forma lógica e clara. 

Para evitar confusões por parte do 
suário e mesmo do programador na 
compreensão do que foi dignado. 



s-se u 



lizar u 



nbecido como documentação interna 
do programa. Este identifica, por meio 
de títulos e comentários colocados na 
listagem, as diversas partes do progra 
. Isso é feito pelo comando REM. 
que é uma abreviatura da palavra REM 
ark [comentário, em mglésl. O REM 
i é uma declaração executável (ou 
seja, ao encontrá-la em um programa, 
d computador simplesmente a ignora 
■ passa adiante). 

Uma das funções do REM consiste 
em identificar o programa, prestando 
informações (chamadas cabeçalho) co- 
i: para que serve, para que máquina 
está destinado, quem c 
quando etc. Eis um exeme 



REM 
15 REM 
25 REM 
30 REM 
35 REM 

REM 
45 REM 
50 REM 
55 REM 

60 REM 



. Por 



PROGRAMA CREPF 
Simular o 3000 de crepe 
VERSÃO : 1 DATA :2 0/0 2/ 1986 
NOME P/ GRAVAÇÃO : CREP01 

COMPUTADOR : TK-90X 
MEMORIA NECESSÁRIA : 16 K 
PROGRAMADO POR: RENATO 
SABBATINI 

acação de cabeçalhos como 
a muitos dissabores, 
função do REM é informar pa 
rvem certas partes do progra 
exemplo: 

350 REM 

355 REM TESTA SE NUMERO DE NA 

VES=ZERO 
360 REM SE E ' , TERMINA O PRO- 
GRAMA 

365 REM 

370 IF NAVES=0 THEN GOTO 999 

O ideal seria colocar um comentá- 
rio para cada linha do programa. I 
pode ser feito facilmente nos mie 
que aceitem comandos múltiplos 
linha: 

500 GOSUB 890 : REM SUBR . 



O emprego de comentários é simpli- 
ficado, em vários micros, pelo apóstro- 
fo Cl, usado como abreviatura 
comando REM: 
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Sair da rotina e fazer da vida uma 
aventura errante: quantos 
de nós já não sonhamos com isso? Veja 
como fazer essa mudança, viver 
aventuras incríveis... no computador. 



Os jogos de aventura são uma boa al- 
ternativa para quem está cansado dos 
arcaicos videogames e fliperamas. Neles, 
o jogador é totalmente envolvido por 
um mundo fantástico, criado unicamen- 
te pela imaginação do programador. 



A ORIGEM DOS JOGOS DE AVENTURAS 



A ideia de criar jogos de aventura 
surgiu da popularidade, nos EUA e na 
Grã-Bretanha, dos jogos de ação não- 
computadorizados, tais como Masmor- 
ras e Dragões e, ao mesmo tempo, do 
desejo de se utilizar os computadores 
para fazer coisas mais interessantes do 
que processar dados. 

Por outro lado, os jogos nào-compu- 
tadorizados não atendiam plenamente ' 
demanda do público, que exigia eme 
ções cada vez mais fortes. Essa demar 
da só foi satisfeita pelos jogos de aven 
turas programados para o eomputadoi 

Em Masmorras e Dragões os jogadc 
res assumem o papel de certos persona- 
gens, que lutam encarniçadamente (na 
imaginação) num lugar conhecido cor 
Masmorra. Esse lugar, por sua vez, < 
criado por outro jogador, que faz o pa 
pel do Senhor da Masmorra. Nos jogo: 
de aventura, o programador vive um 
personagem parecido com este, poden 
do inventar, assim, seu próprio mundo 

Ao contrário de outros jogos, em 
Masmorras e Dragões os jogadores não 
podem escolher as características de seus 
personagens; isso depende inteiramente 
do jogo. Em algumas versões mais sofis- 
ticadas, os jogadores podem selecionar o 
equipamento e os mantimentos que os 
personagens vão usar, desde que isso se- 
ja feito no inicio do jogo, ames de co- 
meçar a aventura. O primeiro jogo de 
aventura destinado a computadores foi 
escrito para máquinas de grande porte, 
em linguagem FORTRAN, e não em BA- 
SIC. O programa ocupou aproximada- 
mente 300k de memória, ou seja, bem 
mais do que a memória RAM total da 
maioria dos micros pessoais. Apesar do 
seu tamanho e complexidade, esse jogo 
conquistou milhares de usuários de com- 
putadores nos Estados Unidos e no Ca- 
nadá; eles passaram a dedicar suas noi- 
tes a tentar decifrar os mistérios do jogo. 



Na realidade, a popularização dos jo- 
gos de aventura começou quando um jo- 
vem programador chamado Scott 
Adams desenvolveu, em 1978, um jogo 
para microcomputador TRS" 
provou que era possível escre- 
ver uma aventura razoá- 
vel em um espaço de 
memória bem menor. Dtt8c ent. 
temas de jogos adotados por Adams 
A 1 erra da Aventura. O Refúgio do 
Pirata, O Mistério do Parque de 
Diversões etc. têm sido usa- 
dos e recusados inúmeras vezes 
pelos escritores de outros jogos. , 



TIPOS DE AVENTURAS 



Como as aventuras para grandi 
computadores, os jogos de Adams 1 
apresentavam SOfDCMC tCXKM na tela 
Na verdade, os programas que usam 
apenas textos são ainda os mais popu- 
lares . 

Existem ainda inúmeros jogos de 
aventura para computadores que utili- 
zam ilustrações desenhadas na tela pa- 
ra situar, orientar e motivar o usuário. 
Entretanto, os gráficos precisam ser 
muito sofisticados, para poder compe- 
tir com a imaginação do jogador. Por 
exemplo, você poderia conceber um 
monstro bem mais horripilante do que 
seria capaz de reproduzir, mesmo nas te- 
las gráficas mais avançadas. Portanto, 
é bem possível que os gráficos "estra- 
guem" sua diversão: o principal argu- 
mento contra a sua utilização é que eles 
desperdiçam grande parte da memória, 
que poderia ser usada para expandir o 
campo da aventura. Certas aventuras 
apresentam uma contagem de pontos, 
sempre que uma etapa da busca é com- 
pletada. Desse modo, o jogador pode 
avaliar seu desempenho, caso lenha si- 
do derrotado em algum estágio. Alguns 
programas chegam ao ponto de classi- 
ficar esse desempenho com conceitos, 
que podem ir de "palhaço" a "perito". 

Outros jogos não fornecem qualquer 
dica de como o jogador está se saindo 
ou da proximidade do desfecho. 

Seja qual for o caso, porém, a diver- 
são maior está na solução de uma série 
aparentemente infinita de charadas, de- 




pois da qual a aventura chega ao fim. 
Alguns costumam durar muitas horas, 
ou dias, podendo ser interrompidos e re- 
tomados a qualquer momento. 



UMA HISTÓRIA SEM FIM 



Normalmente, quando se inicia uma 
iventura através do comando RUN, são 
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Agora, você lem que decidir o que fa- 
zer. Será conveniente usar a colher pa- 
ra misturar o liquido ou mesmo experi- 
mentá-lo? Não seria melhor deixar isso 
de lado? Ou talvez fosse preferível pro- 
curar um recipiente para levar um pou- 
co do líquido verde com você? 

Se decidir usar a colher, digite algo 
assim: PEGUE COLHER; a resposta do 
computador será: OK ou VOCÊ AIN- 
DA NÃO PODE PEGAR A CO- 
LHER!, ou alguma outra mensagem. 

Em cada etapa do jogo você deve in- 
formar ao computador exatamente o 
que pretende fazer. A forma de fazer is- 
so dependerá apenas do tipo de jogo. A 
maioria deles espera você digitar seus 
comandos no computador através de 
um verbo seguido de substantivo; por 
exemplo: PEGUE COLHER. 
\ Jogos mais sofisticados aceitam sen- 



tenças completas, mas isso é uma exce- 
ção à regra. Esses tipos de jogos permi- 
tem-lhe dizer algo como: MATE O IN- 
SETO PISANDO NELE ENQUANTO 
CANTA "O TICO-TICO NO FUBÁ". 

A maioria dos jogos de aventura con- 
segue entender abreviaturas das palavras 
válidas. Por exemplo, é muito comum, 
numa aventura, digitar N em vez de 
NORTE. As direcões podem ser pontos 
cardeais — N, S, L e O — ou colaterais 
— SE, SO, NE e NO — , ou instruções 
como PARA CIMA, PARA BAIXO. 

Um jogo típico de aventura é basea- 
do numa grade de locais possíveis, que 
assume geralmente a forma de um qua- 
drado. Dependendo da imaginação do 
programador, esses lugares podem re- 
presentar ambientes tão variados como 
os quartos de um castelo, os subterrâ- 
neos de uma mina etc. 



Habitualmente, existe apenas uma 
solução para a aventura: por exemplo, 
encontrar um pote de ouro e levá-lo pa- 
ra o fim do arco- Íris, ou matar um guer- 
reiro medieval e escapar ileso eic. Até 
chegar a esse objetivo, o jogador preci- 
sa resolver toda uma série de problemas. 
O mais provável é que ele tenha que fa- 
zer muitas tentativas diferentes até con- 
cluir a aventura. 

Existem algumas regras básicas e di- 
cas que o ajudarão a resolver mais ra- 
pidamente a maioria dos jogos. Quase 
todos os objetos que você encontrar nas 
aventuras serão de alguma utilidade. A 
existência de muitas pistas completa- 
mente falsas representa um desperdício 
de memória, embora seja necessário es- 
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tar sempre alento para alguns objeios 
que podem ser "facas de dois gumes". 
Por exemplo, o jogador poderia estar 
carregando uma sacola com moedas de 
ouro para passar pelo pedágio de uma 
ponte; caso ele se decidisse a nadar no 
rio, porém, o peso delas o faria afun- 
dar. Como regra geral, é aconselhável 
tentar carregar o maior número possível 
de objetos, mas algumas vezes apenas 
uma parte deles lhe será realmente útil. 

Quase sempre, a maioria dos objetos 
é usada somente uma vez durante uma 
aventura. Mas há exceçòes: uma espa- 
da, por exemplo, poderia ser usada mui- 
tas vezes para derrubar gigantes, dra- 
gões ou bandidos. Dessa forma, se vo- 
cê for obrigado a limitar o número de 
objeios que leva consigo, deve ter em 
mente que é mais seguro descartar os 
que já foram usados uma vez. 

Outra regra geral: desenhe sempre 
um mapa. marcando nele os nomes dos 
aposentos, a posição dos sentinelas e dos 
objetos distribuídos pelos quartos, to- 
das as entradas e saídas com suas dire- 
eões e outros pontos de referência que 
lhe possam ser úteis. 

O mapa o fará economizar tempo e 
esforço quando você estiver retornando 
para algum ponto anterior — manobra 
que você repetirá várias vezes durante 
o jogo. Se liver que abandonar algum 
objeio, por não poder carregar tudo, 
não se esqueça de marcar a posição de- 
le no mapa. A importância do mapa es- 
tá em que ele lhe permitirá ter certeza 
de que explorou todas as possibilidades 
da aventura — o que, em muitos casos, 
salvará sua "vida". 

Certos jogos permitem que você pe- 
va um inventário do que está carregan- 
do. Assim, quando estiver diante de 
uma charada, procure saber exatamen- 
te o que tem em mãos, digitando IN- 
VENTÁRIO, LISTA, ou algo seme- 
lhante, dependendo da aventura. 

Há jogos, ainda, que dão ao jogador 
a possibilidade de pedir ajuda. A forma 
de fazê-lo varia, mais uma vez, confor- 
me o conteúdo da aventura. Frequente- 
mente, porém, você obterá algo assim, 
em resposta ao seu pedido: 
NENHUMA AJUDA POSSÍVEL. 

Alguns jogos seguem cuidadosamen- 
te o enredo de um livro específico {por 
exemplo, A Ilha do Tesouro, escrito em 
1833 por Robert Louis Stevenson). Nes- 
tes casos, é altamente recomendável ler 
o livro em questão. 

Outros jogos inspiram-se apenas em 
alguns capítulos ou idéias de um roman- 
ce famoso. Assim, se você encontrar nu- 
ma aventura algum elemento que o fa- 
ça recordar um texto literário e tiver di- 
ficuldades para resolver um determina-, 



do problema, tente encontrar a respos- 
ta consultando o livro. Um dicionário 
de sinónimos pode ser de grande utili- 
dade, permitindo que o jogador explo- 
re todas as variações possíveis de uma 
determinada frase. Por exemplo: o pro- 
gramador pode ter usado no jogo a pa- 
lavra POLIR, em vez de LUSTRAR. 

Uma última dica: se o jogo permitir 
o uso do comando GRAVAR em algu- 
mas etapas, e você estiver prestes a en- 
frentar um grande perigo, então arma- 
zene a aventura no estágio em que ela 
se encontra, antes de dar o passo deci- 



sivo, pois, se você for "morto", poderá 
voltar atrás e continuar a partir do pon- 
to em que parou. 



CRIE AS SUAS PRÓPRIAS AVENTURAS 



A criação de aventuras é uma boa 
maneira de dominar a linguagem BA- 
SIC. Quase todos os aspectos importan- 
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tes dessa linguagem são utilizados nes- 
se tipo de jogo: variáveis, matrizes, for- 
matos de telas, cadeias alfanuméricas, 
comandos IF, e assim por diante. 

Muitos jogos de aventuras à venda 
ainda são escritos em BASIC, pois não 
há muita necessidade de velocidade de 
execução do programa. 

Antes de programar um jogo desse 
género, você precisa ter uma idéia bem 
clara do que pretende fazer e do enredo 
da aventura. A seguir, planeje cuidado- 
samente a trama com suas charadas, pe- 
rigos, objetos etc. 

Para começar, pegue uma folha de 
papel e faça um rascunho de algumas 
ideias. Não se preocupe se ainda não 
lem uma visão completa da ordem do 
jogo: o que você precisa inicialmente é 
de uma noção do roteiro, do local da 
aventura e de algumas charadas para o 
jogador resolver. 




Quanto espaço de memória 
to pafa escrever um jogo de aventura? 

Nas próximas lições de INPUT de- 
senvolveremos uma aventura simples, 
ocupando cerca de 5K de BASIC. Co- 
mo todo primeiro passo, esse jogo não 
trará episódios de grande emoção. Seu 
objetivo é apenas introduzi-lo ao mun- 
do fascinante da aventura. 

Os melhores jogos têm um grande 
número de aposentos e charadas e são 
muito difíceis, devido ao efeito crés 
cente de problemas cada vez mais 
complicados. Com uma quantidade li- 
mitada de memória, você será forçado 
a determinar um número menor de pro- 
blemas, que por sua vez serão mais di- 
ffceis do que o normal. Isso. contudo, 
não é muito satisfatório. 

Um jogo como esse exige um com 
putador com, no mínimo, 16K de me- 
mória; mas sugerimos uma máquina 
com 48 ou 64K para jogos realmente 
desafiantes. 

0 que devo fazer se cair numa ar- 
madilha durante a aventura? 

Não desista; teme novamente quan- 
do tiver uma nova idéia ou estratégia. 

Se você realmente empacar, os jo- 
gos de aventuras comercializados ofe- 
recem um folheto com dicas e respos- 
tas. Muitas vezes, é preciso solicitar 
peto correio um mapa da solução. 

Outro recurso para ajudá-lo são as 
revistas do género, que costumam 
apontar a solução completa de aven- 
turas complexas. 



Além de livros, você pode inspirar- 
se em filmes, programas de TV e peças 
teatrais, ou mesmo inventar novas his- 
tórias. Pode também buscar idéias em 
outras aventuras. Mas o melhor recur- 
so para sua inspiração é fazer trabalhar 
a imaginação. 

Ao mesmo tempo, procure alcançar 
um certo equilíbrio entre o desafio c as 
condições para vencê-lo. Não é conve- 
niente criar uma aventura que qualquer 
um poderia resolver no espaço de meia 
hora. Em contrapartida, seu jogo não 
deve apresentar problemas insolúveis. A 
regra básica é: "dê aos jogadores uma 
chance"... mas não exagere. 

Tente não deixar muitos aposentos 
ou locais vazios. Além de ocupar muito 
espaço de memoria, estes não contri- 
buem para a resolução dos problemas 
e tornam o enredo cansativo. 

Por outro lado, procure evitar que as 
suas primeiras aventuras sejam excessi- 
vamente complexas, para que os proble- 
mas que aparecem ao longo da história 
possam ser resolvidos por quem ainda 
não tem prálica; familiarize-secom o te- 
ma antes de aventurar-se em qualquer 
enredo extravagante; manicnha-se alerta 
quanto ao espaço restante de memória, 
pois programas como esses tendem a se 
tornar gigantescos. 

No jogo de aventura que será elabo- 
rado nas próximas partes do curso de 
Programação fie jogos, encontraremos 
muitas declarações REM (comentários, 
para entender o fluxo do programa). 
Entretanto, para economizar memória 
em jogos com longas aventuras, é pre- 
ferível trabalhar sem tais declarações, 
mesmo que no começo elas facilitem a 
criação da trama. 

Você poderá também poupar espaço 
de memória na descrição dos aposentos. 
Descrições muito curtas, porém, tendem 
a estragar todo o prazer suscitado pela 
aventura. 



0 ESPAÇO RESTANTE DE MEMORIA 



PRIKT [PEEK 23730 + 256" PEEK 
23731) - (PEEK 23653 + 256* 
PEEK 23654) 

O que foi digitado leva em conside- 
ração tanto o espaço ocupado pelo pro- 
grama como o usado para armazenar as 
variáveis. A melhor contagem para des- 
cobrir a quantidade de memória restante 
só será possível, portanto, depois que o 
programa tiver sido rodado. 

Para saber quanto espaço está so- 
brando, subtraia esse valor da quanti- 
dade total de memória RAM existente 
no computador. 



■ ■■■ 



Ao escrever um longo jogo de aven- 
tura, é fácil descobrir quando se está 
chegando ao limite de memória do com- 
putador. Obviamente, os problemas de [ ^ || Ç^l f)^ 
desperdício de memória tornam-se mais 
graves no caso de máquinas com memó- 
rias menores (na verdade, seria perda de 
tempo tentar escrever um programa de 
aventura em um computador que tenha 
menos do que 16K de RAM). 



Nos microcomputadores das linhas 
TRS-80 e TRS-Color, o que resta da me- 
mória pode ser descoberto digitando-se: 

PRINT MEM 

Essa instrução levará cm conta o espaço 
ocupado pelo programa e pelas variáveis. 
Assim, é melhor rodai antes o programa, 
durante seu desenvolvimento (se isso for 
possível), a fim dc conseguir uma indica- 
ção real do total de memória usado por ele 

Para saber quanto espaço está sobran- 
do, subtraia esse valor da quantidade to- 
tal de memória RAM existente no com- 
putador. Há uma maneira bem fácil de 
se aumentar o espaço livre de memória 
no TRS-Color para seus programas em 
BASIC. Antes de começar a programar, 
digite esses dois comandos POKE: 

POKE 25,6 
POKE 26.1 
NEW 

Isso economizará uns 6K extras para 
seu programa, pois enganará o compu- 
tador, colocando o programa em BASIC 
dentro de um espaço normalmente reser- 
vado para gráficos de alta resolução. 

Neste caso os comandos POKE ex- 
cluem os comandos para gráficos na sua 
aventura. Se eles existirem, o seu pro- 
grama será alterado. 

Quando você armazenar o programa 
em fila ou disco e quiser carregá-lo mais 
tarde, não se esqueça de usar ames os 
comandos POKE e NEW. 



Nos microcomputadores das linhas 
Apple e MSX, o que resta da memória 
pode ser descoberto digitando-se: 



Digite a seguinte linha, 
direio: 



PRINT FBE(O) 

A função KKE (abreviatura de EREe, 
ou livre, em inglês) retorna o espaço li- 
vre na memória RAM, ou seja, aquele 
não ocupado pelo programa e pelas va- 
riáveis. 
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PROGRAMAS EM 
CÓDIGO DE MÁQUINA 



Agora que você já sabe traduzir do 

Assembly para o sistema hexa, 

passe a operar com código de máquina. 

Os programas em Assembly apresen- 
tados a seguir deslocam a tela um carac- 
tere para a esquerda ou para a direita. 
Monte-os na memória do micro usando 
seu programa monitor. Se você quiser 
gravar programas para uso futuro, colo- 
que-os em locais diferentes da memória. 

Os programas funcionam indepen- 



dentemente de suas posições na memó- 
ria, de forma que você mesmo pode re- 
solver onde é melhor colocá-los. Para 
deslocar a tela mais de uma posição no 
sentido horizontal, chame a rotina em 
código de máquina de dentro de um la- 
ço FOR...NEXT. Outra opção é deslo- 
car a tela somente quando certa tecia é 
pressionada, usando 1NKEYS ou GETS. 




Este programa desloca a tela para a 
esquerda (já está traduzido). 



■ 


EXERCÍCIO EM ASSEMBLY 


■ 


UM PROGRAMA QUE DESLOCA A 


TELA PARA OS LADOS 


■ 


COMO FUNCIONA 0 PROGRAMA 


EM DIVERSOS COMPUTADORES 



ld de, 16384 11 00 40 

ld hl, 16385 21 01 40 

ld b.192 06 CO 

loop puah bc C5 

ld a. (de) IA 

ld bc.it 01 ir 00 

ldir ED 80 

ldldel.a 12 

inc de 13 

inc hl 23 

pop bc Cl 

djnz loop 10 F3 

ret C9 



Os comandos ld de, 16384 e ld hl, I. 
16385 carregam os endereços das duas 
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primeiras posições da tela do Spectrum 
nos registros DE e HL. Já td b,192 
transporta o registro B com o número 
192 (há 192 linhas na tela desse micro, 
e B é usado para contá-las). 

Como o regisiro B será usado para 
contar outras coisas também, seu con- 
teúdo ficará temporariamente armaze- 
nado na pilha (stack). Todavia, nenhum 
comando transfere apenas o conteúdo 
de B para a pilha: assim, temos que fa- 
zer essa transferência com o conteúdo de 
B e C ao mesmo tempo usando push bc. 

O acumulador é então carregado com 
o conteúdo da posição de memória cu- 
jo endereço está no registro DE, pelo co- 
mando Id a (DE). Este é um exemplo de 
endereçamento indireto. Lembre-se de 
que o conteúdo de DE é 16384. 

O comando Id bc, 31 carrega os re- 
gistros BC com o número 31. Cada li- 
nha tem 32 caracteres, mas a transferên- 



cia do primeiro caractere para a última 
posição da linha é feita independente- 
mente. Assim, basta contar até 31. 

A instrução mais poderosa aqui uti- 
lizada é Idir, que significa "carregar, so- 
mar um e repetir" (-load, incremenr 
and repeaí). Compreender o que ela faz 
é crucial para o entendimento do progra- 
ma: o conteúdo da posição de memória 
cujo endereço está em HL — inicialmen- 
te, 16385 — é transferido para a posição 
cujo endereço está em DE — inicialmen- 
te, 16384. A seguir, deve-se somar 1 aos 
conteúdos de HL e DE, subtrair 1 do con- 
teúdo de BC e verificar se o conteúdo de 
BC foi reduzido a 0. Enquanto isso não 
acontecer a instrução será repetida. 

O que estava na segunda posição do 
vídeo passa então para a primeira; o que 
estava na terceira posição vai para a se- 
gunda, e assim até que termine a primei- 
ra linha do vídeo, o que acontece quan- 



do o registro de BC é reduzido a 0. A 
última transferência é a da 32? posição, 
que passa para a 31.*. Nessa altura, o 
conteúdo de BC é subtraído de 1 e se 
torna 0, e o programa passa para a ins- 
trução seguinte. 

O conteúdo do acumulador é trans- 
ferido por Id (de), a para a posição cu- 
jo endereço está em DE. O acumulador 
contém o código do caractere que ocu- 
pava a primeira posição da memória de 
vídeo: 16384, endereço que estava em 
DE antes de Idir começar a incrementar 
esse registro. 

Esse processo de somar 1 ao conteú- 
do de DE foi executado sucessivamente 
desde então, e agora DE contém o en- 
dereço da última posição da primeira li- 
nha. Este é justamente o local para on- 
de desejamos transferir o caractere que 
estava no inicio da linha. 

Os comandos inc hl e inc de somam 




INC & FE""\ 
LDx i FE 
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1 aos registros HL e DE, de forma que 
esies passam a comer os endereços das 
duas primeiras posições da linha seguin- 
te. Como o conteúdo da primeira posi- 
ção é transferido para o final da linha, 
independentemente de Idir, devemos in- 
crementar o valor desses registros dz 
mesma forma. 

O antigo conteúdo de BC é recupe- 
rado da pilha pelo comando pop bc. O 
comando djnz subtrai 1 ao valor de B 
e "pula" sucessivamente para outros lo- 
cais do programa, até que esse valor se 
iguale a 0 ( = decrettient and ju/up ifnot 
zero). No início do programa, carrega- 
mos o registro B com 192. Esse valor fi- 
ca armazenado temporariamente na pi- 
lha para liberar o uso de BC. O coman- 
do djnz subtrai 1 a esse valor, que pas- 
sa a ser 191 (valor diferente de 0). As- 
sim, a instrução volia para a primeira 
ocorrência do rótulo loop. 



Esse salto continua a ocorrer enquan- 
to o conteúdo de B vai sendo reduzido 
de 192 até chegar a 0. O fato de esse va- 
lor ser transferido temporariamente pa- 
ra a pilha não altera o funcionamento das 
coisas. Desta forma, uma linha é deslo- 
cada de cada vez. Quando B finalmente 
contém o valor 0, após a última subtra- 
ção feita por djnz, não ocorre salto, e o 
programa passa a instrução seguinte. 

O comando ret significa retorne. Ne- 
nhuma rotina em código de máquina 
funcionará direito sem uma instrução 
desse tipo no final. O microprocessador 
tentará executar qualquer coisa que es- 
teja após es códigos de seu programa. 
O conteúdo dessa parte da memória ge- 
ralmente não faz sentido, e o mais co- 
mum é a perda de controle do compu- 
tador e do conteúdo da memória. 

Mesmo quando isso não ocorre, o 
microprocessador continua lendo e ten- 



tando executar tudo o que encontra até 
o final da memória. Chegando lá, ele re- 
torna ao início da memória onde encon- 
tra as rotinas de inicialização do BASIC. 
Estas são executadas e a memória se 
apaga. 

Tente traduzir para código de máqui- 
na e introduzir em seu micro a seguinte 
rotina Assembly. 

ld de, 22527 
ld hl, 22526 
ld b.192 
loop puah bc 
ld a, (de) 
ld bc,31 
lddr 

ld (de) ,a 
dec hl 

pop bc 
djnz loop 
ret 




Illlllllll 



CÓDIGO Dl MAQUI: 



Illlllllll 



Esse programa começa pelo final da 
memória de vídeo e vai transferindo os 
conteúdos das linhas "de trás para a 
frente". A diferença entre ele e o ante- 
rior é o uso da instrução Iddr, que trans- 
fere o caractere da posição cujo ende- 
reço está em HL para a posição de en- 
dereço em DE, subtraindo 1 aos conteú- 
dos de HL, DE e BC e repetindo o pro- 
cesso até que o valor em BC seja redu- 
zido a 0. O comando Iddr transfere blo- 
cos de memória em sentido contrário a 
Idir. 

O salto é do mesmo tamanho que no 
programa anterior. Verifique se calcu- 
lou seu valor corretamente, olhando a 
listagem (conte os bytes a partir do fi- 
nal da instrução de salto, ou seja, in- 
cluindo o byte cujo valor está sendo cal- 
culado). 



O programa a seguir desloca a tela 
para a esquerda no ZX-81 com expan- 
são de memória. Ele já está traduzido 
do Assembly para código de máquina. 

LD DE, (16396) ED 5B 0C 40 

INC DE 13 

LD H.D 62 

LD L,E 6B 

INC H , L 23 



LD I 



.24 



LOOP PUSH BC 

LD A, (DE) 
LD BC, 31 
LDXR 
LD (DE) .A 
INC HL 
INC HL 
INC DE 
INC DE 
POP BC 
DJNZ LOOP 
RET 



0 PROGRAMA NO ZX-81 



A memória de vídeo do ZX-81 não 
tem posição fixa; as posições 16396 e 
16397 contêm o endereço da primeira 
posição do vídeo. A instrução LDDE, 
( = 16396) carrega os registros D e E com 
os valores contidos em 16396 e 16397 — 
o conteúdo de 1 6396 vai para E, e o ou- 
tro vai para D, seguindo a convenção 
"baixo-alto" do Z-80. Agora, o progra- 
ma sabe onde está a memória de vídeo. 

Esse micro conta com um caractere 
de retorno de carro (NEW LINE) no ini- 
cio de cada linha que não aparece na te- 
la. Sua função é economizar o espaço 
ocupado pelo vídeo. Se a tela estiver va- 
zia, a memória usada pelo vídeo corres- 
ponderá aos 24 caracteres NEW LINE. 
que marcam onde cada linha deve 
começar. 




1NY 



BNE-OOI 



STa(ífs)y LPYf*< 



3>EY 

CPSfXFF 



LDA&F 
STApFf 

ADCf* S 



3 DC MÁQUINA 9 



llllllllll 



Quando é usada uma expansão, es- 
ses caracteres ficam no final de cada li- 
nha. Não devemos interferir nessa or- 
ganização. 

Tal organização é responsável pelas 
diferenças entre os programas do ZX-8 1 
e os do Spectrum (leia com atenção a 
descrição do programa do Spectrum). 

O primeiro caractere do vídeo é um 
NEW LINE. Como não devemos alterá- 
lo, a instrução INC DE soma 1 ao con- 
teúdo de DE, que se torna então o en- 
dereço da segunda posição do vídeo. 

As instruções LD H.D e LD L.E co- 
piam o conteúdo do par DE no par de 
registros HL. INC HL soma 1 a HL, 
que passa a conter o endereço da tercei- 
ra posição do vídeo. LD B,24 carrega o 
registro B com o número de linhas da 
tela do ZX-8 1 . O restante do programa 
funciona de maneira idêntica à do Spec- 
trum. A única diferença é o número de 



comandos INC HL e INC DE que, no 
ZX-81, somam 1 a esses registros. Isso 
é feito uma vez para mover o programa 
para a linha seguinte e uma segunda vez 
para evitar interferências da linha. 

Agora, tente obter os códigos hexa- 
decimais correspondentes ao seguinte 
programa em Assembly, que desloca a 
tela para a direita. 

LD HL, (16396) 

LD DE, 790 

ADD HL. DE 

LD D,H 

LD E.L 

INC DE 

LD B.24 
LOOP PUSH BC 

LD A, (DE) 

LD BC. 31 

LDDR 

LD (DE) , A 
DEC HL 
DEC KL 



DEC DE 
DEC DE 
P0P BC 
DJNZ LOOP 
El ET 

Esse exemplo é parecido com o se- 
gundo programa apresentado para o 
Spectrum. As diferenças entre eles são 
as mesmas que encontramos antes. 



A organização da memória de vídeo 
do MSX é bem diferente da que existe em 
outras máquinas. Esse computador uti- 
liza um microprocessador diferente da 
CPU para controlar a tela, dispondo de 
16K que não estão na RAM para utili- 
zar como memória de vídeo. Desta for- 
ma, essa porção da memória c tratada co- 
mo dispositivo periférico, e o acesso a ela 
não é tão fácil quanto o acesso à RAM. 




Isso significa que nào podemos usar 
o comando ld para colocar ou ler um ca- 
ractere na memória de vídeo. O coman- 
do Assembly utilizado para enviar da- 
dos a um dispositivo periférico é o out. 

Quando a memória de vídeo de um 
computador está na RAM, podemos fa- 
cilmente situar um caractere em qual- 
quer posição vertical ou horizontal. Se 
a tela for tratada como um dispositivo 
periférico, contudo, a instrução oul sim- 
plesmente colocará os caracteres na mes- 
ma ordem em que forem enviados, a 
partir da posição do cursor. 

Temos, então, dois problemas: para 
controlar a posição do cursor, necessi- 
tamos de sub-rotinas da ROM; além dis- 
so, os 16K da memória de vídeo têm 
uma organização complicada, que varia 
conforme o tipo de tela selecionada, per- 
mitindo a exibição de caracteres, cores 
e sprites. 

Enquanto não aprendemos como 
funcionam as sub-rotinas da ROM e a 
organização da memória de vídeo, va- 
mos usar um artificio que dê ao MSX 
uma "memória de vídeo" na RAM, cu- 
jo acesso é bem mais fácil. Isso é feito 
pelas duas rotinas que se seguem. 

A primeira copia os 960 caracteres da 
tela de textos de 40 colunas, no topo da 
memória, onde esta é manipulada de 
maneira semelhante ã dos outros mi- 
cros. A segunda copia os caracteres da 
"memória de vídeo" da RAM para a 
verdadeira memória de vídeo do MSX, 
que é um dispositivo periférico. 

Embora todas as rotinas apresenta- 
das funcionem independentemente de 
sua localização na memória, daremos 
exemplos utilizando endereços. 

Proteja o topo da memória do MSX 
para colocar os programas e a "memó- 
ria de vídeo" ( = use CLEAR 200, 
&HDFFF). A seguir, carregue os pro- 
gramas usando o monitor. Utilize os en- 
dereços iniciais -8192e -8155 para a 
primeira e a segunda rotinas, respecti- 
vamente. 



ld c,152 0E 98 

ld hl, -7936 21 00 El 

ld a. 4 3E 04 

b,240 06 F0 

loop inir ED B2 

dec 1 Vr-" 3D 

jrnz.loop 20 F9 

ret C9 

ld c.152 0E 96 

ld hl. -7935 21 01 El 

ld 1,4 3E 04 

ld b,240 06 F0 

loop outlr ED B3 

dec a 3D 



jrnz.loop 20 F9 

ret C9 

Para fazé-las funcionar, digite ainda 
o seguinte programa em BASIC: 

1000 SCREEN 0 

1005 DEF USH1--8192 

1007 DEF USR3--8155 

1010 FOR 1-0 TO 960 

1020 VPOKE BASE[0)+I,RND(1)*256 

1030 NEXT I 

1040 VPOKE BASE (0) , 32.X-USR1 (0) 
1050 CLS:F0R 1-1 TO 1000:N£XT I 
1060 VPOKE BASE(O) , 32 : X-USR3 (0) 
1080 GOTO 10B0 

Os possíveis erros podem «er corrigi- 
dos por meio do monitor. Para possibi- 
litar isso, o programa em BASIC come- 
ça na linha 1000, acima do monitor. Se 
não apagarmos o programa monitor, 
poderemos rodar o novo programa com 
RUN 1000. 

As duas rotinas fornecidas devem ser 
chamadas de um programa em BASIC. 
São especialmente importantes os co- 
mandos VPOKE das linhas 1020 e 1040, 
que posicionam o cursor no inicia da te- 
la para que ela possa ser lida pela roti- 
na L'SR1 e escrita pela rotina USR2. 

Agora, você pode montar a rotina de 
deslocamento horizontal propriamente 
dita. Ela é parecida com as rotinas dos 
outros micros que usam o Z-80. Não 
apague as duas rotinas anteriores. Uti- 
lize o endereço inicial -81Í2. 



ld de. -7935 11 01 El 
ld hl, -7934 21 02 El 
ld b,21 06 18 

loop push bc C5 
ld a, tde) IA 
ld bc,39 01 27 00 

ldir ED BO 

ld (de) ,a 12 
inc de 13 
/T") Inc hl ^ jt— v 23 

ff § pop bc/Ç>~», \_ 0 I Cl 
djnz looP^l-P /foj P3 



Para vê-la funcionando, acrescente 
ainda as seguintes linhas ao programa 
em BASIC apresentado anteriormente: 

1006 DEF USH2 — 8112 
1035 FOH 1-1 TO 1000 
1050 A-USR2 (0) 
1070 NEXT I 



COMO FUNCIONAM OS PROGRAMAS 



A primeira rotina transfere os 960 ca- 
racteres da teia de 40 colunas para o to- 
po da memória. O comando ld c,152 co- 
loca o valor 152 no registro C. Este é o 
número da "porta" correspondente á 
memória de vídeo. Todo dispositivo pe- 



riférico tem um número desse tipo. 

Escolhemos os endereços de - 7936 
a - 6976 (57600 a 58560; o computador 
não reconhece inteiros acima de 32768 
em código de máquina) para colocarmos 
a nossa "memória de vídeo" na RAM. 
Assim, o primeiro endereço dessa me- 
mória c colocado no registro HL por 
Idhl, -7936. 

O valor 4 é colocado no acumulador 
pelo comando ld a, 4. O mesmo é feito 
com 240 no registro B, por ld b,240. A 
e B funcionam como contadores. 

A instrução inir é a mais importante 
do programa. Ela coloca o valor lido na 
porta cujo número está em C na posi- 
ção de memória cujo endereço está em 
HL. A seguir, a mesma instrução soma 
1 ao conteúdo de HL e subtrai I a B. 
Se o conteúdo de B não for 0, todo o 
processo será repetido (i/ipttt, increment 
and repeal). Quando o conteúdo de B 
se torna 0, o programa passa à instru- 
ção seguinte. 

A instrução dec a subtrai 1 ao valor 
em A. Se, após essa operação, o conteú- 
do de A for diferente de 0, jrnz desvia- 
rá o curso do programa para a primeira 
ocorrência do rótulo loop ( jump re- 
lafive tf not zero). Isso fará com que o 
processo de ler 240 caracteres na porta 
1 52 seja repetido. Caso o valor cm A se- 
ja reduzido a zero, o salto não ocorre- 
rá, e o programa passará então à instru- 
ção seguinte. 

O comando rei faz com que a rotina 
retorne ao BASIC. 

Em resumo, esse programa transfere 
os primeiros 960 caracteres da tela, a 
partir da posição do cursor. 

Ele faz isto repetindo quatro vezes a 
leitura e transferência de 240 caracteres 
(4x240=960). 

A segunda rotina é essencialmente 
igual à primeira; apenas, trocamos o co- 
mando inir por outir (-output, incre- 
ment and repeal) que, em vez de ler na 
porta 152, envia para esse dispositivo os 
960 caracteres que estavam no topo da 
memória. 

A terceira rotina é, com algumas mo- 
dificações, a mesma utilizada para o 
Spectrum. Ela age sobre a "memória de 
vídeo" na RAM e, para funcionar, deve 
ser usada juntamente com as rotinas an- 
teriores. Leia atentamente a explicação 
do programa do Spectrum. 

As únicas diferenças são os endereços 
iniciais da memória de vídeo (—7935 e 
- 7934), o número de linhas da tela (24) 
e o número de caracteres por linha, me- 
nos 1 (39). O restante 6 exatamente igual. 

Tente então traduzir o programa que 
faz. deslocamento horizontal da tela pa- 
ra a direita, do Assembly para código de 
máquina. Para rodá-lo, serão necessárias 
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as rotinas iniciais, bem como um progra- 
ma em BASIC. 

ld de, -6976 
ld hl. -6977 
ld b,24 
loop push bc 

ld a. (de) 
ld bc,39 
lddr 

ld (de), a 



ld de, 16383 
ld hl, 16382 
ld b.16 
loop push bc 

ld a, (de) 
ld bc.63 
lddr 

ld (de), a 



O 




Este é essencialmente o mesmo pro- 
grama fornecido para o Spectrum. Mas 
existem algumas diferenças. 

São elas: o endereço inicial da memó- 
ria de video, que é 15360 no TRS; o nú- 
mero de linhas da tela (16) e o número 
de caracteres por linha (64). Os coman- 
dos são, portanto, idênticos, 

A rotina a seguir desloca a teta para 
a direita. 



dec 



\1 



djnz loop 



Dirija-sc à seção do Spectn 
comentários. 



O TRS-80 já vem com um monitor. 
Se seu sistema não tem unidade de disco, 
responda N à pereunta inicial do compu- 
tador: BASIC (S/N)? Entramos, assim, 
no monitor. Para aprender os comandos 
específicos, consulte seu manual. 

Caso seu sistema tenha unidade de 
disco, pressione simultaneamente 
BREAK e RESET, liberando a última te- 
cla primeiro. Desse modo, o sistema se 
comportará como se não houvesse uni- 
dade de disco. 

O programa montado com o moni- 
tor permanecerá na memória, não sen- 
do apagado nem pelo DOS nem pela te- 
cla RESET, nem pelo BASIC, se for da- 
da uma resposta adequada à pergunta 
"Memória Usada?" (resposta adequada 
é um endereço inferior ao do programa 
montado). 

A rotina que se segue desloca a tela 
um caractere para a esquerda. 

ld de. 15360 11 00 3C 
ld hl. 15361 21 01 3C 
ld b,16 06 10 

loop puah bc C5 
ld s, (de) IA 
ld bc,63 01 3F 00 



ii 

Este programa desloca a tela para a 
esquerda. Já foi traduzido do Assembly 
para linguagem de máquina. Ele não 
funciona em sistemas com disquete. 



LDXI1024 


8E 04 00 


LDB,X+ 


E6 80 


PSH5 B 


34 04 


LDBI31 


C6 1F 


LDA , X* 


A6 80 


STA-2.X 


A7 1E 


DECB 


5A 


BNE JUMP 


26 F9 


PULS B 


35 04 


STB-l.X 


E7 1F 


CMPXI1536 


8C 06 00 


BLO LOOP 


25 EA 


RTS 


39 


COMO FUNCIONA 0 PROGRAMA 



A memória de vídeo do computador 
começa no endereço 1024; assim. LDX 
#1024 carrega este valor no registro X. 
LDB.X + carrega o acumulador B com 

0 conteúdo da posição de memória cu- 
jo endereço está em X. A seguir, soma 

1 ao conteúdo desse registro. PSHB ar- 
mazena temporariamente na pilha o 
conteúdo do acumulador B — que é o 
código do primeiro caractere do video. 

O comando L1)B#31 carrega B com 
o número 31. Esse registro é usado co-. 
mó contador, Embora existam 32 carac- 
teres por linha, a operação de deslocar 
cada caractere uma posição para a es- 
querda será feita 31 vezes. A transferên- 
cia do primeiro caractere da linha para 
a última posição é feita separadamente, 
depois que o resto da linha é deslocado 
para a esquerda. 

O comando LDA.X + carrega o acu- 
mulador A com o conteúdo do endere- 
ço que está em X; esse endereço está uma 
posição à frente do endereço carregado 
em B, pois foi somado I a X. Depois dis- 
so, a instrução soma 1 a X novamente. 
STA-2.X armazena o conteúdo de A 



no endereço situado duas posições an- 
tes do conteúdo de X. Isso fica uma po- 
sição à esquerda de onde esse caractere 
foi retirado, já que X foi incrementado 
depois. 

A instrução DECB subtrai 1 ao con- 
teúdo de B, diminuindo esse valor de 31 
até 0. Essa operação afeta o sinalizador 
0 (ou fiag zero), de forma que um resul- 
tado 0 em qualquer operação estabelece 
esse sinalizador. BNE verifica se o sina- 
lizador foi estabelecido. Caso isto não te- 
nha ocorrido, o curso do programa so- 
frerá um desvio. JUMP é o rótulo (la- 
hel). de forma que o programa salta até 
a instrução LDA.X + e desloca para a 
esquerda o caractere seguinte, até chegar 
ao final da linha. Quando isso acome- 
ce, DECB reduz o conteúdo do registro 
B a 0 e o sinalizador é estabelecido. Ago- 
ra, o salto não ocorre mais, e o progra- 
ma passa à instrução seguinte a BNE. 

O comando PULS B recupera o va- 
lor no topo da pilha, colocando-o em B. 
STB - 1.X faz com que o conteúdo de 
B seja armazenado uma posição atrás do 
endereço em X. Esta é a última posição 
da linha; o primeiro caractere é então re- 
cuperado da pilha. Assim, a linha é to- 
da deslocada para a esquerda, e seu fi- 
nal passa a ser ocupado pelo primeiro 
caractere. 

A instrução CMPX» 1536 compara o 
endereço em X com 1536, que é o últi- 
mo endereço da memória de video. BLO 
desviará o programa se o conteúdo de 
X for menor que 1536 (Branch i/LOwer 
thatt). Loop é o rótulo, de forma que. se 
o programa não deslocar toda a tela, 
chegando ao seu endereço final, o pro- 
grama saltará para a instrução LDB.X + 
e começará a deslocar a linha seguinte. 

Se o registro X contiver 1536, o pro- 
grama terá deslocado toda a tela, e a ins- 
trução seguinte será executada. 

O comando RTS retorna ao BASIC. 
Toda rotina em linguagem de máquina 
deve terminar com essa instrução. Se is- 
so não ocorrer, o microprocessador ten- 
tará executar qualquer comando que es- 
teja após o seu programa. 

O programa seguinte desloca a leia 
para a direita. Traduza os mnemónicos 
Assembly para código de máquina tos 
endereços estão em decimal e devem ser 
convertidos para hexa). 



LDXI1536 
LOOP LDB.-X 
PSHS B 
LDB|31 
JUMP LDA.-X 
STA 1,X 
DECB 
BNE JUMP 
PULS B 
STB.X 
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CKPXI1024 
BGT LOOP 
BTS 

Este programa trabalha no sentido in- 
verso ao anterior, começando pelo fim 
da memória de vídeo (1536). Ele deslo- 
ca as linhas da tela para a direita, até 
chegar ao endereço 1024. Na realidade, 
1536 é uma posição posterior ao final da 
tela, mas o pós-byle, —X, subtrai 1 ao 
conteúdo do registro X após a execução 
da instrução LDX. Assim, se LDB, -X 
carregar B com o conteúdo da última 
posição da tela, o programa deverá co- 
meçar com um endereço que está uma 
posição na frente, dentro do registro X. 

Com exceção desse detalhe, o progra- 
ma funciona de maneira idêntica ao an- 
terior (confira o tamanho dos saltos que 
calcular, consultando a listagem). 



CPY »S2B 
BNE LOOP 
LDV |S 2 7 
LDA SFD 
STA (SFB) , 
RET 



CO 28 
DO F5 
AO 27 
AS PD 
91 FB 
60 



O Apple II já vem com um monitor. 
Para entrar, digite CALL- 151. Os co- 
mandos específicos estão no manual do 
computador. Para usar as rotinas em 
seus programas BASIC, basta acionar o 
comando CALL N, onde Néo endere- 
ço inicial da rotina em código. A orga- 
nização da memória de vídeo do Apple 
II abriga duas páginas de vídeo com di- 
ferentes modos de utilização, além de 
uma página de texto. A maior compli- 
cação, porém, é a diferença na ordem em 
que as linhas de texto ou de pontos são 
representadas na tela e na memória. A 
segunda linha de texto na tela, por exem- 
plo, não é o segundo conjunto de 40 
bytes da memória de vídeo. 

Assim, para não tornar muilo com- 
plicado este primeiro programa em As- 
sembly para o Apple 11, fizemos com 
que ele deslocasse para a esquerda so- 
mente a primeira linha de vídeo. 

Este programa não funcionará no 
TK-2000. Todavia, os usuários desse mi- 
cro não precisam aprender a montar pro- 
gramas a mão, uma vez que dispõem do 
mini-Assembler. Use o endereço inicial 
hexa 320 (800 em decimal). 



LDA i soo 
STA SFB 
LDA #$04 
STA SFÇ 
LDA IS00 
STA SFE 
LDY IS00 
LDA (SFB).Y 
STA SFD 
LDY *S01 
LOOP LDA fSFB) .Tf 
DEY 

STA (SFB) ,Y 
IHY 

vn 



A9 00 
SS FB 
A9 04 
85 FC 
A9 00 
85 FE 
AO 00 
BI FB 
85 FD 
AO 01 
BI FB 
88 
91 FB 



Use ainda este programa em BASIC: 
5 HOME 

10 FOB I - 1 TO 40 

20 VTAB 1: PRINT CHBS (64 + I 



NEXT 

FOR I - 1 

CALL 800 
NEXT 
GOTO 70 



O comando LDA #$0(1 carrega 0 no 
acumulador, e STA SFB coloca esse va- 
lor no endereço 0020. Analogamente. 
LDA # $04 e STA $ FC colocam 04 em 
0OFC. Não há um comando único que 
armazene valores diretamente na 
memória. 

O endereço da primeira posição da 
memória de vídeo do Apple é 0400 (em 
hexa). 00FB e O0FC são posições da pá- 
gina 0 da memória. As posições dessa 
página requerem somente um byie no 
seu endereçamento. LDA #$00 e STA 
SFE colocam 0 em OOFE, posição que 
será usada como contador. 

A instrução LDY #$00 carrega o 
registro-indice Y com o deslocamento 
(ou seja, 0, pois o programa tem que co- 
meçar no inicio da tela), LDA (FB),Y 
carrega o acumulador com o conteúdo 
da posição de memória cujo endereço 
está cm 00FB e 0OFC, mais um desloca- 
mento provocado pelo número que está 
em Y. 00FB e 0OFC apontam para a po- 
sição 0400. início da tela de textos. As- 
sim, essa instrução posiciona o primei- 
ro caractere no acumulador. STA $FD 
o coloca na posição O0FD. 

A seguir, LDY #$01 carrega o registro 
Y com I. LDA ($FB),Y carrega o acu- 
mulador com o conteúdo da posição de 
endereço dado por OOFB e 00FC, mais 
um deslocamento provocado por Y. Des- 
ta vez, contudo, Y contém 1 em vez de 
0. Assim, essa instrução põe no acumu- 
lador o caractere da posição 0401. 

A instrução DEY subtrai 1 ao regis- 
tro Y, e STA ($FB),Y coloca o caractere 
cujo código está em A na posição dada 
por OOFB e 0OFC, mais o deslocamento 
em Y. Como Y foi diminuído de 1 nesse 
processo, ele tem como resultado a trans- 
ferência de cada caractere para uma po- 
sição à esquerda. 

O registro Y tem 1 duas vezes soma- 
do ao seu conteúdo por intermédio da 



repetição do comando 1NY, apontando 
assim para a próxima posição da tela 
CPY #$28compara o conteúdo de Y com 
28 em hexa. ou 40 em decimal, que é o 
total de caracteres por linha. BNE 
LOOP verifica o sinalizador 0. Se ele 
não for estabelecido, o microprocessa- 
dor voltará para o endereço rotulado por 
LOOP e continuará de lá. 

O comando BNE envia o programa 
de volta a LOOP até que Y acabe de con- 
tar de 0 a 40, movendo os caracteres da 
linha para a esquerda. Quando o con- 
teúdo de Y chega a 40, a condição de 
BNE não è satisfeita e o microprocessa- 
dor continua na instrução seguinte. 

A instrução LDY#$27carrega Ycom 
27 hexa, ou 39 decimal. LDA SFD car- 
rega o acumulador com o conteúdo da 
posição de memória OOFD. 

Já o comando STA ($FB>,Y coloca o 
conteúdo do acumulador no endereço 
dado por OOFB e 00FC, mais o desloca- 
mento em Y. Ele posiciona o primeiro 
caractere da linha na posição 0427, que 
é a Ultima da primeira linha de texto. 

A instrução RTS diz ao microproces- 
sador para voltar ao BASIC. Qualquer 
rotina em linguagem de máquina tem 
que terminar com RTS, caso contrário 
o microprocessador seguirá memória 
afora, tentando executar qualquer coisa 
que houver no caminho. O programa se- 
guinte desloca a primeira iinha de vídeo 
para a direita. Tente calcular os códigos 



correspondentes. 


LDA 


«soo 


STA 


SFB 


LDA 


#S04 


STA 


SFC 


LDA 


• soo 


STA 


SFE 


LDY 


IS27 


LDA 


(SFB) 


STA 


SFD 


LDY 


• S26 


LOOP LDA 


(SFB) 


INY 




STA 


(SFB) 


DEY 




DEY 




CPY 


ISFF 


BNE 


LOOP 


LDY 


tsoo 


LDA 


SFD 


STA 


(SFB) 


HET 





Uslc programa opera da mesma for- 
ma que o anterior, exceto que somamos 
onde subtraímos e vtee-versa, para que 
o deslocamento seja feito no sentido 
inverso. 

Os saltos são do mesmo tamanho, de 
forma que os valores calculados podem 
ser verificados na outra listagem (o sal- 
to inclui o final da instrução BNE, ou 
seja, o byte que contêm seu tamanho). 
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0 QUE É PROGRAMAÇÃO 


ESTRUTURADA? 


■ 


OS FLUXOGRAMAS 


■ 


COMO ESTRUTURAR 


PROGRAMAS EM BASIC 



A estruturação de um programa é uma 
técnica que facilita a compreensão de 
seu funcionamento e permite tornar 
mais eficiente e simples sua operação. 
Aprenda a utilizá-la em BASIC. 



O interpretador BASIC padrão, dis- 
ponível na maioria dos micros, é simples 
de usar, mas possui poucas estruturas de 
programação, o que dificulta a elabo- 
ração de programas estruturados. 

As estruturas são "blocos de constru- 
ção" da lógica de um programa, e são 
utilizadas para proporcionar-lhe uma 
forma coerente e de fácil compreensão. 
No BASIC padrão, as principais estru- 
turas de programação lógica são repre- 
sentadas pelas declarações IF...THEN, 
FOR...NEXT, GOTO e GOSUB. Já vi- 
mos como empregar individualmente a 
maioria delas; examinaremos agora co- 
mo colocá-las juntas de uma maneira le- 
gível e ordenada. 

Em programas curtos, a estruturação 
não é uma questão muito importante. 
O problema aparece quando se preten- 
de elaborar um programa longo e com- 
plexo, do ponto de vista lógico (desvios). 
Nesse caso, se você escrever uma parte 
do programa e depois acrescentar mais 
e mais coisas a ele, provavelmente aca- 
bará se perdendo. 

Para evitar que isso aconteça, haW"- 
tue-se a projetar detalhadamente seu 



. Sistema de indexação 



programa, antes de começar a digitá-lo. 
Comece por escrever o que pretende que 
o computador faça, de um modo bem 
geral. Por exemplo: 

Sistema de indexação 

O programa tem por objetivo proces- 
sar em memória registros que poderão 
ser criados, atualizados, apagados, clas- 
sificados e listados. Os registros serão 
acessíveis por meio da utilização de uma 



3. Série de módulos 





ROGRAMACAC 



paíavra-chave. Todo o conjunto de re- 
gistros poderá ser armazenado e carre- 
gado em um arquivo. 



Esle primeiro passo é conhecido co- 
mo especificação do sistema. O passo se- 
guinte consistirá em dividir as especifi- 
cações gerais, acima, em etapas lógicas 
oumódulos.Estes,porsuavez,também le- 
rão suas funçõesespecificadas de manei- 
ra geral. As operações envolvidas em ca- 
da módulo provavelmente serão muito 
complicadas; assim, divida-as em seções 
sucessivamente menores, até obter mó- 
dulos tão pequenos que possam ser tra- 
tados de forma simples. A figura 1 
tra como isso pode ser feito para o nos- 
so sistema de indexação. 

Cada uma das seções (ou módulos) 
menores não deverá ter, em extensão, 
mais do que uma página de programa, 
ou seja, cerca de 60 linhas. O ideal, po- 
rém, será limitá-las à metade des- 
te tamanho. Eventualmente, VÍWADeiHA 
elas terminarão constituindo 
sub-rotinas do seu pro- 
grama. 

Esse método de 
subdividir um pro- 
blema é conhecido 
como modelo de 
cima para baixo 
ftop-down). Come- 
ça-se do alto (ou 
seja, da descrição 
geral do programa) e avan- 
ça-se até embaixo (isto é, o 
nível mais baixo de.módu- 
los). Até aqui, entretanto, o 
programador ainda não de- 
cidiu em que ordem os mó- 
dulos serão executados. 
Esta será a próxima etapa. 



computador reside exatamente em sua 
habilidade de fazer escolhas. A familiar 
declaração IF...THEN é a estrutura 
mais frequentemente utilizada para isso, 
na linguagem BASIC. Vamos agora exa- 
minar sua representação e a de outros 
tipos de estrutura em um ftuxograma. 




muito importante para a programação 
estruturada, auxilia bastante a testar e 
a eliminar as falhas. 

Nem todas as versões em BASIC, po- 
rém, possuem a partícula ELSE — ela 
não está disponível, por exemplo, nos 
computadores Spectrum, ZX-81, Apple 
ou TK-2000. Nesses casos, para evitar 
que a estrutura passe a ter mais de uma 
saída, o ELSE pode ser simulado 
utilizando-se o GOTO: 
100 ... 

110 IF condição THEN COTO 140 
120 declaração 2 
130 GOTO 150 
140 declaração 1 
150 ... 

É claro que os números das linhas 
não precisam ser iguais aos do exemplo. 
Além disso, pode-se incluir mais de uma 
declaração nas partículas THEN e EL- 
SE. Veja, a seguir, uma seção de progra- 
ma para classificar dois números den- 
tro de determinada ordem. Ela consti 
tui a base para uma rotina de classifica- 
ção alfabética que será dada adiante. No 
caso específico, a partícula ELSE pos- 
suí quatro declarações: 
|ToO IF prmeiroOsegundo THEN 

GOTO 160 
110 LET temporar 10-pr imei ro 
120 LET prmeiro-Heoundo 
130 LET seoundo-temporario 
140 LET ordeinS"" errado" 



A ordem (ou lógica) de execução dos 
módulos de um programa pode ser es- 
pecificada por meio dos diagramas de 
blocos ou fluxogramas. O uso destes 
permite que se ordene o programa de 
uma maneira bem estruturada e clara. 
Para isto, basta seguir um conjunto sim- 
ples de regras. 

A figura 2 mostra como especificar 
um módulo. O programa acompanha as 
linhas na direção das flechas e os retân- 
gulos descrevem o que acontece em ca- 
da estágio. Se quiser executar uma série 
de módulos em sequência, acrescente 
mais retângulos na ordem correta, en- 
tre o início e o fim (veja a figura 3). 

Um fluxograma como este é ideal pa- 
ra um programa no qual nenhuma de- 
cisão é tomada. No entanto, o poder do 



Embora os diversos computadores 
utilizem de maneira diferente a declara- 
ção IF... THEN. ..ELSE, ela é sempre a 
base da tomada de decisões dentro de 
um programa. Representada no flu- 
xograma por um losango (veja figu- 
ra 4), esta declaração é escrita em 
BASIC da seguinte maneira: 

100 IF condição THEN 
declaração 1 ELSE 
declaração 2. 

Ou seja: se a condição for 
verdadeira, será executada a 
declaração I; caso contrário, 
a declaração 2. 

Note que, no fluxograma, 
só há um ponto de saída para 
a estrutura IF... THEN... EL- 
SE. De fato, cada seção de có- 
digo deve ter apenas uma en- 
trada e uma saída. Esta regra. 
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Esla seção também pode ser escrita 
utilizando-se o ELSE, mas ele deverá es- 
tar totalmente contido em apenas uma 
linha. As declarações múltiplas serão 
permitidas desde que estejam separadas 
por dois pontos: 

100 IF pr i me 1 ro':> segundo THEN 
temperar io=primeiro : 
primeircsegundo : segundo» 
temporar 10 : ordemS= "errado " 
ELSE ordemS="certo" 
Não é fácil ler ou entender programas 
que utilizam declarações longas como 
esta — assim, sempre que possível, deve- 
se evitá-las. 

Finalmente, em alguns casos, não se- 
rá necessário usar partícula ELSE. O 
fluxograma se parecerá com o da figu- 
ra 5 e será redigido desta maneira: 

100 IF condição THEN declara- 
ção. 

que é, simplesmente, a própria declara- 
ção IF...THEN. 



ESTRUTURAS EMBUTIDAS 



É possível embutir uma linha IF... 
THEN...ELSE dentro de outra declaração 
IF...THEN...ELSE. Ou seja, a consequên- 
cia de um THEN ou de um ELSE tam- 
bém poderá ser um outro IF, e assim por 
diante. É o caso da seção de programa 
abaixo, que executa a contagem de quan- 
tas partidas dois jogadores ganharam e 
imprime os resultados após cada jogo: 



100 IF T10T2 THEK GOTO 130 
110 PRINT "EMPATOU ! " 
120 GOTO 190 

130 IF TKT2 THEN GOTO 170 
140 PRINT"0 JOGADOR 1 GANHA" 
150 LET Pl-Pl+1 
160 GOTO 190 

170 PRINT"0 JOGADOR 2 GANHA" 
180 LET P2-P2+1 

190 ... 

Todas as estruturas podem ser embu- 
tidas em qualquer combinação e, na teo- 
ria, em qualquer profundidade. No en- 
tanto, quanto mais você as embute, me- 
nos legível se torna o programa; assim, 
é razoável estabelecer um limite de pro- 
fundidade de três ou quatro estruturas. 
Se precisar embutir mais estruturas, sub- 
divida o programa em módulos ou sub- 
rotinas menores. 

Examinando o último programa, vo- 
cê observará que é difícil acompanhá-lo, 
ainda que esteja perfeitamente estrutu- 
rado. Uma maneira prática de tornar 
mais legíveis as declarações embutidas é 
recuar (indentar) as linhas do programa. 
Isso só é viável nos computadores das li- 
nhas TRS-80, TRS-Color, Spectrum e 
MSX; neles, você poderá reescrever o úl- 
timo programa da forma que se segue: 

100 IF T10T2 THEN GOTO 130 
110 PRINT- EMPATOU ! " 
120 GOTO 190 

130 IF TKT2 THEN GOTO 170 
140 PRINT-0 JOGADOR 1 GANHA* 
150 LET Pl-Pl+1 
160 GOTO 190 

170 PRINT-0 JOGADOH 2 GANHA" 
160 LET P2-P2+1 

190 ... 




A introdução de linhas em branco em 
diferentes seções e a utilização de decla- 
rações REM constituem outras manei- 
ras de tornar mais clara a estrutura de 
um programa. Para entrar as linhas em 
branco nos computadores Spectrum, 
basta digitar o número da linha seguida 
de um espaço e, em seguida, pressionar 
<ENTER> ou < RETURN > . Ao es- 
crever programas no TRS-80, TRS- 
Color ou MSX, você poderá obter um 
efeito semelhante digitando um apóstro- 
fo ('), ao invés de dar o espaço. 



Outra declaração importante em pro- 
gramação estruturada é a WHILE...DO, 
que permite a repetição em um progra- 
ma e é um dos recursos mais úteis para 
se criar um laço. Esta declaração diz ao 
computador que faça (DO) repetida- 
mente uma coisa enquanto (WHILE) 
uma certa condição for verdadeira. Se 
seu computador não possui as palavras 
WHILE e DO, você pode inventar uma 
estrutura que faça a mesma coisa, utili- 
zando IF...THEN eGOTO. A redação, 
em BASIC, é a seguinte (veja o fluxo- 
grama correspondente na figura 6): 

100 . . . 

110 IF NOT condição THEN GOTO 
140 

120 declaração 
130 GOTO 110 
140 ... 

Note que a linha 100 lê a condição IF 
NOT..., ou seja. verifica se a condição 
não é verdadeira. O procedimento é 
oposto do normal, ao qual você está 
acostumado, mas não tem problema. Se 
a condição for A = B então NOT ( A = B I, 
será equivalente a A< >B. Do mesmo 
modo, NOT (A < B) será A > = B e assim 
por diante. Na verdade, você poderá es- 
crever NOT (A = B) se quiser, e o com- 
putador entenderá o que você quer dizer. 

Eis aqui o exemplo de um programa 
curto (para cronometrar o cozimento de 
ovo) que utiliza um laço WHILE: 



5 CLS 

10 PRINT AT 3.11:"C0NTAD0R" 
20 INPUT "Quantos minutos voe 
e quer?" . t 

30 PP.INT AT 7,5;"Pressione qu 
alquer tecla para come 

car" 

40 PAUSE 0 
50 CLS 

60 PRINT FLASH 1 ; AT 10,10;" 
TEMPO" 

70 POKE 23672,0: POKE 23673,0 



w 
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80 LET tiae-PEEK 23672+256* 
PEEK 23673: IF tl*e>t*50«60 
THEIJ GOTO 110 
90 PRINT AT 14,10;INT (time 
50) ; " segundos" 
100 GOTO 80 

10S REM fim do loop WH1LE 
110 PRINT FLASH 1 ;AT 14.10; 
TERMINADO! " 
120 SOUND .5,20 



80 IF TIMER>T*3000 THEN GOTO 11 

0 

90 PRINT #298. INT (TIMER/50) ; *SE 

GUNDOS" 

100 GOTO 80 

105 REM FIM DO LACO "WHILE" 
110 PRINT «364. "TERMINADO! " 
120 SOUND 180. 3 



S CLS 

10 LOCATE 10.3:PRINT"CONTADOR D 
E TEMPO" 

20 LOCATE 0,6:INPUT"QUANTOS MIN 
UTOS VOCt QUER" ;T 

7. Escolhas múltiph 




100 REM COMANDO CASE 

110 IF CS-"C" THEN GOTO 170 

120 IF CS-"M" THEN GOTO 190 

130 IF C3-"A" THEN GOTO 210 

140 IF CS-"L" THEN GOTO 230 

150 PRINT ■comando n*o reconhec 

Ido" 

160 GOTO 240 

170 PRINT "CHIAR REGISTRO" :GOSU 

B 1000 

180 GOTO 240 

190 PRINT "MODIFICAR REGISTRO* : 
GOSUB 2000 
200 GOTO 240 

210 PRINT "APAGAR REGISTRO" :GOS 

UB 3000 

220 GOTO 240 

230 PRINT "LISTAR REGISTROS" : GO 
SUB 4000 

240 REM FIM DO CASE 

Pode-se lambém fazer múltiplas es- 
colhas por meio das declarações 
ON...COTO e ON... GOSUB. Entretan- 
to, quando utilizar ON...GOTO, veri- 
fique se cada uma das opções direciona 
você ao final da seção. Na sub-rotina 
abaixo, por exemplo, foi necessário usar 
um GOTO 1210 após cada opção, para 
direcionar o programa para o fim da ro- 
tina. Com uma declaração CASE tal 
procedimento seria desnecessário. 

1000 REM SUBROTINA PARA POLIGON 



30 PRINT: PRINT" 
PRESSIONE 5U 
ALOU ER TECLA 
PARA COMEÇAR" ; 
40 IF INKEYS- 
" "THEN 40 
50 CLS „ 
60 LOCATE 10.15-.PRINT-CONTANDO. 

70 TIME-0 

75 REM COMEÇA O LOOP WHILE 

80 IF TIME>T*3600 THEN GOTO 110 

90 LOCATE 12,17:PRINTINT(TIME/6 

0) ;-oeg.- 

100 GOTO 80 

105 REM FIM DO LOOP WHILE 

110 LOCATE 10.19:PRINT"ESTA PRO 
NTO! " 
120 BEEP 



■ ■■■ 



5 CLS 

10 PRINT #43." CONTADOR * 

15 LET ES-CHR3(27) 

20 PRINT #1 29 , , : INPUT" QUANTOS M 

INUTOS VOCE QUER ?";T 

30 PRINT «196, "PRESSIONE QUALQU 

ER TECLA PARA COMEÇAR" 

40 A$-INKEYS:IF AS-"" THEN GOTO 

40 
50 CLS 
-60 PRINT #238. "TEMPO" 
70 TIMER - 0 

75 REM COMEÇO DO LACO "WHILE" 



ESCOLHAS MÚLTIPLAS 



Normalmente, as estruturas IF... 
THEN e WHILE.. .DO são suficientes 
para a maioria dos programas. No en- 
tanto, existem algumas estruturas adi- 
cionais que tornam a programação 
fácil. Por exemplo, muitos programas 
apresentam mais de dois cursos de ação 
possíveis para um pontodeterminado, " 
Isso poderia ser resolvido com o empre 
go de IF...THEIN embutidos; é 
conveniente, porém, utilizar a es* 
trutura CASE (caso) — como é 
conhecida. Ela classifica cada 
opção em ordem e direciona 
o computador a uma série de 
cursos de ação possíveis, 
grande maioria dos inter- 
precadores BASIC exis- 
tentes para micros não 
incluí a declaração CA- 
SE, mas ela pode ser 
simulada por outros 
comandospadrão. 

O fluxograma 
para uma estru- 
tura CASE é 
mostrado na fi- 
gura 7 e, em BA- 
SIC, um progra- 
ma típico seria: 




8. Laço REPEAT...UNT1L 



1020 ON N-2 GOTO 1060,1100,1140 
.1160,1180.1200 

1030 PRINT "EU NAO SEI O NOME D 
E UM" 

1040 PRINT"POLIGON0 COM ";Ni" L 
ADOS. " 

1050 GOTO 1210 

1060 PRINT "E UM TRIANGULO." 
1070 PRINT "UM TRIANGULO COM OS 
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1090 GOTO 1210 

1100 PRINT "E UM QUADRILÁTERO. " 
1110 PRINT "UM QUADRILÁTERO COM 

OS LADOS" 
1120 PRINT "E ÂNGULOS IGUAIS CH 
AMA- SE QUADRADO. " 
1130 GOTO 1210 

1140 PRINT "E UM PENTÁGONO." 
1150 GOTO 1210 
1160 PRINT "E UM HEXÁGONO." 
1170 GOTO 1210 

1180 PRINT "E UM HEPTAGONO." 

1190 GOTO 1210 

1200 PRINT "E UM OCTOGONO." 

1210 PRINT 

1220 RETURN 

Como se trata de uma sub-rotina, vo- 
cê ainda não poderá rodá-la. O progra- 
ma para chamar a rotina será dado na 
próxima seção. 



A declaração REPEAT... UNTIL 
também é uma estrutura muito útil pa- 
ra fazer o programa repetir um grupo 
de comandos (se seu computador não 
possui esses comandos, poderá simulá- 
los por meio de outros). Nesse caso, ao 
contrário do WHILE...DO, o laço sem- 
pre é executado pelo menos uma vez. 
Veja o símbolo correspondente no flu 
xograma da figura 8 e compare-o à fi- 
gura 6. Em BASIC, será escrito assim: 



110 

130 . . . 

Utilizando a sub-rotina do último 
exemplo, você poderá escrever um pro- 
grama utilizando um laço do tipo RE- 
PEAT, como o seguinte: 

10 PRINT "VOU DIZER OS NOMES" 
20 PRINT "DE ALGUNS POLÍGONOS . " 
30 BEM COMEÇO DO LACO 
40 GOSUB 1000 

50 INPUT "VOCE QUER OUTRO NOME 
?" ;AS 

60 IF LEFTS(AS.1I-"S" THEN GOTO 
30 

70 PRINT "TCHAU ! " : END 

A linha 1000 é a sub-rotina de polí- 
gono dada na seção anterior. 



Talvez você não tenha percebido, 
mas o familiar laço FOR.-.NEXTé ape- 
nas um caso especial do laço WH1LE... 
DO. Ele pode ser utilizado quando se 
conhece antecipadamente o número de 
vezes que o laço deverá ser repetido, 
pois esta informação deve ser especifi- 
cada logo no início. A variável que man- 
tém a contagem do número de vezes ao 
redor do laço é conhecida como variá- 
vel de controle. 



Um fluxograma para o laço FOR... 
NEXT é semelhante ao que se vê na fi- 
gura 9. Comparando-o com o laço 
WH1LE da figura 6, observa-se que tem 
a mesma estrutura geral. Em BASIC é 
descrito assim: 

100 FOR i-mirt TO max STEP vai 
110 declaração 
120 NEXT i 

Não se deve saltar para fora de um 
laço FOR, utilizando uma declaração 
GOTO, já que o interpretador BASIC 
não tem como identificar o que foi fei- 
to. Será fácil saltar de volta dentro de 
um laço, no programa, mas a compreen- 
são de tal estrutura é muito difícil. As- 
sim, evite este procedimento. 



COMO COLOCAR TUDO JUNTO 



As estruturas vistas neste artigo são 
as mais conhecidas e importantes, e po- 
dem ser utilizadas em qualquer tipo de 
programa. Mas, para completar o pro- 
grama, você deverá ainda especificar as 
variáveis que irá utilizar e verificar se as 
variáveis dos diferentes módulos não en- 
trarão em choque umas com as outras. 
Além disso, será preciso especificar to- 
das as entradas e saídas necessárias, tes- 
tar cada um dos módulos e encadeá-los 
todos juntos. No próximo artigo você 
verá como executar todas estas tarefas, 
mantendo seu programa legível e estru- 
turado. Como exercício, examine alguns 
programas já publicados em INPUT e 
veja se consegue identificar as estruturas 
utilizadas. Em seguida, tente melhorar o 
programa, tornando-o mais estruturado. 




9. Laço FOR M \ I 



IIIIIIIIIIIHHM PROGRAMAÇÁODt JOGOS ">f ■■■■■lllllllll 




Acompanhe a criação de uma aventura 
e, depois, crie seu próprio jogo. 
Aqui, os primeiros passos: o 
desenvolvimento do roteiro e a 
confecção do mapa dos locais. 



Ames de programar um jogo, é im- 
portante elaborar minuciosamente o ro- 
teiro, para evitar dificuldades posterio- 
res, como erros e pomos obscuros a se- 
rem esclarecidos. 

Para que você se familiarize com es- 
ta etapa do trabalho, acompanhe conos- 
co o desenvolvimento de um programa 
de aventuras típico. A história que to- 
mamos como exemplo se passa em um 
país distante, onde o jogador deve en- 
contrar o olho perdido de um legendá- 
rio totem inca. Se você seguir passo a 
passo as etapas percorridas para a mon- 
tagem desta aventura, sentirá maior fa- 
cilidade ao projetar seu próprio jogo. 



Em primeiro lugar o programador 
precisa criar um '"mundo" que combi- 
ne com a estrutura básica do roteiro. Es- 
te mundo compõe-se de uma série de ob- 
jetos, cada qual destinado a desempe- 
nhar um papel específico. Além disso, 
deve criar alguns mistérios e problemas 
para o jogador resolver. 

Não é necessário fazer tudo isso de 
uma vez: á medida que se pensa na his- 
tória, seus contornos vão se tornando 
mais nítidos, o que facilita a definição 
dos detalhes. Comece, portanto, rascu- 
nhando o roteiro básico. 

Nosso jogador encontra-se em pés- 
sima situação financeira e, por isso, sai 
em busca do fabuloso olho inca (de al- 
tíssimo valor), escondido em algum lu- 
gar do mundo da aventura. Infelizmen- 
te, a Secretaria da Receita enviou um fis- 
cal para acompanhar o caso. O papel 
desse personagem é bastante semelhan- 
te ao do pirata de outras aventuras — 
ou seja, cabe-lhe arruinar o infeliz jo- 
gador. Sua aparição pode acarretar dois 
I acontecimentos. Se o jogador estiver le- 
I vando consigo um objeto, o fiscal o con- 



fiscará para amortizar sua enorme divi 
da com a Secretaria. Caso o jogador 
tenha encontrado nenhum objeto (não 
podendo, portanto, pagar), o fiscal o 
prenderá numa masmorra. 

Este é o esquema básico da aventura. 
Resta, agora, trabalhar alguns detalhes 
— por exemplo, os objeios que serão en- 
contrados na busca. No nosso jogo, de- 
cidimos contrariar a regra geral de que 
todos os objetos devem ser úteis ao de- 
senvolvimento da aventura. Desta vez, 
haverá um objeto sem nenhuma utilida- 
de na busca empreendida pelo jogador: 
irata-se de algo pesado (um tijolo, por 
exemplo), que irá causar a morte de 
quem tentar atravessar o rio a nado, 
carrcgando-o. 

O objeto mais importante de todos 
será o olho. Para aumentar o interesse 
do jogo, convém imaginar uma manei- 
ra de disfarçá-lo ou escondê-lo. Pode- 
ríamos colocá-lo dentro de um baú ou 
de uma catacumba, mas existem solu- 
ções mais sutis para enganar o jogador. 
.Assim, em vez de esconder o olho num 
lugar que obviamente contém algo de 
valor, vamos deixá-lo dentro de um sa- 
quinho de bolas de gude. O aventureiro 
não irá a lugar nenhum se tentar jogar 
com as bolinhas de gude! 



Um dos artifícios favoritos em jogos 
de aventura é o quarto escuro, no qual 
todas as coisas horríveis podem aconte- 
cer. Esta aventura não será uma exce- 
ção. Sem a lâmpada — que deverá des- 
cobrir em algum misterioso lugar — o 
pobre aventureiro não encontrará as saí- 
das, ficando em péssima situação. 

Talvez isso seja um tanto injusto, já 
que o jogador não receberá nenhum avi- 
so de perigo iminente, nem terá condi- 
ções de sair do quarto escuro, a não ser 
que tenha encontrado a lâmpada. Para 
dar uma melhor oportunidade ao aven- 
tureiro, permitindo- lhe enfrentar pelo 
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CRIAÇÃO DO ROTEIRO 



~ PERSONAGENS E OBJETOS 



DEFINIÇÃO DOS 



O PRIMEIRO MAPA 




menos um dos perigos — o fiscal — , 
uma arma de fogo estará escondida em 
algum lugar. 

Finalmente, para aumentar a diver- 
são, haverá uma sala do trono e uma 
corrente. A sala do trono não é exata- 
mente o que parece. Na verdade, o tro- 
no em questão se transforma num sim- 
ples sanitário, se o jogador não estiver 
de posse do olho. E, caso puxe a cor- 
rente, provocará uma descarga que o fa- 
rá desaparecer, tirando-o mais depres- 
sa da aventura. 

Falta ainda estabelecer um dos prin- 1 
cipais elementos do jogo: as condições | 



IIIIIIIIIIIHI " nOGRAMAÇAODtJOGOS 10 



necessárias à vitória. Não existe saída 
evidente do mundo da aventura c boa 
parte do quebra-cabeças consiste em 
descobrir como escapar com a peça do 
totem. Assim, para ganhar o jogo, o 
aventureiro obviamente precisará ter en- 
contrado o olho — não apenas o saqui- 
nho de bolas de gude. Para dificultar um 
pouco mais, ele deverá também estar na 
sala do trono. Puxar a corrente desta vez 
não fará com que ele entre pelo cano! 

Transformar a saída em risco, sob 
condições diferentes, apresenta a vanta- 
gem de desencorajar o jogador a tentá- 
la constantemente; desta maneira pro- 
longa-se o jogo todo. 



COMO FAZER 0 MAPA 



Antes de começar o mapeamento, 
convém fazer uma recapitulação, listan- 
do os elementos até agora envolvidos na 
aventura. Assim, não se corre o risco de 
perder o fio da meada. 



PERSONAGENS 

• Aventureiro 

• Fiscal da Receita — deve s 
aleatoriamente 



O primeiro mapa será composto por 
uma série de quadrados ligados entre si 
por setas, como mostra a ilustração des- 
ta página. Cada quadrado representará 
um ambiente ou local da aventura — lo- 
cal talvez seja o termo mais adequado, 
por sua abrangência. Pode designar des- 
de a cabeça de um alfinete escondido na 
barra do vestido da rainha, até uma 
imensa planície. Todos os locais devem 
ser incluídos no mapa: os da lista preli- 
minar e outros que se façam necessários 
para completar o jogo. 

Ao esboçar o mapa, não se esqueça 
de assinalar a direção em que se pode 
ir a partir de cada local. Se quiser, in- 
clua saídas que só funcionem em uma 
direção — acompanhadas de mensa- 
gens, como por exemplo: 

A PORTA BATE, 

FECHANDO-SE ATRÁS DE VOCÊ 

As faixas listradas que saem do quar- 
to escuro indicam que o jogador só po- 
derá ir na direção indicada quando de- 



cisando de memória — descrições de lo- 
cais, palavras que o programa deve re- 
conhecer, o número de objetos e o pa- 
pel de cada um deles, o número de enig- 
mas e sua complexidade, etc. 

Depois de ler programado algumas 
pequenas aventuras c verificado o espa- 
ço que ocupam, ficará mais fácil calcu- 
lar o que è possível encaixar na memó- 
ria do seu computador. 

Quem tiver um micro de I6K logo 
descobrirá que é impossível escrever 
uma aventura cm grande escala dispon- 
do de tão pouca memória RAM. No en- 
tanto, a aventura que desenvolveremos 
aqui inclui um número reduzido de lo- 
cais — doze. ao todo — e, portanto, não 
dará esse tipo de dor de cabeça. 

Um mapa para a Busca do Olho Inca 
pode ser semelhante ao de nossa ilustra- 
ção. As ligações entre os locais foram 
todas previstas, e o ponto de partida es- 
tabelecido. Isso é muito importante, 
pois afeta a maneira de se abordar a 
aventura, a ordem em que os objetos são 
descobertos e também a tentativa de 



OBJETOS 

• Globo ocular — escondido no 
saquinho de bolas de gude. 

• Tijolo — peso que mata o 
aventureiro caso este tente 
atravessar o rio a nado 

• Lâmpada — necessária para se achar 
a saída do quarto escuro 

• Arma — para matar o fiscal da 
Receita 

• Corrente — tira o aventureiro do 
jogo se este chegar ã sala do trono 
e puxá-la, sem estar de posse do olho 

LOCA IS 

• Río 

• Quarto escuro 

• Sala do trono 

Até aqui, fixamos apenas três dos lo- 
cais da aventura, em função do que ne- 
les deve acontecer. Podemos muito bem, 
neste ponto, tomar novas decisões. Mas, 
seja como for. o próximo passo consis- 
■ tirá em encaixar todos os elementos num 
mesmo mapa do mundo da aventura. 




Tijolo Atalho 
terminadas condições forem satisfeitas. 
No nosso caso, a condição é estar de 
posse da lâmpada acesa, para enxergar 
as saídas. 

Nào é fácil prever o número de locais 
que determinada quantidade de memó- 
ria RAM pode conter. A dificuldade es- 
tá no próprio programa de aventura, 
que inclui muitos elementos, todos pre- 



O primeiro mapa da avenlura mostra todos 
os locais planejados em suas posições 
relativas. As selas vermelhas indicam as 
saídas que eslão lonslanlemenle abertas; 
as setas listrada* indicam saídas que só 
podem ser utilizadas sub condições 
i-spi-ciais — neste caso, quando o 
avenlureiro estiver de posse da lâmpada. 
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se resolver o quebra-cabeças. 

Os objeios lambem eslão assinalados 
em seus locais. Os que aparecerão pos- 
teriormente — como. por exemplo, o 
olho inca — devem ser listados ã mar- 
gem do mapa. 



DO MAPA AOS SETORES 



Uma vez concluído o mapa, os dados 
podem ser transferidos para os setores. 

Em geral, no planejamento de jogos 
de aventura, os setores são organizados 
em dois tipos de conjunto: um que tem 
por base quadrados e outro que tem por 
base octógonos (veja as ilustrações na 
página 230). A escolha de qual utilizar 
dependerá do número de saídas de ca- 
da local. 

O tipo mais simples de aventura in- 
clui saídas em quatro direções: norte, 
sul, leste e oeste (como na Busca do 
Olho). Nesse caso, deve-se transferir os 
dados para um conjunto de setores qua- 
drados, de modo que se enquadrem nas 



condições do mapa proposto. A manei- 
ra de fazè-lo será detalhadamente expli- 
cada mais adiante. 

Se a aventura incluir saídas a noroes- 
te, nordeste, sudeste e sudoeste, deve- 
se utilizar o conjunto de setores octogo- 
nais. O emprego desse tipo de conjunto 
é, porém, muito complicado. 

Existe ainda a possibilidade de se in- 
cluir, na aventura, deslocamentos para 
cima ou para baixo. Nesse caso, a me- 
lhor solução é a utilização de conjuntos 
distintos de setores para cada "nível" 
da aventura. 

A Busca do Olho tem como base um 
conjunto do tipo quadrado — ou seja, 
permite saídas somente para norte, sul, 
leste e oeste. A não ser que haja uma 
real necessidade de outras direções, es- 
se tipo de aventura é bastante satisfató- 
rio, permitindo, inclusive, que se intro- 
duza uma certa confusão no direciona- 
mento das saídas. Por exemplo, pode- 
se acrescentar a seguinte frase a uma 
descrição: 

EXISTE UMA ESCADA 
DESCENDO PARA O OESTE 



\ para descer as escadas, bastará usar 
i resposta normal OESTE. 



Nossa aventura utilizará um conjun- 
to de setores composto de seis por qua- 
tro quadrados — verifique o mapa pro- 
posto, para cima e para baixo, para a 
esquerda e para a direita. Antes de ini- 
ciar a transferência de todos os detalhes 
para os setores, certifique-se de que ca- 
da quadrado foi devidamente numera- 
do. Deve-sc começar com o número 1, 
no alto à esquerda, e prosseguir até a 
parte inferior à direita. 

Uma vez numerados os quadrados e 
transferidos os detalhes, o conjunto dos 
setores terá uma aparência semelhante 
à da ilustração da página 231. 



COMO COMEÇAR 0 PROGRAMA 



Depois de estruturar o roteiro bási- 
co da história e de completar os setores, 
pode-se dar inicio ao programa. 

A primeira etapa será a digitação das 
descrições dos locais, tendo como base 
o setor proposto. Deve-se decidir a ex- 
tensão das descrições e procurar trans- 
mitir o melhor possível a atmosfera da 
aventura, sem desperdiçar memória. 

Junto com as descrições dos locais, 
o computador deverá receber as infor- 
mações sobre as direções em que se en- 
contram as saídas. 
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Parle de um conjunto de selores quadrados. 
Neste tipo de conjunlo. pode-se planejar 
aventuras utilizando quatro saídas: para 
norte, sul. leste e oeste. 

Veja, abaixo, as primeiras seções do 
programa. O número alto das linhas tem 
a finalidade de assegurar espaço para as 
seções anieriores, à medida que o jo- 
go for se desenvolvendo. Digite a seção 
e preserve-a em fita: 



5000 BEM ** DESCRIÇÃO DO LOCAL 

5010 REM ** LOCAL 4 *■ 
5020 PRINT "VOCE ESTA DO LADO D 
E FORA DE UM GRANDE PRÉDIO" 
5030 LET N-0: LET E-0 : LET S-l : 

LET W-0: RETURN 
5040 REM ** LOCAL 7 *» 
5050 PRINT "VOCE ESTA A BEIRA D 
E UM GRANDE RIO" 
5060 LET N-0: LET E-l: LET S-0 : 

LET U-0: RETURN 
5070 REM *■ LOCAL 8 ■* 
5080 PRINT "VOCE ESTA NUMA FLOR 
ESTA PETRIFI-CADA- 
5090 LET N-0: LET E-0: LET S-l: 

LET W-l : RETURN 
5100 REM ** LOCAL 10 ** 
5110 PRINT "VOCE ESTA NUMA SALA 

EMPOEIRADA" 
5120 LET N-l: LET E-l: LET S-l: 

LET U-0: RETURN 
5130 REM ■* LOCAL 11 ** 
5140 PRINT "VOCE ESTA NUMA SALA 

ESCURA" 

5150 IF LAOl THEN LET N-0: LE 
T E-0: LET S-0: LET W-0: PRINT 
" ESTA MUITO ESCURO PARA VER AS 

SAÍDAS": LET DA-1: RETURN 
5160 LET N-0: LET E-0: LET S-l: 

LET W-l: RETURN 
S170 REM ** LOCAL 14 ** 
5180 PRINT "VOCE ESTA EM UM ATA 
LHO ENLAMEADO" 

5190 LET N-l: LET E-l: LET S-0: 
LET W-0 : RETURN 
I 5200 REM LOCAL 15 ** 
| 5210 PRINT "VOCE ESTA NA ENTRAD 




Parle de um conjunto de selores octogonais 
— utilizado quando se quer incluir saídas 
para noroeste, nordeste, sudoeste e 
sudeste. 

A DA CIDADE OCULTA" 

5220 LET N-0: LET E-l: LET S-0: 

LET W-l: RETURN 
5230 REM ** LOCAL 16 ** 
5240 PRINT "VOCE ESTA NO HALL D 
E ENTRADA" 

5250 LET N-l: LET E-l: LET S-l: 

LET W-l: RETURN 
5260 REM ** LOCAL 17 ** 
5270 PRINT "VOCE ESTA NO PÁTIO" 
5260 LET N-l: LET E-l: LET S-0: 

LET W-l : RETURN 
5290 REM ** LOCAL 18 
5300 PRINT "VOCE ESTA NO JARDIM 

5310 LET N-0: LET E-0: LET S-l: 

LET W-l: RETURN 
5320 REM ** LOCAL 22 ** 
5330 PRINT "VOCE ESTA NO GUARDA 
-LOUCAS" 

5340 LET N-l: LET E-0: LET S-0: 

LET W-0: RETURN 
5350 REM ** LOCAL 24 
5360 PRINT "VOCE ESTA NA SALA D 
O TRONO" 

5370 LET N-l: LET E-0: LET S-0: 
LET W-0: RETURN 



QQ^U 



5000 REM**DESCRICAO DOS LOCAIS* 

5010 REM**LOCAL 4*" 

5020 PRINT" VOCE ESTA DO LADO D 

E FORA DE UMA GRANDE CONSTRU 

CAO" 

5030 N-0 : E-0 : S=l : W-0 :RETURN 
5040 REM**LOCAL 7"* 
5050 PRINT" VOCE ESTA A BEIRA D 
E UM GRANDE RIO" 
5060 N-0 : E-l : S-0 :W-0 : RETURN 
5070 REM**LOCAL 8** 
5080 PRINT" VOCE ESTA NUMA FLOR 
ESTA PETRIFI CADA" 
5090 N-0: E-0 : S = l : W = l : RETURN 
5100 REM*"LOCAL 10** 
5110 PRINT" VOt?E ESTA NUMA SALA 
MUITO SUJA" 



512C N-l : E-l : S-l :W-0 : RETURN 
5130 REM* "LOCAL 11** 
5140 PRINT" VOCE ESTA NUM QUART 
O ESCURO" 

5150 IF 0B(6)<>-1 OR LAOl THEN 
N-0 : E-0 :S = 0 :W-0 : PRINT" ESTA MU 
ITO ESCURO PARA VER AS SAÍDAS 
* : RETURN 

5160 N=0:E-0:S=1 :W-1 : RETURN 
5170 REM* "LOCAL 14"" 
5180 PRINT" .VOCE ESTA NUM ATALH 
O ENLAMEADO" 

5190 N-l : E-l : S-0 : W-0 : RETURN 

5200 REM "'LOCAL 15*" 

5210 PRINT" VOCE ESTA NA ENTRAD 

A DA CIDADE OCULTA" 

5220 N-0:E-1:S-0:W-1:RETURN 

5230 REM"*LOCAL 16** 

5240 PRINT" VOCE ESTA NO HALL D 

E ENTRADA" 

5250 N-1:E-1:S-1:W-1:RETURN 

5260 REM**LOCAL 17-" 

5270 PRINT" VOCE ESTA NO PÁTIO" 

5280 N-1:E-1 : S"0 : W-l : RETUHN 

5290 REM**LOCAL 18** 

5300 PRINT" VOCE ESTA NO JARDIM 

5310 N-0:E-0:S-1 :W-1 : RETURN 

5320 REM**LOCAL 22* 

5330 PRINT" VOCE ESTA NO GUARDA 

-LOUCAS" 

5340 N-l: E-0: S-0: W-0: RETURN 

5350 REM* "LOCAL 24** 

5360 PRINT" VOCE ESTA NA SALA D 

0 TRONO" 

5370 N-1:E-0:S-0:W-0:RETURN 

Não se preocupe com o uso repetido 
de comentários REM incluídos na me- 
mória. Nesta etapa inicial do desenvol- 
vimento do programa, o importante é 
saber o que cada trecho do programa 
faz, ou qual o número do local a que de- 
terminada descrição se refere. Os co- 
mentários sempre podem ser eliminados 
posteriormente. Após cada linha de des- 
crição do local, existe outra linha con- 
tendo dados sobre suas possíveis saídas. 
As variáveis N, S. L e O referem-se a 
norte, sul, leste e oeste. Elas podem ter 
um ou dois valores — 0 significa que não 
há saída naquela direção, ao passo que 

1 significa que há uma saída. 

Finalmente, existe um RETURN 
após as seções do programa, pois cada 
descrição de local será chamada por 
uma instrução GOSUB. 

Um IF...THEN extra na seção do 
quarto escuro verifica se o aventureiro 
possui a lâmpada; porém, a descrição 
das variáveis será tratada mais adiante, 
quando analisarmos os objetos. 

No próximo artigo veremos como 
movimentar o jogador pelo mundo que 
criamos. 

Ultima etapa anles da programação. O 
conjunlo de selores é uma cópia dírela 
do mapa, numa forma que facilita o 
Irabalho. 
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SOFISTICADO! 



Os computadores domésticos oferecem 
vários recursos ao artista amador. 
Aprenda novas formas de utilizar 
os comandos gráficos em BASIC 
e crie livremente suas ilustrações. 



Tendo já dominado os princípios bá- 
sicos do desenho na tela, você pode co- 
meçar a empregar alguns recursos gráfi- 
cos especiais, disponíveis no seu compu- 
tador. Comandos como MOVE, PLOT, 
DRAW, PAINT e C1RCLE permitem 
que você solte as rédeas de sua imagi- 
nação, criando qualquer tipo de imagem 
— de um diagrama explicativo para ilus- 
trar uma mensagem comercial ao cená- 
rio de um excitante jogo de aventuras. 

No artigo da página 1 13 mostramos 
como utilizar comandos simples para 
criar ilustrações com linhas na tela e, em 
alguns casos, como acrescentar cor. Mas 
você pode sofisticar seu repertório, 
aprendendo outras maneiras de traçar 
pontos, desenhar linhas, triângulos, 
quadrados e círculos. Os comandos aqui 
ensinados — em combinação com cores 
ou não — constituem um eficiente re- 
curso para formar imagens estáticas ou 
até mesmo móveis. 

Embora os vários modelos de com- 
putador utilizem esses comandos de ma- 
neira diferente, todos são capazes de 
produzir alguns efeitos interessantes. As 
exceções são o Apple, o TK-2000. o 
TRS-80 e o ZX-81 , cujo BASIC não in- 
clui esses comandos. Entretanto, você 
pode obtê-los acrescentando um cartu- 
cho ROM adequado ou adquirindo pro- 
gramas em disco ou fita. 



Os arcos e círculos são um dos mais 
úteis "instrumentos" do Spectrum pa- 
ra fazer desenhos na tela. 

Este programa para um campo de 
golfe mostra como empregá-los para de- 
senhar árvores, cercas, água, terrenos 
acidentados e buracos. 

Você pode testar seu progresso na 
medida em que for rodando cada gru- 
po de linhas. Não dê o comando NEW 
toda hora; se você deixar as linhas in- 
tactas, obterá a cena mostrada na ilus- 
tração da página 237. 

Antes de começar o trabalho com os 
círculos, porém, convém deixar pronta 
a sede do clube. Para isso, entre estas 
linhas no computador: 



90 BORDER 4: PAPER 4: CLS 

ZOO LET u-10 : LET 9-50 
210 FOB C-162 TO 174 
220 PLOT INK 2;v.c 
230 DRAW INK 2;a,0 
240 LET w-w+2; LET a-a-4 
250 NEXT c 

260 FOR b = 148 TO 162 
270 PLOT INK 2;10.b 
280 DRAW INK 2 ; 50 , 0 
290 NEXT b 

295 DRAW INK 2 ; 10,-3: DRAW 0. 

-11 

; AT 



As linhas numeradas de 200 a 250 de- 
senham o telhado, utilizando técnicas 
semelhantes às ensinadas no artigo an- 
terior (página 113). Na tela, em 10.162, 
aparece primeiro uma linha de 50 pixels 
de largura. Depois uma largura de 4 
pixels, para cada pixel desenhado. 

Um laço parecido aos das linhas 260 
a 290 desenha as paredes, com duas li- 
nhas extras {na linha 295) para traçar a 
varanda. Em seguida, a linha 300 preen- 
che as janelas pelo método mais simples 
possível — imprimindo um quadrado 
negro, com caracteres gráficos da ROM, 
em três lugares da parede. 



COMO DESENHAR AHC0S 



No Spectrum, como já foi explicado 
anteriormente (página 1 1 5), o comando 
CIRCLE é o instrumento mais simples 
para se desenhar um círculo completo. 

Mas, se quisei somente uma parte do 
círculo, será mais fácil acrescentar um 
número a uma declaração convencional 
DRAW. Pode-se obter uma variedade 
imensa de efeitos por meio dessa decla- 
ração; assim, vale a pena fazer alguns 
experimentos antes de prosseguir. 

10 PLOT 130,30 
20 DRAW 0,10,1 
30 GOTO 20 

(Não se preocupe com a mensagem de 
erro.) 

Como você deve se lembrar, os pri- 
meiros doís números da linha 20 dizem 
ao computador para desenhar uma linha 
do ponto traçado até um ponto 10 pi- 
xels acima dele. O último número, por 
sua vez, determina a curvatura da linha. 









... 







lnforma-se assim, ao computador, qual 
fração do círculo será desenhada. Um 
circulo completo é representado por 
duas vezes Pi (3.1416); portanto, com 
o número I, obtém-se o desenho de 
aproximadamente um sexto do círculo 
(ou, mais precisamente, 1 dividido por 
duas vezes Pi). Se você tentar modificar 
a linha 20 para: 

20 DRAW 0,10,2 

... obterá uma série de curvas mais pro- 
nunciadas. Do mesmo modo, 0,10,3 for- 
nece um modelo denteado, e 0,10,4 pro- 
duz parte de uma cerca (ou a metade de 
um tronco de palmeira, dependendo de 



■■■■■Illllllll 



RECURSOS GRÁFICOS 



O COMANDO DRAW 





ESPECIAIS 


■ 


UM NAVIO 


■ 


ARCOS E CÍRCULOS 




EM POUCAS LINHAS 


■ 


DESENHE UM CAMPO DE 


■ 


COMO DESENHAR LETRAS 




GOLFE NO SPECTRUM 


■ 


MENSAGENS LONGAS 




sua imaginação), enquanto 0,10,6 produz 
uma espiral. Se, no entanto, você tentar: 
20 DRAW 0,10. 2*PI 
... poderá ter uma surpresa! O Spectrum 
desenhará um circulo em que dois pon- 
tos estarão em linha reta.Mas, já que tal 
círculo pode se tornar muito maior do 
que sua sala — na verdade, bem maior 
do que o sistema solar — , o computa- 
dor desenhará apenas a pane do circu- 
lo que é capaz. 

Para o cenário, experimente isto: 

10 PLOT 0,100 

20 DRAW RND"5+5.0,2 

30 GOTO 20 

A forma obtida assemelha-se à das 
ondas em um mar agitado. Para dese- 
nhar águas calmas, tente RNDMO + 10 
ou mesmo RNDM5 + 10. 

Com relação aos círculos e arcos, vale 
ainda lembrar que um número negati- 
vo no final da linha DRAW produzirá 
a imagem -espelho do arco. 

Agora, limpe as linhas de 10 a 30 e 
continue montando o cenário para a pis- 
ta de golfe. 



O programa da pista de golfe inclui 
dois exemplos de arcos utilizados para 
efeito gráfico — o primeiro compõe a 
pequena cerca em frente à sede do clu- 
be; o segundo, o lago. 

Digite estas linhas: 

310 FOR f-0 TO 84 STEP 3 
320 PLOT f , 142 
330 DRAW 3,0,-3 
340 NEXT f 

350 DRAW 35,-42: DRAW -12.-6 

O ponto de partida na tela é 0,142. 
A linha 330 desenha uma série de arcos 
estreitos — ou seja, semicírculos com 
apenas 3 pixels de largura — para for- 
mar a cerca. O número obtido é regula- 
do pelo laço FOR. ..NEXT. 

Agora, entre e rode estas linhas: 

100 LET 



-50 



-130: LET y-125: LET 



110 PLOT 1NK 5;x.O 

120 DRAW INK 5;y.z.-1.25 

130 LET x-x+1: LET yyl: 
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HO IF x>254 THEN GOTO 170 
150 IF Z<1 THEN LET Z'0 
160 GOTO 110 

Aqui a ilustração é mais complicada. 
Em primeiro lugar, o computador tra- 
ça um ponto de 130 pixels a partir da 
esquerda e 0 pixel a partir do canto in- 
ferior da tela. Em seguida, desenha uma 
linha no ponto 125 pixels à direita e a 
eleva a 50 pixels do canto inferior da te- 
la, "arqueando" a linha em — 1.25 ra- 
diano, à medida que ela vai se de- 
senvolvendo. 

A partir desse estágio as variáveis en- 
tram em cena. A variável x inicia cada 
linha I pixel mais á direita; a variável 
y torna a linha l pixel mais curta do que 
a anterior (caso contrário ela ultrapas- 
saria os limites da tela), enquanto a va- 
riável i faz com que a linha termine I 
pixel abaixo da anterior. 

Eventualmente, é claro, a variável i. 
poderá se tornar um número negativo, 
fazendo com que o computador tente 
(mas falhe) imprimir o canto inferior da 
tela. Por isso a linha 1 50 é necessária: 
ela faz com que todas as pequenas linhas 
no final do programa terminem na linha 
inferior da tela. 



AS ARVORES E OS ARBUSTOS 



O programa da pista de golfe tam- 
bém utiliza círculos completos (como 
um substituto para PAINT ou uma de- 
claração similar, disponível em alguns 
computadores) para produzir árvores e 
arbustos. Estas poucas linhas desenha- 
rão alguns arbustos ao acaso no "gra- 
mado": 

400 FOR r-172 TO 168 STEP -1 

410 LET x-RND'45+195 

415 PLOT x.r-2: DRAW 0.-2 

420 CIBCLE X,r.RND*2+l 

440 CIRCLE X+I0,r,RND*2+l 

450 NEXT r 

Estas outras linhas produzirão algo 
parecido, no lado direito: 

460 FOR r-135 TO 172 STEP 6 

470 LET y-252 

480 CIRCLE y . r , RND+2 

490 NEXT r 

As árvores, no lado inferior esquer- 
do, são muito grandes e, por isso, não 
se pode desenhá-las aleatoriamente, 
usando DRAW. Assim, utilizamos uma 
técnica diferente: READ...DATA (ve- 
ja páginas 128 a 133): 

900 FOR w-l TO 3 

910 READ a.b 

920 PLOT a,b 
I 930 DRAW 0,-24 
I 940 LET f-RND*5+5 



950 CIRCLE a-10.b+f,f: CIRCLE 
a.b+f.f: CIRCLE a+10,b+f,f 
960 CIRCLE a-5,b*f*2.f: 
CIRCLE a+S.b+f*2,f 
970 CIRCLE a,b+f*3,f 
980 NEXT v 
3000 DATA 20,70.52,85,84,100 

A solução, aqui, foi desenhar primei- 
ro os troncos, de modo descendente, a 
partir dos pontos traçados originalmen- 
te. Desse modo, evita-se que eles apare- 
çam através das "folhagens". Os tron- 
cos são traçados na tela a 20,70 e assim 
por diante, pelos dados fornecidos pela 
linha 3000. A linha 940 desenha aleato- 
riamente o tamanho das folhagens, en- 
quanto que b + f, na linha 950, assegu- 
ra que as séries de círculos ao fundo ini- 
ciem com uma distância razoável acima 
dos troncos. 



O lee propulsor, ou seja, o apoio on- 
de se coloca a bola para a tacada inicial, 
é desenhado por estas linhas: 

1000 LET t-30 
1010 FOR y-0 TO 10 
1020 PLOT t.y 
1030 DRAW -30,30 
1040 LET t-t+2 
1050 NEXT V 

E as linhas abaixo desenharão as ban- 
deirinhas no gramado: 

170 PLOT 220.140 

180 DRAW 0.15: DRAW 8,-3 

DRAW -8,-2 

190 PLOT 22,120 

195 DRAW 0.18: DRAW 9,-3: 

DRAW -9.-2 

Finalmente, você precisará de alguns 
buracos. Na ausência de uma declara- 
ção PAINT, a maneira de desenhá-los 
que oferece os melhores resultados (em- 
bora também seja a mais demorada) é 
começar com uma elipse bem pequena 
e ir aumentando-a, pixel por pixel, até 
atingir um tamanho razoável. 

Como o traçado de elipses será deta- 
lhadamente explicado em um artigo fu- 
turo sobre as funções matemáticas do 
computador, entre e rode estas linhas: 



Alternativamente, você poderá fazer 
os arbustos de um modo mais simples, 
porém mais grosseiro, utilizando blocos 
gráficos. 



1510 PLOT INK 6;168+r*SIN x.14 
7+r"C0S X/2. 5 

1520 PLOT INK 6;235+r*SIN x.10 
6+r*COS x/2. 75 

1530 PLOT INK 6;225+r*SIN x,97 
+r«COS x/2. 5 
1540 NEXT x 
1550 LET r-r+2 

1560 IF r>20 THEN GOTO 6000 
1570 GOTO 1500 



Os comandos CIRCLE c LINE são 
muito úteis para desenhos simples de 
formato regular, requerendo um mínimo 
esforço do programador. Empregá-los 
para desenhos mais complicados, porém, 
tornará seus programas longos e de difí- 
cil manuseio. Imagine o tamanho de um 
programa que desenhasse algo como o 
navio da página 232, usando um coman- 
do LINE para cada linha da ilustração... 

Para contornar esse problema, deve- 
mos utilizar o comando DRAW, que 
permite direcionar a trajetória de uma 
linha enquanto ela está sendo traçada. 
Podemos dizer ao computador que leve 
a linha até uma certa distância ã direi- 
ta, até uma outra distância para cima e 
assim por diante. Essas instruções são 
fornecidas dentro de um cordão, o que 
torna o programa muito mais compacto. 

Como exemplo, digite e rode este 
programa; veja como é possível dese- 
nhar um navio com algumas poucas 
linhas. 



10 PMODE 4.1 

20 PCLS 5 

30 SCBEEN 1,1 

40 DRAW -BM23.96C0" 

50 DRAW "R28E2U3L6UR6E2R5F2D3R3 

U2R7D2R4U9E2R4F2D5R3U2R4U6E3R5D 



80 DRAW -R6DL6D3R24G12L195H4U5" 
90 PAINT (127.100) .0,0 
100 GOTO 100 



30 SCREEN 2 

40 DRAW "BM23.96C1" 

50 DRAW "R28E2U3L6UR6E2R5F2D3R3 

U2R7D2R4U9E2R4F2D5R3U2R4U6E3R5D 



DRAW "R6DL6D3R24G12L195H4U5" 
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O programa funciona assim: 

As linhas numeradas de 10 a 30 esta- 
belecem as condições iniciais, selecio- 
nando uma leia de alia resolução. 

Os comandos DRAW das linhas 40 
a 80 formam o contorno do navio. Este 
comando opera somente no cordão de 
instruções contidas entre aspas. 

A linha 40 é a mais simples, com um 
curto cordão de instruções que dizem à 
máquina onde começar o desempenho, 
e com que cor. A primeira instrução, 
BM,significa"mover em branco", co- 
locando a "caneta" que fará o desenho 
na posição onde desejamos iniciá-lo. Se 
não houvesse a letra B, a "caneta" tra- 
çaria uma reta, enquanto se dirigisse ao 



ponto de partida, que no nosso caso é 
23,96 (noie que as coordenadas não es- 
tão entre parênteses, como em outros 
comandos gráficos). A instrução final 
do cordão seleciona a cor preta (Ci no 
MSX e CO no TRS-Color). 

A linha 50 começa a traçar o contor- 
no. Embora pareça confuso, o cordão 
da instrução DRAW é na realidade mui- 
to simples, consistindo de uma série de 
direçòes e distâncias. As letras contro- 
lam a direção da linha e os números, sua 
distância em pixels. Se não houver um 
número após uma direção, o movimen- 
to será de apenas um pixel. 

Existem 8 direções: U, para cima {up, 
em inglês); R, direita (right); D, para 
baixo (down); L, esquerda (te/O; E, pa- 
ra cima á direita (45 graus); F, para bai- 



xo à direita (135 graus); C. para baixo 
à esquerda (225 graus) e H, para cima 
à esquerda (315 graus). 

Se acompanharmos os comandos do 
cordão da linha 50, leremos: à direita 28 
pixels, a 45 graus 2 pixels, para cima 
3 pixels, e assim por diante. Para se 
exercitar, tente transformar o cordão em 
movimentos de lápis, em papel mili- 
meirado. 

As linhas 60 a 80 contêm cordões pa- 
recidos que completam o contorno do 
navio. Pode-se utilizar apenas um cor- 
dão longo em vez de todas essas linhas, 
mas um número grande de instruções 
tende a tornar mais difícil a manipula- 
ção e a correção dos dados. 

Finalizando o desenho, a linha 90 
pinta de preto a silhueta traçada na tela. 





IIIIIIIIIIIHH 



■■■■■■llllllll 



COMO DESENHAR LETRAS 



Uma das limitações do TRS-Color 
em relação aos programas gráficos é sua 
incapacidade de exibir textos na tela de 
alta resolução (isto não vale para o 
MSX). Não se pode, por exemplo, im- 
primir uma contagem de pontos em um 
jogo que utiliza gráficos (por essa razão, 
o jogo da página 62 é todo exibido em 
tela de textos). 

Para contornar o problema, você de- 
ve projetar seus próprios caracteres uti- 
lizando o comando DRAW. Digite e ro- 
de este programa e você verá a interjei- 
ção ALÔ! ser traçada: 



10 PMODE 3.1 

20 PCLS 

30 SCREEN 1,0 

40 OIS-"D4R3U4L3BRSD4R3BR2U4R3D 

2NL3D2BR2U1BU1U2" 

50 DRAM "BM110,SO;C358"+OIS 

60 GOTO 60 



posição inicial é 110,50 e a cor é de nú- 
mero 3; a palavra será impressa em ta- 
manho 8 (escala dupla). O S pode ser se- 
guido por um número de 1 a 62, no TRS, 
e de 1 a 255, no MSX. O 1 é um quarto 
do tamanho, o 4 é o tamanho normal 
(a escala que se obtém se não houver ins- 
trução) e o 8 é o tamanho duplo. 

Como demonstra a linha 50, é possí- 
vel unir cordões de instruções DRAW 
como quaisquer outros cordões. Se vo- 
cê quiser chamar cordões como QA$ ou 
BFS, poderá fazê-lo do mesmo modo 
que na linha 50. Movimente para o pon- 
to de partida utilizando BM e, então, es- 
tabeleça a cor por C e o tamanho por S. 



MENSAGENS MAIS LONGAS 



É muiio trabalhoso definir cordões 
para cada mensagem quando se quer exi- 
bir na tela um grande número delas. 

Para simplificar a tarefa, defina to- 
dos os caracteres que irá utilizar, digitan- 
do um programa como o que se segue: 



ff/i 



30 SCREEN 2 

40 0IS-"D4R3U4L3BR5D4R3BR2U4R3D 

2NL3D2BR2U1BU1U2" 

50 DRAW •BMU0.50:C3S8"+OIS 

60 GOTO 60 

No TRS, a mensagem é traçada em 
PMODE3, uma modalidade de quairo 
cores. No MSX, em SCREEN 2, a tela 
de alta resolução (iembre-se de que o 
MSX tem outras maneiras de escrever 
textos nesta tela). 

A linha 40 mostra mais uma caracte- 
rística do comando DRAW. Como efe 
opera em um cordão de instruções, vo- 
cê poderá definir variáveis e chamá-las 
mais tarde com um comando DRAW no 
programa. 

As instruções em OlS dizem ao com- 
putador como traçar as letras para for- 
mar ALÔ!. Tente transformá-las em 
movimentos de lápis, como fez anterior- 
mente, lembrando-se de que B significa 
espaço em branco; assim, nenhuma li- 
nha aparecerá no desenho quando uma 
instrução for precedida de B. 

Se você quiser exibir em telas de grá- 
ficos outras palavras ou expressões — 
QUE AZAR! ou BEM FEITO 1, por 
exemplo — poderá estabelecer mais cor- 
dões, tais como QAS e BFS. Tente ela- 
borar as instruções para uma dessas ex- 
pressões em papel gráfico. Uma vez que 
tenha definido os cordões, você poderá 
chamá-los de volta sempre que forem 
I necessários ao programa. 
I O ALÔ! é traçado pela linha 50. A 



Q 



10 PMODE 3,1 
20 DIM LESI26) 
30 PCLS 

40 FOR K-0 TO 26 

45 READ L ES (K) : NEXT 

50 FOR K-0 TO 9 

55 READ NUS (K) : NEXT 

60 DATA BR2 , ND4R3D2NL3ND2BE2 . ND 

4R3DGNL2FDNL3BU4BR2 , NR3D4R3BU4B 

R2 . ND4R2FD2GL2BE4BR , NR3D2NR2D2R 

3BU4BR2 

70 DATA NR3D2NR2D2BE4BR , NR3D4R3 

U2LBE2BR , D4BR3U2NL3U2BR2 , ND4BR2 

, BD4REU3L2R3BR2 , D2ND2NF2E2BR2 

BO DATA D4R3BU4BR2 . ND4FREND4BR2 

, ND4F3DU4BR2 . NR3D4R3U4BR2 , ND4R3 

D2NL3BE2 .NR3D4R3NHU4BR2 

90 DATA ND4R3D2 L2F2BU4BR2 , BD4R3 

U2L3U2R3BR2 , RND4RBR2 , D4R2U4BR2 . 

D3FEU3BR2 , D4EFU4BR2 

100 DATA DF2DBL2UE2UBR2 , DF ND 2 EU 

BR2 , R3G3DH3BU4BR2 ' 

110 DATA NR2D4R2U4BR2 , BDEND4BR2 

, R2D2L2D2R2BU4BR2 , NR2BD2NR2BD2H 

2U4BR2 . D2R2D2U4BR2 . NR2D2R2D2L2B 

E4.D4R2U2L2BE2BR2. R2ND4BR2 , NR2D 

4R2U2NL2U2BR2.NR2D?R2D2U4BR2 

120 SCREEN 1.0 

130 AS""TESTANDO01234S6789" 

140 DRAW "BM60 , 50C3S8" 

150 GOSUB 9000 

160 GOTO 160 

9000 FOR K-l TO LEN (AS) 

9010 BS-MIDS!AS,K,1) 

9020 IF BS>-"0" AND BS<-"9" THE 

N DRAW NUS (VAL (BS) ) : GOTO 9050 

9030 IF BS"" " THEN N-0 ELSE N- 

ASC(BS) -64 

9040 DRAW LES(N) 



20 DIM L ES (26) 
30 CLS 

40 FOR K-0 TO 26 

45 READ LES (K) : NEXT 

50 FOR K-0 TC 9 

55 READ NUS (K) : NEXT 

60 DATA BR 2 . ND4R3D2NL3ND2BE2 ,ND 

4R3DGNL2FDNL3BU4BR2 . NR3D4R3BU4B 

R2 , ND4R2FD2GL2BE4BR , NR3D2NR2D2R 

3BU4BR2 

70 DATA NR3D2NR2D2BE4BR , NR3D4R3 
U2LBE2BR , D4BR3U2NL3U2BR2 , ND4BR2 
, BD4REU3L2R3BR2 , D2ND2NF 2E2BR2 
80 DATA D4R3BU4BR2 .ND4FREND4BR2 
, ND4F3DU4BR2 , NR3D4R3U4BR2 , ND4R3 
D2NL3BE2 , NR3D4R3NHU4BR2 
90 DATA ND4R3D2L2F2BU4BR2 , BD4R3 
U2L3U2R3BR2 , RND4RBR2 . D4R2U4BR2 . 
D3FEU3BR2 . D4EFU4BR2 
100 DATA DF2DBL2UE2UBR2 , DFND2EU 
BR 2 . R3G3DR3BU4BR2 
110 DATA NR2D4R2U4BR2 , BDEND4BR2 
, R2D2L2D2R2BU4BR2 , NR2BD2NR2BD2R 
2U4BR2 . D2R2D2U4BR2 , NR2D2R2D2L2B 
E4.D4R2U2L2BE2BR2, R2ND4BR2 . NR2D 
4R2U2NL2U2BR2 , NR2D2R2D2U4BR2 
120 SCREEN 2 

130 A$-"TESTANDO0123456789* 

140 DRAW -BM60.50C1S8" 

150 GOSUB 9000 

160 GOTO 160 

9000 FOR K-l TO LEN (AS) 

9010 BS-MIDSÍAS.K.l) 

9020 IF BS>-"0" AND BS<-"9" THE 

N DRAW NUS (VAL (BS ) ) :G0T0 9050 

9030 IF BS-" * THEN N-0 ELSE N- 

ASC(BS)-64 

9040 DRAW LES (N) 

9050 NEXT 

9060 RETURN 



O conjunto de caracteres — letras de 
A a Z e algarismos de 0 a 9 — está con- 
tido nas linhas DATA de 60 a 110. O 
conteúdo destas é transferido para duas 
variáveis alfanuméricas — LÉS e NUS 
— pelas linhas 40 a 55. 

Para utilizar esse conjunto é necessá- 
rio definir a mensagem a ser escrita, as- 
sim como a posição inicial, a cor e o ta- 
manho. A linha 130 coloca em AS uma 
mensagem de teste — TESTANDO0123 
456789 — que pode ser substituída por 
qualquer outra de sua criação. A linha 
140 estabelece a posição inicial, a cor e 
o tamanho. Com a mensagem e suas ca- 
racterísticas definidas, podemos dizer à 
máquina que desenhe a mensagem. A 
sub-rotina de impressão — que começa 
na linha 9000 — examina cada caractere 
em AS, um por vez, acha as instruções 
apropriadas nos conjuntos (veja progra- 
mação de jogos, na página 101) e, em 
seguida, desenha o caractere na tela. 



IIIIIIIIIHHH 



■■■■■■lllllllll 



Modificando A$ na linha 130 e, se 
necessário, a posição inicial na linha 
140, podemos desenhar a mensagem que 
quisermos. Como a parte do programa 
que iraça as letras é uma sub-rotina, te- 
remos quantas mensagens desejarmos, 
mas devemos colocá-las sempre em AS. 

O procedimento será muito útil, so- 
bretudo se tivermos uma série de men- 
sagens para exibir em diversos pontos da 
tela durante um jogo. 

Comece seus programas na linha 120, 
ou seja, acima das linhas DATA; lem- 
bre-se, porém, de que as linhas DIM, 
CLEAR ou PCLEAR em geral precisam 
ficar no início. Quando quiser escrever 
uma mensagem, estabeleça cordões com 
as palavras escolhidas apenas no ponto 
em que elas forem necessárias ao progra- 
ma. Em seguida, acrescente o DRAW, 
como na linha 140, e chame a sub-rotina 
de impressão com GOSUB 9000. 



Uma vez elaboradas as instruções pa- 
ra desenhar um perfil, podemos posicio- 
ná-lo em qualquer direção, ou mesmo 
de cabeça para baixo. Basta, para isso, 
incluir uma nova instrução no cordão: 
A, seguida de um valor de 0 a 3. 

AO posiciona o desenho — no nosso 
exemplo, a casa — a 0 graus, ou seja, 
na vertical. Al desenha a casa deitada 
sobre seu lado direito — a 90 graus. A2, 
de cabeça para baixo — a 1 80 graus. A3, 
finalmente, traça a casa deitada sobre 
seu lado esquerdo — a 270 graus. 

O controle da direção em que a ima- 
gem é traçada permite obter o mesmo 
desenho, de quatro maneiras diferentes. 



a partir de um único conjunto de instru- 
ções. Não será necessário, portanto, in- 
formar ao computador como desenhar 
cada versão. 

Para ver como esse recurso funciona, 
digite e rode o programa a seguir. 



10 PMODE 3,1 

20 PCLS 

30 SCREEN 1,0 

40 SS-"NR16E8F4U4R2D6F2D12L6U6L 

4D6L6U12" 

50 FOR K-l TO 20 

60 D-RND(200)+27:E-RNDU40)+27: 

C-RND(3)+1:A-RND<4)-1 

70 DRAW"BM-+STR$(D)+","+STRS(E} 

+"C"+STRS (C) +"A'+STR$ (A) +-XSS ; " 

80 NEXT K 

90 GOTO 90 



30 SCREEN 2 

40 SS-"NR16E8F4U4R2D6F2D12L6U6L 

4D6L6U12' 

50 FOR K-l TO 20 

60 D-INT(RNDU)*200)+28:E-INT(R 
ND(1)*140)+28:C-INT(RND(1>*15)+ 
1:A-INT(RNDU)*4) 

70 DRAW -BM"+STRS(D)*"."+STRS<E 
)+"C"+STRS{C)+"A"+STRS(A)+"XSS; 



Serão desenhadas 20 casas, todas 
iguais, exceto na cor e na orientação. 

O formato das casas é definido na li- 
nha 40. Na linha 60, quatro números 
aleatórios são escolhidos: D e E são as 
coordenadas da posição inicial.Céacor, 
e A, a direção da imagem. 

A linha 70 desenha a casa, acrescen- 




tando ao cordão todos os parâmetros 
gerados na linha 60. A função STRS 
converte as variáveis numéricas em cor- 
dões — na verdade, coloca o valor des- 
tas variáveis entre aspas. Por exemplo, 
se D = 2, então STRS = "2". 

A linha 70 move, então, a "'caneta" 
para uma posição qualquer e, usando 
uma cor aleatória, desenha, na direção 
escolhida ao acaso, as instruções conti- 
das em SS. O X antes de SS significa 
"execute as instruções contidas em SS" 
e permite a adição de um cordão a ou- 
tro durante o desenho, sem a necessida- 
de de utilizar o sinal '" + ". 

O emprego do X apresenta a vanta- 
gem de economizar a "memória de cor- 
dões" da máquina — que é limitada — , 
pois permite unir cordões sem criar no- 
vos cordões. O uso do " + ". ao contrá- 
rio, cria um novo cordão, que vai ocu- 
par boa parte da memória que estamos 
querendo economizar. 



O Speclrum usa arcos e círculos para desenhar um campo de golfe. 




E possível colocar textos na tela grá- 
fica do Apple II? 

Infelizmente, os microcomputado- 
res compatíveis com a linha Apple II 
não permitem misturar texto e gráf ic 
na mesma tela. Essa limitação reduz 
bastante o campo de ação do iniciante 
que quer desenvolver jogos ou outros 
tipos de programas gráficos que preci- 
sam de alguma espécie de titulo ou 
identificação na tela. 

Como os computadores da lir 
MSX e TRS-Color. os micros da lir 
Apple II também dispõem de um i 
mando DRAW. Porém, se o objetivo 
deste recurso é semelhante em todos 
os computadores mencionados, a fili 
sofia de sua utilização é bastante difi 
rente, quando se trata do Apple. 

O funcionamento do comando 
DRAW do Apple baseia-se nas tabelas 
de forma {shape tables). que residem 
em uma certa parte da memória e que 
determinam um verdadeiro "mapa" de 
movimentação do cursor gráfico, com 
base em números binários que identi- 
ficam quais os bits que devem ficar 
acesos ou apagados na tela. A especi- 
ficação de tabelas de forma será expli- 
cada em um artigo futuro. Basta saber, 
por enquanto, que letras e números de 
qualquer tamanho podem ser desenha- 
dos na tela, um a um, com o comando 
DRAW 
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ÂSSEMBLER 
PARA O APPLE 



Traduzir mnemónicos Assembly para 
código de máquina é uma tarefa 
extremamente cansativa. Deixe o Apple 
trabalhar por você: ele o fará 
com rapidez e facilidade. 



O Assembler do Apple é bem mais 
curto do que os programas correspon- 
dentes para o Spectrum, o MSX e o 
TRS-Color. Isto ocorre porque seu mi- 
croprocessador — o 6502 — tem bem 
menos instruções que o Z-80 e o 6809, os 
microprocessadores das outras máquinas. 

Este programa não precisará traba- 
lhar com a infinidade de mnemónicos do 
Z-80, nem terá de calcular os pós-bytes 
do 6809. 

Devido ao seu tamanho, ele é mais 
rápido — o que não significa, porém, 
que sua velocidade seja comparável à 
dos programas escritos em código. Ele 
levará alguns minutos para traduzir um 
longo programa em Assembly. 

E bom lembrar que o TK-2000 já vem 
com um míni-Assembler embutido. 



10 HOME 

Z0 DIM KS(77) ,K1<77) ,K2(7?) :HS 
- "01234567B9ABCDEF":R3 • CHR 
S (13) 

30 DIM TS(200) ,BB(100) ,ZS(100) 

40 P - 0: FOR II - 1 TO 76: REA 

D KStII) .Kl(II) ,K2(II) : IFKStI 

D < > -■• THEN NEXT 

50 DATA ADC, 105. 101. AND, 41, 

37 ,ASL, , 6 . RCC , , 144 ,BCS, , 176 . BEQ 

, ,240. BIT, , 36.BMI. ,48 

60 DATA BRK , . , BYT , , - 256 

70 DATA BNE , , 208 , BPL ..16, BVC 

, , 80.BVS. .112.CLC24. ,CLD, 216, , 

CLI,8B.,CLV,184. 

80 DATA CMP, 201 , 197 ,CPX. 224, 2 
28, CPY, 192, 196, DEC, ,19B.DEX.202 
. .DEY.136, ,EOR, 73,67 
90 DATA INC, .230, INX.232. , IKY 
,200. .JMP, ,68.J3R. ,24 

100 DATA LDA, 169, 165. 

LDX.162.166.LDY 

110 DATA 160.164 ,LSR. ,70 

NOP. ,234 ORA, 9,5. 

PHA, 72. ,PLA, 104, , PLP 

120 DATA 40..PHP.B ROL 

. . 38. ROR, ,102 

1 30 DATA RTI , 64 . . RTS , 96 , , SBC 
,233,229,SEC,56, ,SED, 248, .SEI. 1 
20 , ,STA, , 133. STX. , 134 
140 DATA 3TY , , 132 ,TAX. 170, , TA 
Y, 168, ,TSX, 186, .TXA,138, ,TXS,15 
|4, .TYA.152. 

|l50 DATA WOR, ,-256,*, , 



160 HOME : HTAB 16: VTAB 1: IN 
VERSE : PRINT "MENU" : NORMAL : 
PRINT : PRINT ! PRINT 
170 PRINT TAB { 10);"1 - LER O 
DISCO": PRINT : PRINT TAB ( 10 
);"2 - GRAVAR NO DISCO* : PRINT 
: PRINT TAB ( 10);"3 - MONTAR" 
180 PRINT : PRINT TAB ( 10); "4 

- EDITAR LIMHA": PRINT : PRINT 
TAB ( 10); "5 - APAGAR LINHA": 

PRINT : PRINT TAB t 10); "6 - LI 
STAR" 

190 PRINT : PRINT TAB ( 10);"7 

- SAÍDA": PRINT : PRINT : PRIN 
T TAB ( 10) ;-SELECIONE A OPCAO 

200 GET AS: IF VAL (AS) < 1 O 

R VAL (AS) > 7 THEN 200 

210 JJ - VAL IAS ) : HOME 

220 ON JJ GOSUB 1080,1100,250, 

1120,1200,1230.1300: PRINT : PR 

INT "QUALQUER TECLA PARA CONTIN 

UAR- 

230 GET AS: IF AS - "" THEN 23 

0 

240 GOTO 160 

250 K0 - 0:K9 - 0:PS - 0:PO - 0 
260 PS - PS + 1: IF PS < - 3 T 
HEN K - K0:P - PO: PRINT "ETAPA 

";PS: GOTO 280 
270 PO - P: RETURN 
280 GOSUB 980 

290 GOSUB 910:OP3 - IS: IF LE 
FTS (OP3.1) - "*" AND PS - 3 TH 
EN PRINT OPS 

300 IF LEFTS (OP3.1) - "*" TH 
EN 280 

310 IF OPS - "END" AND PS - 3 

THEN PRINT : PRINT " FIM. ENDE 

RECO FINAL: ";P - 1 

320 IF OPS » "END" THEN 260 

330 IF OPS < > "ORG" AND OPS 

< > "PÍ-" THEN 370 

340 GOSUB 910:3 - 0: IF LEFTS 

(I3.D - •** THEN S - P:IS - 
RIGHT3 (IS, LEN (IS) - 1) 
350 P - VAL (IS) + S: IF PS - 
3 THEN PRINT ■ ORG";P 
360 GOTO 280 

370 IF P - 0 THEN PRINT "FALT 
A ORG" : RETURN 

380 IF OPS < > "SPt-" AND OPS 

< > "TXT" THEN 420 
390 GOSUB 910: IF PS ■ 3 THEN 

PRINT " TXT";I9i TAB ( 20); 
400 FOR J • 2 TO LEN (IS):BY 
- A3C ( MIDS (IS + IS.J.ll) : I 
F J > - LEN (IS) THEN BY - 13 
410 GOSUB 870: NEXT J: GOTO 28 



430 FOR I ■ I + 3 ■ ( A3C (OPS 
) - 65) TO 76: IF OPS - KS(I) T 
HEN 490 

440 NEXT : IF PS - 3 THEN PRI 
NT OPS 

450 IF LEFTS (IS.l) - "." THE 
N IS - RIGHT3 (IS. LEN (IS) - 
1) 

460 GOSUB 1010:RR(Q2) - P: IF 
IS . THEN 290 

470 IF PS - 3 THEN PRINT "(LI 
NHA NAO RECONHECIDA) " 
480 GOTO 2B0 

490 ADS - "»0":R - 0: IF K2(I) 
< > 0 THEN GOSUB 910: ADS - IS 
:OP - K2(I) 

500 IF PS - 3 THEN PRINT " "i 
OPS;: IF K2(I) < > 0 THEN PRI 
NT " ",-ADS; 

510 IF LEFTS (ADS.l) - TH 
EN ADS - RIGHT9 (ADS. LEN (ADS 
) - 1) :OP - Kl (I) 
520 IF RIGHTS (ADS.l) < > ") 
" THEN 530 

525 OP - OP - 20:ADS - MIDS (A 
DS.2. LEN (ADS) - 2): IF OP ■ 4 
B THEN OP - 100 

530 IF RIGHTS (ADS, 2) - ";X" 
THEN OP - OP + 16:ADS - LEFTS 
(ADS, LEN (ADS) - 2) 
540 IF ADS - "A" THEN ADS"0":O 
P - OP + 4 

550 IF RIGHTS (ADS. 2) < > "; 
Y- THEN 5B0 

560 OP - OP + 16: ADS - LEFTS < 
ADS, LEN (ADS) -2): IF RIGHTS 

(OPS.l) < > "X- THEN OP - OP 
- 4:R - 65536 

570 IF RIGHTS (ADS.l) - ")" T 
HEN ADS - MIDS (ADS, 2, LEN (AD 
3) - 2) :R - R - 65536 
SBO S - 1 

590 IF ADS - "" THEN 770 
600 X3 - LEFTS (ADS.l): IF LE 
N (ADS) - 1 THEN BDS - "": GOTO 
610 

605 BDS - RIGHTS (ADS, LEN (AD 



9) 



1) 



610 IF XS - THEN H ■ R * P 

" 3:ADS - BDS: GOTO 580 
620 IF XS - "+" THEN ADS - BDS 

: GOTO 590 

630 IF XS - *-■ THEN ADS - BDS 
:S - - S: GOTO 590 
640 Q - 0 

650 IF (XS C > "9" AND XS < 
> "l") OR BDS < "0" OR BDS > - 

"G" THEN 690 
660 FOR Q2 - 0 TO 15: IF LEFT 
S (BDS.l) < > MIDS (H3.Q2 ♦ 1 
.1) THEN 680 

670 Q - Q * 16 + Q2: IF LEN (B 
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■ TRADUÇÃO DE MNEMÓNICOS ■ MANIPULAÇÃO 





ASSEMBLY PARA CÓDIGO 


DE RÓTULOS 




HEXADECIMAL ■ 


TRANSFERENCIA DO PROGRAMA 


■ 


CALCULO DE SALTOS 


EM CÓDIGO 



E DESVIOS PARA A MEMÓRIA 




D9) - 1 TREM BDS ■ "": GOTO 660 
675 BDS - RIGHTS (BDS. LEN <BD 
S) - 1) : GOTO 660 
680 NEXT :B « B + Q • S:ADS - 
BDS ! GOTO 530 

690 IF XS < *A" OB XS > "Z* TH 
EN 720 

700 IS - ADS - GOSUB 1010: IF IS 

< > -- THEN GOSUB 1050 
710 fi - R + BR(Q2) ■ S:AD3 - IS 
: GOTO 5B0 

720 IF XS < "O" OR XS > "9" TH 
EN R - 0: GOTO 760 



730 IF ADS < "O" Ofi ADS > "9" 
THEN 750 

740 Q - Q * 10 +■ ASC (ADS) - 4 
8: IF LEN (ADS) - 1 THEN ADS - 

--; GOTO 730 
745 ADS - RIGHTS (ADS • LEN (AD 
S) - 1) : OOTO 730 
750 R - R + g * S: GOTO 580 
760 IF PS - 3 THEN PRINT " (EN 
DERECAMENTO INVALIDO) * ; 
770 PP - (OP - ( ABS (OP) > - 
B) * 8 « INT (OP / 8) > - 4) 
* 4 + (OP > - - 4 AND OP < - 



- 1) • 4 
77Z RP = fi - P - 2:RP - ABS ( 
ABS ((RP < 0) « INT (RP / 256) 
) * 256 - ABS (RP - (RP > - 2 
56) » 256 * INT (RP / 256))) 
775 IF LEFT3 (OPS.l) • "B" AN 
D (0 - PP AND OP > 0) THEN R - 



0 IF LEFT3 (OPS.l) - "J" 
LEFTS (OPS.l) » "W" THEN R 
+ 65536 

IF B > 255 THEN OP - OP 



OB 



790 
8 

800 K2 - K2(I):PA - ABS ( ABS 
((OP < 0) « INT (OP / 16)) «1 

6 - ABS (OP - (OP > - 16) * 1 

6 * INT (OP / 16))) 

805 IF PA - 10 THEN Y2 - 0 

BIO IF PS - 3 THEN PRINT TAB 
( 16);:BY - P / 256: GOSUB 890: 

BY - P - 32768: GOSUB 890: GOSU 

B 850 

820 IF OP > - O THEN BY - OP 
/ 256: GOSUB 870 : BY - OP : GOSUB 
B80 

830 IF K2 - O THEN 280 

840 GOSUB 850 :BY ■ R - 256 * 

INT (B / 256): GOSUB 990 : BY - B 

/ 256: GOSUB B70: GOTO 280 
850 IF PS - 3 THEN PRINT " "i 
860 RETURN 

870 IF INT (BY) < - 0 THEN 
RETURN 

880 P - P + 1:YY - ABS ( ABS { 
(BY < 0) * INT (BY / 256)) • 2 
56 - ABS (BY - (BY > - 256) * 
256 * INT (BY / 256) ) ) : IF PS 
- 3 THEN POKE P - l.YY 
890 BY - ABS ( ABS ( (BY < 0) * 

INT (BY / 256)) ■ 256 - ABS 
(BY - (BY > - 256) ■ 256 « IN 
T (I / 256))) 

895 YY - ABS ( ABS ( (BY < 0) * 
INT (BY / 16) ) ■ 16 - ABS (B 

Y - (BY > - 16) * 16 * INT (B 

Y / 16))) : IF PS - 3 THEN PRIN 
T MID3 (HS.BY / 16 + 1,1); MID 
3 (H3.YY + 1,1) i 

900 RETURN 

910 IF K > N THEN 13 - *END* : 
RETURN 

920 Kl - K9 + 1: IF K9 > - LE 
N (TS(K)) THEN IS ■ "/FALTANDO/ 
■ i RETURN 

930 K9 - Kl: IF MID3 (T3(K),K1 

,1) - " " THEN 920 

940 IF K9 > LEN (TS(K)) THEN 

IS - MIDS (TS(K),K1.K9 - Kl): 

RETURN 

950 IF MIDS (TS(K),K9,1) < > 

" " THEN K9 - K9 + 1 : GOTO 940 I 
960 IS - MIDS (TS(K),K1.K9 - X | 
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970 RETURN 

980 IF K9 < - LEN (T3(9J) AN 
D PS - 3 THEN IF LEN (T3(K)) 
> K9 - 1 THEN PRINT RIGHTS (T 
3(K) . LEW (TS(K) ) - K9 + 1) ; 
990 K - K + 1:K9 ■ 0: IF PS ■ 3 

THEN PRINT 
1000 RETURN 
1010 X3 » •" 

,1020 IF 13 < "A" OR 13 > - "I 
" THEN 1040 

1030 X3 - X3 + LEFTS (13.1) ■ I 
F LEN £13) - 1 THEN 13 - "": G 
OTO 1020 

1035 13 - RIGHTS (13. LEN (13) 

- 1) r GOTO 1020 

1040 IF IS < > *" THEN RETURN 
1050 FOR 02 - 1 TO VV: IF XS - 

ZSÍQ2) THEN 1070 
1060 NEXT :W - W + 1:Z3(W] 
- XS:Q2 - W:RR(W) - 32768 
1070 RETURN 

1080 INPUT "NOME DO ARQUIVO "; 
ARS:DS - "*! REM CTRL-D 
1090 PRINT D3:"0PEN";AR3: PRIN 
T D3 ; *READ" ; ARS i INPUT N ! FOR J 

- 1 TO N: INPUT TS(J) ! NEXT ! 
PRINT D3; "CLOSE* ; AR3 : RETURN 
1100 INPUT "NOME DO ARQUIVO "; 
AR3:D3 - "": REM CTRL-D 

1110 PRINT D$; "OPEN" ;AR3: PRIN 
T DS:"WRITE";AJl$: PRINT N: FOR 
J - 1 TO N: PBINT TS(J): NEXT : 

PRINT DS; "CLOSE" ;Afl$: RETURN 
1120 K - 0: INPUT "QUAL O NUM ER 
O DA LINHA " ;K: HOME 
1140 IP3 - "": PRINT K ; : INPUT 
IP$: IF IP3 - "" THEN RETURN 
1150 K2 - K / 10: IF K2 > N THE 
N K2 - N + 1:N - N + 1 
1160 IF K2 < .1 THEN K2 - . 1 
1170 IF K2 - INT <K2> THEN 11 

90 

1180 K2 - INT (K2) + li KOR K3 

- N TO K2 STEP - 1:TS(K3 + 1) 

- TSÍK3) : NEXT :N - N + 1 
1190 T3(K2) - IP3:K - K + 10: G 
OTO 1140 

1200 K - 0: INPUT "QUAL 0 NUMER 
O DA LINHA ";K:K2 - K / 10 
1210 IF K2 > N OR K2 < 1 OR K2 

>, INT (K2) THEN RETURN 
1220 FOR K3 - K2 TO N:TS(K3) - 

T3ÍK3 + 1): NEXT :N - N - 1: R 
ETURN 

1230 IF N - 0 THEN RETURN 
1240 K - 0:K2 - 0: HOME : INPUT 
"QUAL A PRIMEIRA E A ULTIMA LI 
NHA "iK.K2:Kl - K / 10:K2 - K2 
/ 10 

1250 IF K2 > N THEN K2 - N 
1260 IF Kl < 1 THEN Kl - 1 
1270 HOME : FOR K3 - Kl TO K2 : 

PRINT " ";K3 « 10:" ";TS(K3>: 
NEXT : RETURN 
1300 END 

Nas linhas 1080 e 1 100, a variável DS 
deve comer o caractere produzido pelas 
| ledas <CTRL> e <D> pressionadas 
o tempo. DS, portanto, não es- 



tá vazia. CTRL + D é um caractere de 
controle para uso do disco. 



COMO FUNCIONA 0 PROGRAMA 



Uma vez digitado o programa, rode- 
o. Normalmente, ele é colocado na área 
livre da memória que vai de 300 até 3EF, 
em hexa, ou de 768 até 1007, em deci- 
mal. Se quisermos colocá-lo em código 
em outro local, devemos proteger esta 
área da memória (veja página 88). 

Depois que o programa for rodado, 
surgirá um menu na tela. Para entrar um 
programa em Assembly, deve-se esco- 
lher a opção 4, que diz "EDITAR LI- 
NTíA". O Assembler usa linhas BASIC 
com números múltiplos de 10. 

A primeira linha — número 10 — de- 
ve conter o endereço inicial do progra- 
ma em código. Ela ficará mais ou me- 
nos como esta: 

10 org 800 

...determinando que o programa em 
código seja colocado na memória a par- 
tir deste endereço. Se tivermos protegi- 
do outra área da memória para colocar 
nosso programa em código, a origem 
deve ser o endereço inicial daquela por- 
ção da memória. 

Depois da primeira linha, os núme- 
ros de linha múltiplos de dez aparecem 
automaticamente, toda vez que se pres- 
siona a tecla RETURN. Cada linha de- 
ve conter apenas um mnemónico e seus 
operandos. Caso se pretenda inserir uma 
linha entre duas já existentes, utiliza-sé 
um número de linha intermediário — e 
o programa se encarrega da inserção. Os 
rótulos, ou labels — que indicam os lo- 
cais para onde o programa será desvia- 
do—, devem ficar no inicio da linha, 
precedidos de um ponto. Os rótulos pre- 
cisam ter mais de uma letra e não po- 
dem ser iguais a nenhum mnemónico. 
São empregados mnemónicos padrão do 
6502, com uma exceção: o uso do 
ponto e vírgula no lugar da virgula. Is- 
to é necessário porque o programa uti- 
liza a instrução INPUT para receber as 
linhas. Uma vírgula provocaria a men- 
sagem de "EXTRA IGNORADO". 

Caso deseje evitar a tradução de uma 
linha, coloque um asterisco antes dela. 
Ao pressionar RETURN, surgirá a pró- 
xima linha, mas se a mesma tecla for 
pressionada novamente, sem que qual- 
quer coisa tenha sido escrita na linha, 
o programa retornará ao menu. 

O menu fornece a opção de listar o 
programa. Se outra tecla for pressiona- 
da, volta-se ao menu. Podemos também 
optar por apagar uma linha, ou simples- 



mente escrever a nova, com o mesmo 
número no modo de edição. 

Quando estivermos satisfeitos com o 
programa em Assembly que digitamos, 
podemos acionar a opção de "monta- 
gem" do programa. O Apple mostrará, 
então, os mnemónicos acompanhados 
dos códigos hexa correspondentes, ao 
mesmo tempo em que coloca estes có- 
digos na memória. 

Pode-se gravar o Assembler em fila 
ou disco, como qualquer outro progra- 
ma (veja página 53). Os mnemónicos — 
ou programa fonte — devem ser grava- 
dos e lidos em disco usando as opções 
correspondentes. 

O programa em código, por sua vez. 
pode ser gravado em fita ou disco utili- 
zando-se o monitor do Apple, ou por 
meio do comando BSAVE. 

Para rodá-lo, deve-se sair do Assem- 
bler, por meio da opção "SAÍDA", e 
digitar: 

CALL 800 




O que fazer quando um programa 
longo — como este Assembler — não 
funciona depois de digitado? 

Mesmo o programador mais expe- 
riente tem problemas ao digitar progra- 
mas longos. Sempre se comete algum 
erro, e é muito difícil localizá-lo. 

A maioria dos erros provoca uma 
mensagem que orienta o programador 
na direção correta Iveja página 141 1, 
Mas programas longos seguem cami- 
nhos tortuosos, entram em laços e fa- 
zem saltos, de modo que o número de 
linha indicado na mensagem de erro al- 
gumas vezes não ajuda em nada. 

Par tudo isso, é necessário contar 
com uma função de rastreamento, co- 
mo a função TRACE, disponível no Ap- 
ple. Com ela podemos ver o número da 
linha que está sendo executada, o que 
torna mais fácil diagnosticar os erros. 
Para utilizá-la, basta digitar TRACE no 
modo imediato, isto é, sem número de 
linha na frente. Depois, rode o progra- 
ma e veja o rastreamento em ação. A 
função é desativada por NONTRACE. 

Assim, não descarte o programa se 
ele não funcionar na primeira tentati- 
va. Procure pelos erros mais comuns. 
Se ocorrer um "OUT OF DATA", por 
exemplo, verifique com atenção suas 
linhas DATA. Se você tiver esquecido 
um número, ou mesmo uma vírgula, o 
programa não funcionará. 
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■ 


COMPARE E CLASSIFIQUE 


CORDOES ALFANUMÉRICOS 


■ 


COMO FRACIONAR CORDÕES 


■ 


UTILIZE CORDÕES PARA 


PROCESSAMENTO DE PALAVRAS 



Empregadas em quase todos os tipos de 
programas, as cadeias de 
caracteres (ou cordões) são muito úteis 
para quem quer trabalhar com 
algo mais do que simples números. 



Um cordão (ou slring, em inglês) é, 
como já vimos, um conjunto de carac- 
teres. Estes, por sua vez, podem ser le- 
tras, números, sinais de pontuação ou 
quaisquer outros símbolos disponíveis 
no teclado. 

Normalmente, um cordão contém 
uma ou mais informações úteis, ou mes- 
mo partes de informação. Por exemplo, 
O cordão "PEDRO SILVA 241067 S" 
engloba diversos dados sobre uma úni- 
ca pessoa: nome, sobrenome, data de 
nascimento e estado civil. Esses dados 
são considerados como uma mesma co- 
municação. A data de nascimento pode 
ser dividida em dia, mês e ano: assim, 
na verdade, existem no total seis partes 
distintas de informação. 

Em casos como o do exemplo acima, 
faz-se necessário fracionar o cordão pa- 
ra extrair as diferentes partes da comu- 
nicação. Em outros, ao contrário, po- 
de ser necessário unir dois ou mais cor- 
dões. Há casos, ainda, em que se torna 
imprescindível medir a extensão de um 
cordão (número total de caracteres) e 
calcular o valor de algumas de suas par- 
tes numéricas. Tudo isso é possível 



quando se utilizam certas funções e de- 
clarações disponíveis no BASIC da 
maioria dos computadores. 

Conhecida como concatenação, a 
mais simples dessas operações consiste 
em unir cordões. Para efetuá-la, empre- 
ga-se o símbolo " + ". Assim, se A$ for 
igual a "TUDO" e B$ igual a "BEM", 
então AS + BS será "TUDO BEM". 
A concatenação junta os cordões sem 
acrescentar nada a eles. Assim, "439" + 
"241" é igual a "439241" e não a 680. 



COMO COMPARAR CORDOES 



Assim como é capaz de concatenai 
cordões, o computador pode compará- 
los para verificar se são iguais, como 
nesse simples jogo de adivinhação. 



Este programa funcionará no ZX-81 
;e você separartodas as linhas de decla- 
ações múltiplas. 



UTA. QUE FRUTA SOU EU?" 

90 INPUT AS 
100 IF AS-BS THEN GOTO 160 
110 LET G-G+l 
120 PRINT "ERRADO" 
130 FOR J-l TO 200 
140 NEXT J 
150 GOTO 90 

160 1F G-l THEN PRINT "VOCE A 
CERTOU NA PRIMEIRA TENTATIVA* : 
STOP 

170 PRINT "VOCE ACERTOU APOS * 
:G:" TENTATIVAS" 
180 STOP 



DO 



GOTO INT {RND*6) * 

MACA* : GOTO 80 
LARANJA" : GOTO 80 
BANANA" : GOTO 80 
LIMÃO" : GOTO 80 



10 LET G-l 
10+10 

20 LET BS-' 
30 LET BS-' 
40 LET BS"' 
50 LET BS-' 
60 LET B$"" FRAMBOESA" : GOTO 



10 G-l:ON RNDI6) GOTO 20,30.40, 
50,60,70 

20 BS- "MACA" : GOTO 90 
30 BS"" LARANJA" : GOTO 80 
40 BS-"BANANA" :GOT0 60 
50 BS-"LIMA0" :GOT0 80 
60 BS" "FRAMBOESA" : GOTO 80 
70 B$-"ABACAXI" 

80 CLS i PRINT" EU SOU UMA FRUTA. 

QUE FRUTA SOUEU?" 
90 INPUT AS 

100 IF AS=BS THEN GOTO 160 
110 G-G+l 

120 PRINT" ERRADO í " 
130 FOR J-l TO 1000 
140 NEXT J 
150 GOTO 90 

160 IF G=l THEN PRINT"VOCE ACER 
TOU EM UMA TENTATIVA" ELSE PRIN 
T"V0CE ACERTOU APOS" ; G ; "TENTATI 
VAS" 
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5 R-RND(-TIME) 

10 G-l:ON INT(RNDU)*6)+1 GOTO 

20,30.40,50.60.70 

20 BS-"MAÇA" :GOT0 80 

30 B5-"LARANJA" :G0TO 80 

40 BS - " BANANA" : GOTO 80 

50 BS-"LIMÂ0" :G0TO 80 

60 BS-"MARACUJA" : GOTO 80 

70 BS- "ABACAXI ": GOTO 80 

80 CLS : PRINT"AdlVÍnhe : que frut 

90 INPUT AS 

100 IF AS-BS THEN 160 

110 G-G+l 

120 PRINT"Voce errou!" 
130 FOR J- 1 TO 600 
140 NEXT 
150 GOTO 90 

160 IF G-l THEN PRINT"Você acer 
tou na primeira!" ELSE PRINT"Vo 
c6 tentou" ;G; "vezes até acertar 



Copie o programa anlerior sem a li- 
nha 5 e croque CLS por HOME. Modi- 
fique a linha 160 e adicione a 170 como 
se segue: 

160 IF G-l THEN PRINT"Voce acer 

tou na primeira! " :END 

170 PRINT"Voce tentou ";G;" vez 



Aqui, a linha 10 coloca o contador 
de palpites em 1 e "lança" em seguida 
um dado eletrônico, que serve para se- 
lecionar uma fruía, ao acaso. As opções 
são armazenadas nas linhas 20 a 70. 
Qualquer que seja a linha que o com- 
putador passe, ele armazena a fruta co- 
mo um cordão em BS e vai para a linha 
80. Nesse ponto você tem que adivinhar 
qual fruta foi sorteada e digitar seu pal- 
pite, que será armazenado em AS e com- 
parado com BS. Se estes forem iguais, 
o computador imprimirá: "Você acer- 
tou na primeira!", ou "Você tentou 
(tantas) vezes até acertar...". Se A$ não 
for igual a BS o computador imprimi- 
rá: "Você errou"; nesse caso, uma no- 
va tentativa deve ser feita. 

Mesmo que você adivinhe o nome da 
fruta, a condição AS = BS não será sa- 
tisfeita se você escrevê-lo de modo in- 
correto. Para que o computador consi- 
dere dois cordões iguais, eles devem ser 
graficamente idênticos — isto é. letras, 
espaços, sinais de pontuação e números 
devem ser iguais. 

Uma das funções dessa técnica é ve- 
rificar entradas: 



IF AS= "SIM" THEN PRINT "VOCE 
TEM CERTEZA?" 

A condição não scra satisfeita se a pa- 
lavra "sim" for digitada com letras mi- 
núsculas. 



ORDENAÇÃO DE CORDÕES 



As cadeias de caracteres também po- 
dem ser comparadas utilizando-se os si- 
nais dc desigualdade < e > em linhas 
como essa: 

IF AS<BS THEN PRINT "O PRIMEIRO 
É " ;AS 

Aqui, a condição AS<BS pergunta 
se o cordão em AS vem antes do cordão 
em BS, quando eles são colocados em 
ordem alfabética. Mas lenha cuidado: 
o computador coloca cordões em ordem 
alfabética, examinando o código ASCII 
de cada uma das letras ou caracteres que 
compõem o cordão; por exemplo, a le- 
tra A no código ASCII equivale a 65 e 
Z, a 90. O problema é que as letras mi- 
núsculas também possuem códigos AS- 
CII: o a é 97 e o z, 122. Assim, todos 
os cordões que começarem com letras 
maiúsculas serão colocados em primei- 
ro lugar. 

Para complicar ainda mais, sinais de 
pontuação, espaços e outros signos tam- 
bém possuem códigos ASCII; dessa for- 
ma é difícil prever em que ordem ficará 
um cordão constituído por diversos 
signos. 

Com o devido cuidado, os operado- 
res de maior (> )e menor (<), ainda po- 
dem ser utilizados para organizar cor- 
dões em ordem alfabética. Uma rotina 
de ordenação alfabética, que aplica a 
chamada técnica dc ordenação por bo- 
lhas, será explicada mais adiante numa 
lição sobre estruturação de programas. 



COMO FRACI0NAR CORDOES 



É possível também separar 
um caractere ou uma sequên- 
cia de caracteres de um cor- 
dão. Nos computadores 
TRS, MSX c Apple II is- 
so é feito utilizando-se 
funções LEFTS, RIGHTS 
e MIDS. Já o Spectrum 
aplica uma técnica dife- 
rente. 

A função LEFTS (AS, 
mimem) toma caracteres a 
partir do primeiro à esquer 



da no cordão AS e fornece tantos carac- 
teres quantos forem especificados no 
número entre parênteses. Se AS for "SR 
MÁRIO SILVA" c você especificar dois 
caracteres — LEFTS (AS.2) — , o resul- 
tado será "SR". 

De igual modo, o comando RIGHTS 
conta a partir da outra ponta do cordão 
— ou seja, de seu final à direita. Assim, 
RIGHTS (A$,5) produzirá "SILVA". 

Com o MIDS você pode especificar 
dois parâmetros: a posição inicial no 
cordão, e o número de caracteres a se- 
rem extraídos. Por exemplo, MIDS 
(AS,4,5) começará no quarto caractere 
M e pegará cinco caracteres, produzin- 
do "MÁRIO". Se for especificado so- 
mente um número, tal como em 
MIDS(AS,4), a função retornará todos 
os caracteres daquela posição, até o fi- 
nal do cordão. 

O método empregado pelos micros 
da linha Sinclair, tais como o ZX-81 e 
o ZX Spectrum, é mais simples e dire- 
to. Nesses computadores, existe apenas 
uma função para manipulação de cor- 
dões: o comando TO. Por exemplo. AS 
(número TO número). AS identifica o 
cordão a ser fracionado e os dois parâ- 
metros correspondentes ao início e ao 
fim do sub-cordão a ser extraído. 

Usando o mesmo cordão do exemplo 
anterior, AS = "SR MÁRIO SILVA", 
AS(1 TO 2) dá a você "SR", AS (4 TO 
8) fornece "MÁRIO" e A$(10TO 14) 
produz "SILVA". Não é necessário es- 
pecificar os números na função acima. 
Se for omitido o primeiro, o sub-cordão 
a ser extraído se iniciará no primeiro ca- 
ractere. Se o segundo for omitido, a fun- 
ção extrairá até o final do cordão. 

Eis aqui um programa que utiliza to- 
das as funções explicadas acima. E um 
jogo de palavras para duas pessoas. 
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Uma delas entra uma expressão cujas le- 
iras serão embaralhadas e impressas pe- 
lo computador como um anagrama pa- 
ra o segundo jogador resolver. 



10 cts 

20 PRINT @ 7 5, "ANAGRAMA" 

30 PRINT 6161. "DIGITE A PALAVRA 

A SER EMBARA LHADA" 
40 AS-INKEYS:IF AS"" " THEN 40 
43 IF AS-CHRSU3) THEN 55 
46 IF AS<" " THEN 40 
49 WS=WS+AS:GOTÔ 40 
55 UORDS-WS 
70 CLS 

80 FOR N=LEN(WS)T0 1 STEP -1 
90 M-RND(N) 

100 AS=AS+MIDS(WS,M.l) 

110 WS-LEFTS(WS.M-1)+MIDS(WS,M+ 

1) 

120 NEXT N 

130 PRINT 665, "O ANAGRAMA E "AS 
140 PRINT 6129. "QUE PALAVRA VOC 
E ACHA QUE E?" 
160 INPUT GUESSS 
170 G-G+l 

180 IF GUESSSOWORDS THEN PRINT 
" ERRADO, TENTE OUTRA VEZ" : GOTO 
160 

190 PRINT : PRINT" MUITO BEM !" 
200 IF O-l THEN PRINT" VOCE USO 
U 1 TENTATIVA" ELSE PRINT"VOCE 
USOU" ; G ; "TENTATIVAS" 
210 PRINT 6480. "QUER JOGAR DE N 
OVO (S/N)?" 

220 AS=INK£YS:IF AS<>"S" AND AS 

<>"N" THEN 220 

230 IF AS="S" THEN RUN 

240 END 



10 CLS : LET aS-""; LET g-0 

20 PRINT ' " ANAGRAMA" 

30 PRINT ' ' "DIGITE A PALAVRA 

A SER EMBARALHADA" 

40 POKE 23609,20: POKE 23658. 

8: POKE 23624.63 

50 INPUT wS 

55 LET sS-wS 

60 POKE 23624,56 

70 CLS 

80 FOR n-LEN WS TO 1 STEP -1 
90 LET m-INT (RND*n)+l 

100 LET aS-aS+wS(m) 

110 LET wS-wS{ TO m-l)+uS(a+l 

TO ) 

120 NEXT n 

130 PRINT '"O ANAGRAMA E " ; aS 

140 PRINT ' "QUE PALAVRA VOCE A 

CHA QUE E?" 

160 INPUT LINE gS 

170 LET g-g+1 

180 IF gSOsS THEN PRINT " ERR 
ADO , TENTE OUTRA VEZ" : GOTO 160 



190 PRINT ' "MUITO BEM!" 
195 IF g = l THEN PRINT "VOCE P 
RECISOU DE UMA TENTATIVA ! " : 
GOTO 210 

200 PRINT "VOCE PRECISOU DE "; 
g;" TENTATIVAS" 

210 PRINT '"SUER JOGAR OUTRA V 
EZÍS/N)?" 

220 LET aS-INKEYS: IF aSO"S" 
AND a$<>"N" THEN GOTO 220 
230 IF a$-"S" THEN RUN 



í:ímj 



10 HOME 

20 HTAB 5: VTAB 2: PRINT "PROG 

RAMA DE AN AG RAMAS " 

30 VTAB 5: PRINT "DIGITE UMA P 

ALAVRA PARA SER MISTURADA:" 

50 INPUT WS 

55 MOS - WS 

70 HOME 

80 FOR N - LEN (WS) TO 1 STEP 
- 1 

90 M - INT ( RND (1) * (N - 1) 

) + 1 

100 A$ - AS + MIDS (WS,M,1) 

105 IF M - 1 THEN WS - MIDS í 

WS.M + 1) : GOTO 120 

110 WS - LEFTS {WS.M - II + M 

IDS (WS,M + 1) 

120 NEXT 

130 HTAB 4: VTAB 12: PRINT "O 
ANAGRAMA E: ";AS 

140 PRINT : HTAB 1: PRINT "QUE 

PALAVRA E ESTA " ; 
160 INPUT GUESSS 
170 G - G + 1 

180 IF GUESSS < > WOS THEN P 
RINT : PRINT "ERRADO! TENTE NOV 
AM ENTE . " : GOTO 160 
190 PRINT : PRINT "MUITO BEM!" 



205 PRINT "VOCE TENTOU ";G;" V 
EZES . " 

210 PRINT : PRINT : PRINT "VOC 
E JOGA OUTRA VEZ? " ; 
220 GET AS: IF AS < > " 

AS < > "N" THEN 220 
230 IF AS - "S" THEN RI 
240 END 



90 M-INT(RND(1)*(N-1))+1 

100 A5-AS+MIDS(WS.M.l) 

110 U$-LEFTS(WS.M-l)+MIDStWS,M+ 

1) 

120 NEXT 

130 LOCATE 4.12:PRINT"0 anagram 
a é: " ;AS 

140 LOCATE 4 , 14 : PRINT"Que palav 

ra é esta? " 

160 INPUT GUESSS 

170 G-G+l 

180 IF GUESSSOWOS THEN PRINT * 
Errado! Tente novamente .*: COTO 
160 

190 PRINT :PRINT"Mui to bem!" 
200 IF G-l THENPRINT"Voc« acert 
ou na primeira!" ELSE PRINT"Voc 
6 tentou";G;"vezea." 
210 PRINT:PRINT:PRINT"Voce joga 
outra vez? tS/N) " 
220 AS-INKEYS:IF AS<>"S" AND AS 
<>"N" THEN 220 
230 IF AS- "S" THEN RUN 
240 END 

Quando rodar esse jogo, você verá 
que a palavra digitada em primeiro lu- 
gar não aparecerá na teia. Esse oculta- 
mento tem por objetivo evitar que o seu 
adversário veja qual é a palavra. Cada 
computador utiliza um método diferente 
para fazer isso. Os micros da linha Spec- 
trum imprimem a palavra na mesma cor 
do plano de fundo, de modo a torná-ia 
invisível. 

O TRS-Color entra a palavra utili- 
zando INKEVS. que apanha um carac- 
tere por vez no teclado, sem imprimi-los 
na tela. O MSX e o Apple II simples- 
mente apagam a tela depois da digita- 
ção da palavra. 

A rotina para embaralhar as letras es- 
tá nas linhas 80 a 120. O que acontece 
é que os caracteres são apanhados alea- 
toriamente na palavra e acrescentados 



10 CLS : R-RND (-TIME) 
20 LOCATE 5,2:PRINT" 
PROGRAMA DE AN AG RAMAS " 
30 LOCATE 1,5: PRINT" 
Digite uma palavra para 
ser misturada : " 
50 INPUT WS 
55 WOS-WS 
70 CLS 

80 FOR N-LEN(W$)T01 STEP' 
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(um de cada vez) a AS que, gradualmen- 
te, monta o anagrama. 

A linha 90 escolhe um número alea- 
tório M, entre I e a extensão da pala- 
vra. A linha 100 pega a M-ésima letra 
e a acrescenta a AS. A linha 1 10 remo- 
ve esse caractere da expressão original, 
tomando a parte esquerda da palavra até 
a posição M (exclusive) e acrescentan- 
do o que vier após M. Agora, a expres- 
são terá um caractere a menos, mas da 
próxima vez, ao fechar o laço, a variá- 
vel N também lerá seu valor reduzido de 
um; assim, o número aleatório M será 
novamente limitado pela extensão da 
palavra. 

Quando todos os caracteres tiverem 
sido extraídos, o anagrama será impres- 
so na tela e o seu adversário terá que adi- 
vinhar qual a palavra original. Quando 
ele acertar, o computador informará so- 
bre o número de tentativas feitas duran- 
te o, jogo e oferecerá uma nova partida. 

É bastante fácil alterar esse progra- 
ma, de modo a fazer com que as pala- 
vras sejam lidas a partir de uma lisla de 
dados em linhas DATA, em vez de 
entrá-las separadamente a todo momen- 
to. Você pode igualmente elaborar um 
sistema de contagem de pontos, atri- 
buindo, por exemplo, dez pontos para 
uma adivinhação correia feita na pri- 
meira tentativa, nove para uma adivi- 
nhação correta após duas tentativas e as- 
sim por diante. 

Uma outra utilização desse método 
de fracionamento é a manipulação de 
datas. Estas formam um cordão, mes- 
mo quando são digitadas em forma nu- 
mérica — como, por exemplo, 
27/03/51, que significa 27 de março de 
195 1 . É bem verdade que você não po- 
de manipular uma data expressa desse 
modo pelas leis normais da matemáti- 
ca. Mas pode trabalhar com diferentes 
partes de uma data utilizando arit- 
mética. 

Dessa maneira, é possível, por exem- 
plo, calcular quantos anos uma pessoa 
tem em um determinado dia, desde que 
se conheça a data de seu nascimento. Da 
mesma forma, pode-se calcular quantos 
dias se passaram entre duas datas deter- 
minadas. 

Os comandos LEFTS, RIGHTS e 
MIDS — ou os métodos equivalentes 
usados pelos micros da linha Sinclair — 
podem ser usados facilmente para sepa- 
rar o día, o mês e o ano de uma data. 
Caso seja empregada a função VAL (ex- 
plicada mais adiante), os cordões con- 
tendo números poderão ser convertidos 



para números, que podem ser manipu- 
lados por meio de operações aritméticas 
tais como divisão, soma, subi ração. ctc. 



0 TAMANHO DE UM C0RDA0 



Às vezes é útil conhecer o compri- 
mento de um cordão. Se, por exemplo, 
você tiver um espaço limitado de memó- 
ria, reservado para a informação digi- 
tada no teclado, ou se dispuser de uma 
área restrita na tela para exibi-la, pode 
ser conveniente verificar a extensão da 
entrada antes de continuar com o 
programa. 

O comando LEN(AS) fornece o nú- 
mero de caracteres de um cordão AS. E 
uma função numérica e pode ser mani- 
pulada de acordo com as leis da álgebra. 
Por exemplo, se AS = "SR JOÃO SIL- 
VA", LEN (AS) = 13. Mas, se o progra- 
ma exigir que o usuário entre um nome, 
e só houver espaço suficiente na tela pa- 
ra exibir onze letras, o trecho seguinte 
poderá ser utilizado para informar ao 
usuário que ele deve limitar a extensão 
do nome a ser. entrado, eliminando le- 
tras ou mesmo palavras: 

HHMIM1 

10 PRINT "DIGITE 0 NOME DO 

ASSUNTO" 

20 INPUT AS 

30 IF LENfAS)>ll THEN PRINT 
"APENAS 11 CARACTERES 
DISPONÍVEIS" ; : GOTO 10 

O usuário deverá então reduzir sua 
entrada e teclar 'JOÃO SILVA". 

Em outros casos, pode ser mais fácil 
truncar automaticamente uma entrada. 
Isso é feito com uma linha tal como a 



que se segue; 



consiste em fazer programas "à prova 
de idiotas", ou seja, que impeçam a di- 
gitação equivocada dos dados. Por 
exemplo, na seção abaixo: 



...o computador espera que o usuário 
digite um número. Se este digitar um ca- 
ractere não numérico, a maioria dos 
computadores imprimirá uma mensa- 
gem de erro. Esta, porém, avisará ape- 
nas que alguma coisa eslá errada, sem di- 
zer onde está o erro. 

Porém, se for utilizado: 
110 INPUT AS 

...o computador aceitará qualquer coi- 
sa digitada pelo usuário sem emitir men- 
sagens de erro. O passo seguinte será 
converter o cordão em um número. Pa- 
ra isso, utiliza-se a função VAU \. Na 
maioria dos computadores, se houver al- 
guma letra misturada com números no 
cordão de entrada, VAL retornará um 
valor igual a 0. 

Infelizmente, esse método não serve 
para os micros da linha Sinclair, nos 
quais o emprego do comando VAL com 
um cordão de caracteres que contenha 
letras produz uma mensagem de erro. 
Nesses micros, a função VAL só deve 
ser usada se o cordão for constituído 
apenas de números. Assim, 
VAL("1984") fornecerá 1984; mas 
VAL( "26/ 10/84") fornecerá 0.03095..., 
porque os micros da linha Sinclair utili- 
zam o VAL para avaliar a expressão 26 
: 10 : 84. Por esse motivo, os possuido- 
res do Sinclair não precisam ler o resto 
desta seção, dirigindo-se diretamente pa- 
ra o próximo "capítulo" do artigo (De 
números a cordões). 

Nos computadores TRS-80, TRS- 




Uma das aplicações 
mais importantes das 
funções de conversão de 
cordões para números 
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Color, Apple e MSX, a função VAL ex- 
trai a parte numérica cio cordão. Assim, 
se AS contiver apenas dígitos numéricos, 
VAL( = A$) retornará o valor numéri- 
co correspondente, que poderá ser pos- 
teriormente utilizado no programa. Se, 
ao contrário, A$ não contiver números, 
VAL(AS) retornará o vaíor 0. 

Você poderá então escrever uma pe- 
quena sub-rotina que explique em deta- 
lhes ao usuário que ele cometeu um er- 
ro, oferecendo- lhe ao mesmo tempo ou- 
tra oportunidade de entrar os dados sem 
interromper o programa ou desarrumar 
a tela do computador. 

Um ponto importante a ser observa- 
do em relação ao comando VAL é que 
ele só extrai números no início do cor- 
dão. Dessa maneira, VAL("25 Julho") 
é igual a 25. mas VAU "JULHO 25") 
è equivalente a 0. 

A função VAL é útil também para 
ordenar números extraídos de um cor- 
dão. Se, por qualquer razão, você tiver 
os nomes e as notas de uma classe de 
alunos em um cordão como AS = "'32 
CARLOS", B$"45 MARCOS" e 
CS = "41 JOSÉ" e assim por diante, e 
quiser uma média dos resultados, o pri- 
meiro passo a ser dado será extrair as 
notas individuais utilizando o VAL. As- 
sim, VAL( = AS) fornece 32, VAL( = B$) 
extrai 45 e VAL (C$) separa 41. 

Do mesmo modo, o comando VAL 
pode ser utilizado para ignorar as uni- 
dades de medida digitadas junto com os 
valores. O próximo programa mostra- 
rá a você a diferença: 

100 LET ÀS-"32KG- 

110 LET BS="110KG" 

120 PRINT"AS+BS- ":AS+BS 

130 PRINT"VAL<AS)+VAL(BS)-";VAL 

<AS)+VAL(BS) 

140 END 



DE NÚMEROS A CORDOES 



A função STRS desempenha um pa- 
pel oposto ao do comando VAL: en- 
quanto este extrai números de cordões, 
aquela converte números em cordões. A 
vantagem dessa operação é que os cor- 
dões podem ser, por exemplo, fraciona- 
dos e concatenados. 

O comando STRS possui, portanto, 
inúmeras aplicações. 

O programa a seguir transforma um 
número decimal em binário. Embora os 
computadores trabalhem diretamente 



com a aritmética de números binários, 
a linguagem BASIC é capaz de manipu- 
lar apenas decimais ou, em alguns ca- 
sos, hexadecimais e octais. Assim, quan- 
do um número binário aparecer em um 
programa em BASIC, ele precisa ser tra- 
tado como se fosse um cordão: 



10 PRINT"DECIMAL PARA BINÁRIO" 
20 PaiNT"DIGTTE NUMERO DECIMA 
L INTEIRO" 
30 INPUT D 
40 LET BS="" 

50 LET BS=STRS(D-INT(D/2)*2)+BS 

60 LET D=INT [D/2) 

70 IF DOO THEN GOTO 50 

80 PRINT"0 NUMERO BINÁRIO E" ; BS 

Quando for entrado um número de- 
cimal positivo, a linha 40 igualará BS a 
um cordão vazio ou nulo; este será en- 
tão progressivamente preenchido com 
dígitos obtidos pelo processamento nas 
linhas 50 a 80. 

Na verdade, a linha 50 é a que mon- 
ta o número binário. Ela subtrai duas 
vezes o valor inteiro da metade do va- 
lor decimal, a partir do próprio núme- 
ro decimal. Essa é uma maneira de tes- 
tar se o número é ímpar ou par. Se for 
impar, o resultado da operação será 1; 
se for par, o resultado será 0. Estes são, 
como você já sabe, os dois dígitos bi- 
nários. 

Esses dígitos são convertidos em um 
cordão mediante o emprego da função 
STRS: em seguida, eles são montados 
por intermédio da concatenação de ca- 
da novo dígito com o resto do cordão. 



finidos por AS. N deve ser um número 
ou uma variável numérica, enquanto AS 
deve ser uma variável alfanumérica, um 
caractere ou um cordão de caracteres en- 
tre aspas. Por exemplo, PRINT 
STRINGS (6, "*") imprimirá **«•**. 

Nos microcomputadores das linhas 
TRS-80 e TRS-Color a função STRINGS 
utiliza somente o primeiro caractere do 
cordão especificado, ignorando o resto. 
Por exemplo, STR1NG$(3,"XBC") impri- 
me XXX, apenas. 

Eis aqui dois programas (um para os 
modelos compatíveis com a linha TRS- 
Color e o outro para os da linha MSX) 
que utilizam STRINGS para imprimir 
uma borda decorativa na tela. Você po- 
de utilizá-los para abrilhantar a página- 
título de um jogo: 



DOM 



Os computadores 
TRS-80 e TRS-Colo 
contam com duas fun- 
ções adicionais de ma 
nipulação de cordões 
alfanuméricos: 
STRINGS e 
INSTR (estas 
não existem nos 
micros da linha 
Apple, TK-2000 
e Sinclair). O 
STRLNG$(N,AS) 
produz um cordão 
de N caracteres de- 



10 CLS0 

20 AS=CHRS(158)+STRINGS!J0.CHRS 
(156) )+CHRS (157) 

30 B$ = CHRSU54)+CHR5I174)+STRIN 
GS ( 2B , CHRS ( 172) ) +CHRS ( 1 7 3) +CHRS 
(149) 

40 CS=CHRS(154)+CHRS(171)+STRIN 
GS (28, CHRS (163) ) +CHRS ! 167) +CHR5 
(149) 

50 DS-CHRSU55)+STRINGS(30,CHP.5 
U47]) +CHRS (151) 

60 FS-CHBS(154)+CHRS(170)*STR1N 

GS(28, M "l+CHRSUeSJ+CHRSÍMS) 

70 PRINT AS; 

80 PRINT BS | 

90 FOR K-l TO 11 

100 PRINT FS; 

110 NEXT K 

120 PRINT CSi 

130 PRINT DS; 

140 PRINT §23 7, "OLA !": 

150 GOTO 150 
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10 CLS:COLOR 6,11 

20 A$-CHRS<219)+STRINGS(36,210) 

+CHBS (219) 

30 BS-CHRS(209)+CHHS(32)+STRING 

S(34,192)+CHRS(32)+CHRS(209> 

40 CS-CHHS(209)+CHBS(32)+STRING 

S ( 34 , 195) +CHRS ( 32 ) +CHRS (209) 

50 DS-CHRS(209)+CHRS(222)+STRIN 

GS (34,32) +CHRS( 221) +CHRS (209) 

70 PRINTAS 

BO PRINTBS 

90 FORK-1T018 

100 PRINTDS 

110 NEXT 

120 PRINTCS 

130 PRINTAS 

140 LOCATE 16,10:PRINT"OLA"; 
150 GOTO 150 

Os programas para o TRS-Color em- 
pregam diversos caracteres para impri- 
mir as bordas. Os blocos são impressos 
com esquema de duas cores — amare- 
lo/preto e azul/preto. Para se fazer uma 
borda simétrica, as cores são invertidas, 
de cima para baixo, e da esquerda para 
a direita. Cinco cordões são utilizados: 
AS e BS definem a parte superior da 
borda, FS os lados, e CS e DS a mar- 
gem inferior. A linha 150 impede que o 
sinal de prontidão OK perturbe o resul- 
tado fina! na tela. O programa para o 
MSX também utiliza caracteres gráficos 
para fazer as bordas. 



COMO PESQUISAR UM CORDÃO 



O comando INSTR examina o cor- 
dão, procurando pela primeira ocorrên- 
cia de um sub-cordão mais curto. As- 
sim, uma das aplicações mais comuns 
para o INSTR consiste em encontrar 
uma palavra dentro de uma sentença, ou 
uma letra dentro de uma palavra. 

Para usá-lo, especifica-se INSTR(AS, 
BS): isto significa que a função deve in- 
dicar a posição inicial do sub-cordão BS 
no cordão AS. Por exemplo, PRINT 
INSTRCALO", "L") exibirá o núme- 
ro 2. Se o computador não conseguir 
achar o cordão, ele retornará 0: 

10 AS="ALO" 
20 BS="W" 

30 PRINT INSTR(AS.BS) 

Em alguns micros é possível ainda es- 
pecificar um número que define a posi- 
ção no cordão maior, a partir da qual a 
função INSTR funcionará. Assim, em 
INSTR(P.AS,BS), essa posição é indi- 



cada por P. Essa forma de utilização é 
muito útil quando se deseja procurar 
ocorrências repetidas do mesmo sub- 
cordão no cordão principal. 

Suponhamos que se deseja encontrar 
todas as ocorrências da letra I na pala- 
vra INCONSTITUCIONAL. O primei- 
ro I está na posição 1. Para achar o se- 
gundo, entretanto, devemos usar o pa- 
râmetro P, de modo a começar a busca 
a partir de P = 1 + 1 (ou seja, P igual a 
2); portanto, 1NSTH(P,"INC0NST1- 
TUCIONAL","!*'). Para localizar a 
terceira ocorrência do I, o número P de- 
ve ser incrementado mais uma vez, e as- 
sim por diante, até que um resultado 0 
seja retornado pela função. 

Esse comando serve ainda para veri- 
ficar uma entrada feita pelo teclado. Se 
for preciso escolher uma opção em um 
menu, digitando a sua letra inicial, as al- 
ternativas poderão ser: 

10 PRINT "(I)MPRIMIR 0 TEXTO" 
20 PRINT "(G)RAVAR 0 TEXTO" 
30 PRINT " (C) ARREGAR NOVO 
TEXTO" 

40 PRINT " (E ) DITAR O TEXTO" 
50 PRINT "ESCOLHA UMA OPÇKO" 
60 INPUT AS 

O modo mais fácil de se verificar a 
validade de uma letra digitada pelo 
usuário consiste em acrescentar a linha 
a seguir: 



Isso elimina possíveis mensagens de 
erro, que "estragariam" a tela. 



PROCESSAMENTO DE PALAVRAS 



As funções alfanuméricas do BASIC 
têm um grande número de aplica- 
ções, especialmente no qi 
refere ao processamentc 
de palavras. Um aspec- 
to comum a progra- 
mas desse tipo é a 
possibilidade de 
substituir uma 
determinada 
palavra por 
outra (isso 
pode ser ne- 
cessário, por 
exemplo, 
quando apa- 
recer um erro 
de ortografia 
em todas as 



ocorrências de uma palavra). O INSTR 
é usado para localizar essas ocorrências. 
Se a nova palavra tiver um comprimen- 
to diferente daquela a ser substituída, 
será necessário movimentar o resto do 
texto para criar espaço, 



D 



10 LINEINPUT "DIGITE TEXTO: " ;T 
S 

20 LINEINPUT " PALAVRA A SER TRO 
CADA? ";WS 

30 LINEINPUT "NOVA PALAVRA? ";N 
US 

40 P-l 

50 PO-INSTR (P , TS.MS) 

60 IF PO-0 THEN GOTO 100 

70 TS-LEFTS (TS . PO-1) +NWS+RIGHTS 

(TS , LEN (TS) -PO-LEN (US)+1) 

80 P=PO+LEN(NWS) 

90 GOTO 50 

100 PRINT TS 

110 GOTO 20 



um 



10 INPUT "DIGITE UMA FRASE ";T 
$ 

15 T$ - CHRS (32) + TS + CHRS 
[32) 

20 INPUT "PALAVRA A SER SUBSTI 
TU IDA ";WS 

30 INPUT "NOVA PALAVRA ";NWS 

35 P - 0 

40 P - P + 1 

50 AS m MIDS (TS.P. LEN (WS)) 

60 IF AS < > WS THEN 90 

70 TS - LEFTS (TS.P - 1) + NWS 

+ RIGHTS (TS. LEN (TS) - V - 

LEN (WS) + 1) 
80 P - P + LEN (NWS) - 1 
90 IF P < LEN (TS) THEN 40 
100 PRINT TS 
110 GOTO 20 
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10 LINEINPUT"Di gi te 
";T$ 

20 LINEINPUT"Pal. 
titulda? ";WS 
30 LINEINPUT"Nova pala' 
S 

40 P-l 

50 PO-INSTR(P,TS.WS) 
60 IFPO-0THEN100 

70 TS-LEFTS ITS. PO-1 ) +NWS+RIGHTS 

(TS.LEN(TS)-P0-LEN(WS)>1) 

80 P-PO+LEN(NWS) 

90 GOTO50 

100 PHINTTS 

110 GOTOZO 

Comece entrando sentenças bem sim- 
ples e lente o procedimento de substitui- 
ção de algumas letras ou palavras. 
Quando esias forem curtas como "ou", 
"na",etc, será necessário digitá-las com 
um espaço antes e outro depois; caso 
contrário, toda ocorrência de "ou", 
"na", etc, dentro de outras palavras, 
(por exemplo, "ouro" e "banana") 
também será modificada. 

O programa funciona assim: a linha 
40 define o P para começar o processo 
de pesquisa no início do texto. As linhas 
50 e 60 encontram a primeira ocorrên- 
cia da palavra ou da letra que se 
substituir; em seguida, a linha 70 a subs- 
titui por uma nova palavra. Essa linha 
investiga o texto do início até a palavra 
a ser modificada, acrescenta a nova ex- 
pressão e concatena o restante do tex- 
to. O processo se repete até que todas 
as ocorrências da palavra tenham sido 
substituídas. A linha 100 imprime o re- 
sultado (os programas profissionais de 
processamento de palavras são, eviden- 
temente, mais complexos do qi 
exemplo). 



Illllllll 
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EMBIEIR PARi 
PECTRUM 



Um programa que calcula a dimensão dos 
saltos e faz a tradução dos 
códigos mnemónicos Assembly para o 
sistema hexadecimal: o que 
mais poderíamos desejar na vida? 



Montar um programa em linguagem R i-l to 8/j: head a$(i,j): nex 

de máquina calculando os códigos a Ti: NEXT j: FOR j-1 To 18: rea 

mão pode ser bastante cansativo, mes- D t(J),u9(j)t NEXT^j^ 

mo que se saiba de cor os códigos mne- ?? 6 S ihíT* I b ^'"í"-""fí'" e -hí'"""" 
mõnicos e seus equivalentes hexadeci- „',íc ..'. a Q '. l, ,1 * 

. ■ r pi' - j . j P . 235 , de , a , a£ . 227 , (ap) , 6 

mais e se esteja tamilianzado com todos 0742 , "0" .60758. "l", 60 766, "2" .23 

os modos de endereçamento. Com efei- 3 , " (hl ) " , 56809, " (ix) " ,65001 , " (1 

to, além de estar sujeito a erro, o traba- yj " , 10 , " <bc) " . 26 . " (de) " ,60767 , ' 

lho de tradução e de transferência do r",2,"(bc)",18," (de) ', 60751, "r" 
programa para o computador é sempre , 249, "sp" .60743 , "l" , 60759, " i" 

tedioso. A solução está em entregar es- 5070 def fn b(x,i)-iNT (x/b(i+l 

se trabalho ao próprio computador. í ' " INT (x/b( i+2) ) *2 

Nesta lição apresentamos um progra- 5080 def fn x (x, 1) -x-b (i+2) *FN 

ma Assembler para os micros compatí- í > íí~*' +b , 

veis com o Sinclair Spectrum (por exem- 5090 DEP W x-bd + 1) 

pio, oTK-WX)comumm]'nimode48K 5100 DEF FN e ( i S , J$ ) - (iS- jS ( TO 
de memória. Versões para outros com- L en (is) 1 ) 

putadores serão abordadas nas próxi- 5110 for 1-1 to 110: READ kS(i) 

mas lições desta série. O TK-2000 não ,k(l) ,m(i> : if NOT fn e ("*" ,kS t 

necessita de um programa desses, pois 1) ) then next 1 

já vemeom um míni-Assembler. Opro- 5120 DATA " ld" , 10 . 10 , "ld" , 26. 10 

grama apresentado aqui não funciona ,"ld",60767,10, - "ld",60759,10."l 

no Spectrum de 16K, nem nos modelos d" . 2-138, "ld". 18. 136, "ld", 60751 

pnmnalívpk mm n 7Y SI Flp p t lá pí . 1 38 , " 1 d " , 60 74 3 , 1 38 , " 1 d " , 64 . 6 , " 

compatíveis com o ZX-81. Ele esta es- 

ento em BASIC, o que o torna bem 139 , - ld" . 34, 195 , "ld" , 42 ,67 , "ld" 

mais lento que os Assemblers conven- ,60779, 197. "ld" . 60771 . 199, -ld- , 

cionais, elaborados em código de má- 97 , 165 , " ld" , 64, 54 

quina. O importante, porém, é que ele 5130 DATA "adc" , 136,50 , "adc" , 60 

não só funciona, como é capaz de mon- 746, 3 , "add" , 128 ,50, "add", 9,149. 

tar programas Assembly, publicados "and" , 160 ,48, "or" , 176,48, "xor" . 

por nós ou obtidos de outras fontes. Um 168.48, -nop" , o , o , "aub" , 144. 48, " 

programa longo levará um bom tempo sbe" , 152,50, "abe" , 60738, 3,'cp'. 

para ser montado. 184 ,4B, " j P " , 130 .45 , " j P " . 233 ,9. " 

jp-.56809,9."jp",65001,9,"jp",l 

_ 31,49, " jr", 96,45, " jr" .88,41 

5140 DATA "call-,132,45."call". 
141,41,-ref,201,0,"djnz",74,40 
,"dec".11.17."dec",5.16,"inc",3 
,17,"lnc",4,16,-push".197,17,"p 
op",193,17,"di",243,0,"ei",251. 

5000 DIM kS(110,4): DIM k(110): 0 . "hal t " . 118 . 0 . "ex" . 235 , 1 39 , "ex 

DIM m(110): LET hS-" 01 23456789 " , 8 . 15 , "ex" , 22 7 , 143 , "exx" , 217 , 0 

ABCDEF" : LET bS-"": LET gS-"012 5150 DATA "rat" , 199 , 132 , "rta" , 1 

3456789abcdef " 92 , 5 . "bit" , 52032 . 20 , "def b" . -256 

S010 DIM t$(110,24) : DIM r (100) , 40 , "cef" , 63 , 0 . "acf " , 55 , 0 . "cpl " 

: DIM z$(100,6): DIM z(100) . 47 . 0 . "cpd" . 60841 . 0 . "cpdr" . 6085 

5020 DIM b(9): LET b(l)-l: FOR 7 , 0 , "epi ", 60833 . 0 , "epi r" , 60849 , 

i-2 TO 9: LET b ( i ) -b < i -1) +b ( i-l 0 , "daa" . 39 , 0 . " im" . 60742 , 8 , " ím" , 

): NEXT 1 60758, B."im", 60766, 8 

5030 DIM rS(8.4.4): FOR- j-1 TO 5160 DATA " In" . 60736 , 1 30 , " in" , 1 

4: FOR 1-1 TO 8: READ r$(i,j): 49 , 42 ," ind" , 60848 , 0 ," indr" , 6081 

NEXT 1: NEXT j 0 , 0 ," ini ", 60840 , 0 ldd" , 60840 , 0 
5040 DATA " 0" , " 1" , " 2" , " 3" , "4" , " lddr" , 60856 , 0 ," Idi ", 60832 . 0 , " 

5","6","7","nz","z"."nc","c","p ldir" , 60848, 0 , "neg" , 60 740, 0 , "ot 

o-."pe","c"."n","0","8"."16","2 dr ", 60859 , 0 . "ot ir" , 60851 , 0 , "out 

4" ,"32", "40" . "48", "56" , "hl", "IX " . 60737 , 2 . "out ' , 141 , 1 70 . "outd" , 

"."iy","bc","de","hl"."sp*," " 60843 . 0 , "out i " ,60835 , 0 

■5050 DIM aS(8.2,4): DIM t<18): 5170 DATA "rea" , 52096 . 20 , "reti " 

I DIM USU8.10): FOR j-1 TO 2: FO , 60749, 0 , "retn" , 60741 , 0 . "ri ". 51 




984, 64, "ria", 23, 0,-rlc", 51968,1 
6, "rica", 7.0, "rld". 60783, 0, "rr" 
,51992, 64, "rra", 31, 0,"rrc", 5197 
6,16,"rrca",15,0.-rrd-,60775.0 
5180 DATA "set". 52160, 20, "ala". 
52000. 16. "ara", 52006, 16, "arl", 5 
2024,16, "defw" ,-256,41 
5190 DATA """,0,0: LET ii-i: LE 
T M110)-ii 

5200 LET b-0: LET ba-PEEK 23635 
+256*PEEK 23636+4: LET n-1 
5210 LET cc-1: IF PEEK ba<>234 
THEN LET n-n-1 : GOTO 5250 
5220 LET cc-cc+1: LET ba-ba+1 : 
IF PEEK ba-13 THEN LET ba-ba+5 
: LET n-n+1: GOTO 5210 
5230 LET tS(n,cc)-CHRS PEEK ba 
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tradução de assembly para 
código de máquina 
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RESERVE ESPAÇO PARA DADOS 
E VARIÁVEIS 


■ 


como calcular saltos 


■ 


COMO COLOCAR OS CÓDIGOS 




E DESVIOS 




NA MEMÓRIA USANDO POKE 


■ 


0 USO DE RÓTULOS 


■ 


TESTE 0 PROGRAMA 




5240 GOTO 5220 

5250 FOR g-1 TO 100: LET r(g)-g 

-1: NEXT g: LET fh-100 

5300 LET kO-0: LET k9-99: LET p 

0-0: LET W-0 

5310 LET k-kO: LET p-pO 

5320 GOSUB 6000 

S330 GOSUB 7000: LET oS"ÍS: IF 
oS(l>-"*" THEN PRINT 0$;: GOTO 
5320 

5340 IF o$-"end" THEN PRINT '■ 

endereco final ";p-l 
5350 IF o$-"end" THEN LET pO-p 
: GOTO 9999 

5370 IF oS<>"org" THEN GOTO 54 
00 

5380 GOSUB 7000: LET 3-0: IF i$ 



(1)--*- THEN LET a-p : LET lS-l 

S(2 TO ) 

5390 LET p-VAL iS+3: PRINT '" 

org " ;p; : GOTO 5320 
5400 IF p-0 THEN PRINT "(falta 

org) " : LET p-50000 
5410 LET PS-OS+"!": FOR 1-1+16" 
(oSO-ld") TO 110: IF oS<-kSU) 

AND pS>kS(l) THEN GOTO 5500 
5420 NEXT 1 : PRINT oS 
5430 IF iSd)-"." THEN LET i$- 
tS(2 TO ) 

5440 GOSUB 9000: LET gg-r(g) 
5450 IF ggOlOO THEN LET s-SGN 
z(gg): LET b-INT <ABS z(gg)/65 
536): LET r-ABS z (gg) -b*65536 : 
LET g-PEEK r+256*PEEK (r+1) : PO 



KE r.FN j(p*a+q,8): PRINT " POK 
E ";r:" com " : FN j(P*s+q,8); IF 
b THEN POKE (r+l).FN 3 ( {p«3+q 
)/256,B): PRINT " POKE ":r+l;" 
com "sfN M(p*g+<J)/256,8) 
5460 IF gg<-100 THEN LET gh-r ( 
gg) : LET r(gg)-fh: LET fh-gg: L 
ET gg-gh: GOTO 5450 
5470 IF iS-"" THEN LET r(g)-p+ 
100: GOTO 5330 

5480 PRINT " (Linha nao foi rec 
onhecida) " 
5490 GOTO 5420 

5500 LET Z-0: LET r-0: LET e-0: 

PRINT " "iOS; 
5510 LET op-k(i): IF B(l)-0 THE | 
N GOTO 6090 
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5520 GOSUB 7000: LET aS-iS: PRI 
NT " ":*9i 

5530 LET m-m(l) : LET op-k(i): L 

ET b-FN btm.O): LET b?-b+2*FN b 

(m.7)+l: LET z-0 : IF FN j<m,3)< 

2 THEN LET cS-aS : GOTO 5720 

5540 FOR J-l TO LEN aS : IF aS(J 

)-"." THEN GOTO 5580 

5550 NEXT j : IF oS-"rat" OR o$- 

■rts" THEN GOTO 5580 

5560 IF FN e(o$.k$(l+U) THEN 

LET i-i+l : GOTO 5530 

5570 PRI NT " (deve haver doia o 

perandoa) " : GOTO 5320 

5580 LET bS-aS( TO j-1) : LET CS 

-aS(j+l TO ) 

5590 IF FN b(m.2) THEN GOTO 56 
50 

5600 IF FN b(m,7) THEN LET dS- 
cS: LET cS-bS: LET bS-dS 
5610 IF b$-*ahl"(b+l TO b+b+1) 
THEN GOTO 5720 

5620 IF bS-*ÍO" AND (oS-"ín" O 
B oS""0Ut") THEN GOTO 5720 
5630 IF (FN e(oS,kS(i+l) ) ) AND 
(FN j (m(i+l> . 3J>-2) THEN LET i 
-1+1: GOTO 5530 

5640 PRINT "(primeiro operando 
deve aer a ou hl)": GOTO S320 
5650 IF FN b(m,l) THEN GOTO 56 
90 

5660 LET eS-(bS+" ") ( TO 4) : 
FOR j-1 TO 8: IF e$-r$<J.b7) TH 
EN LET 0P-op+8*{j-l)*[b7<4]+16 
*(j-6)*(b7-4)*(j>3) : LET z-<j-l 
)*(b7-4)*(j<-3) : GOTO 5710 
5670 NEXT j: IF pS>k8(l+l) AND 
(FN j(m(i+l) ,3)>-2) THEN LET i 
-1+1: GOTO 5530 

5680 PRINT "(primeiro operando 
deve aer bit ou sinalizador)": 
GOTO 5320 

5690 IF FN b(m,7) THEN LET d$- 
c3: LET CS-bS : LET bS-dS : GOTO 
5660 

5700 LET x-8; GOSUB 5750: IF e 
THEN GOTO 5730 
5710 IF c$-"" THEN GOTO 6090 
5720 LET x-l+15*b+7*(op<-6 AND 
op>-4 OR bS-"(c)"): LET bS-cS : 
GOSUB 5750: IF NOT e THEN GOTO 
6090 

5730 IF e-2 OR pS>kS(i+l) AND F 
N j [md + lí . 3)-FN j(FN X(m,0).3) 

THEN LET e-0 : LET 1-1+1: GOTO 

5530 
5740 GOTO 5320 

5750 LET r-0: IF FN Mm, 4) AND 
FN eí" (" ( TO NOT b) ,bS) THEN L 
ET z 2-FN e("ix".b5(2-b TO )+" " 
)+2*FN e("iy".bS(2-b TO )+" "): 
IF z2 THEN LET Z-z2 : LET eS-b 
S( TO LEN bS-NOT b) : LET b$-" (h 
l)"(l+b TO 4-b} : LET f$-"0"+eS( 
4-b TO ) 

5760 IF FN b(oi.3) THEN GOTO 57 

90 

5770 LET eS-(bS+" ")( TO 4): 
FOR j-1 TO 8/(b+l): IF eS-s$!j. 
b+1) THEN LET op-op+ ( j- 1 ) *X : R 
ETURN 
j 5780 GOTO 5810 
5790 LET 32-9+9* IO$-"ld") : FOR 




:-j2-8 TO j2: IF kli)Ot(j) THE 
N GOTO 5810 

5800 IF FN e(bS.uS{3)) THEN RE 
TURN 

5810 NEXT j: IF bS-"af" THEN I 
F FN e("P",oS) THEN LET op-op+ 
48: RE TURN 

5820 IF FN b(m,6l AND FN e("(". 
bS) THEN LET bS-bS (2 TO LEN bS 
-1) : GOTO 5860 

5830 IF FN b(m.5) THEN LET op- 
FN x(op+6*N0T b,6): GOTO 5860 
5640 IF pS>k$(i+l) THEN LET e- 
2: RETURN 

5850 PRINT "(operando incompati 
vel)": LET e-1: RETURN 
5860 LET r-65536 
5870 LET s-1 

5880 IF bS-"" THEN GOTO 6080 
5890 LET xS-bS(l): LET dS-bS<2 
TO ) : IF xS-"*" THEN LET r-r+P 
*a: LET bS-dS: GOTO 5870 
5900 IF XS-"+" THEN LET bS-dS : 

GOTO 5880 
5910 IF xS-"-' THEN LET bS-dS : 

LET a--a: GO' ) 5880 
5920 IF xS-""" THEN LET r-r+CO 
DE d$*s: LET bS-d$(2 TO ): GOTO 

5870 

5930 LET q-0: IF x$<>"t" OR dS< 
"0" OR dS>"2" THEN GOTO 5960 
5940 IF dS>-"0" AND d$<"2" THEN 
LET q-q*2+CODE dS-48 : LET d$- 



dS (2 TO ) : GOTO 5940 

5950 LET r-r+q*a: LET bS-dS: GO 

TO 5870 

5960 IF x$<>"S" OR dS<"0" OR dS 
>="g" THEN GOTO 6000 
5970 LET xS-CHRS CODE dS: FOH g 
-0 TO 15: IF XS<>hS(g+D AND xS 
OgS(0+l) THEN GOTO 5990 
5980 LET q-q*16+g: LET dS"dS(2 
TO ) : GOTO 5970 

5990 NEXT g: LET r-r+q«3 : LET b 
S-d$: GOTO 5870 
6000 IF xS<"a" OR xS>"z" THEN 
GOTO 6040 

6010 LET lS-bS: GOSUB 9000: IF 
1$<>"" THEN GOSUB 9400 
6020 IF r(g)O23000 AND r(g)>10 
0 THEN LET r-r+ (r (g) -100) *a : L 
ET bS-iS: GOTO 5870 
6030 IF r(g)-23000 OR r (g)<-100 
THEN LET gh-r (f h) : LET r(fh)- 
r(g): LET r{g)-fh: LET fh-gh: L 
ET z (r (g) ) - (p+SGN 0P+(ABS op>25 
5)+2- (z>0)+65536* ( (b OR FN b(m, 
61) AND oSO"jr"))*a: LET bS-lS 
: GOTO 5870 

6040 IF xS<"0" OR X$>"9" THEN 
LET r-0: GOTO 6070 
6050 IF bS>-"0" AND b$<":" THEN 
LET q-q*10+CODE bS"48: LET bS 
-bS (2 TO ) : GOTO 6050 
6060 LET r-r+a*q: GOTO 5870 
6070 PRINT "(endereçamento inco 
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rretol " 

6080 LEI r-r-(p+2)«(oS-"djnz" O 
R o$-" jr") : RETURN 
6090 PRINT TAB 16;: LET byp/25 
6: GOSUB 6190: LET by-p: GOSUB 
6190: GOSUB 6160 

6100 IF z THEN LET by=189+z*32 
: GOSUB 6180: GOSUB 6160 
6110 IF op>-0 THEN LET by-OP/2 
S6: GOSUB 6170: GOSUB 6150: LET 

by«Op: GOSUB 6180 
6120 IF r-0 THEN GOTO 5320 
6130 GOSUB 6160: LET by-r : GOSU 
B 6180: IF (b OH FN b(m,6)) AND 

oSO"jr" THEN LET by-r/256: G 
OSUB 6180 
6140 GOTO 5320 

6150 IF z AND INT by AND NOT b 
THEN GOSUB 6260: LET by-VAL fS 
: GOSUB 6180: LET z-0 
6160 PRINT " " ; : RETURN 
6170 IF INT by<-0 THEN RETURN 
6180 LET by-FN j(by.8): POKE p. 

by: LET P-P+1 

6190 LET by-FN j(by,8): PRINT h 
S(1+INT (by/16) ) :hS(FN j(by.4)+ 
1) ; 

6200 RETURN 
7000 IF k>n THEN 
RETURN 

7010 LET kl-k9+l: IF k9>-LEN tS 
(k) THEN LET l$-"/fal t ando/" : 
RETURN 



LET iS-"end" 



7020 LET k9-kl: IF tSlk.kl)-" " 

THEN GOTO 7010 
7030 IF k9>LEN tS(k) THEN LET 
lS-tS(k)(kl TO ): RETURN 
7040 IF tS<k.k9)<>" " THEN LET 

k9-k9+l: GOTO 7030 
7050 LET iS-tS(k)(kl TO k9-l) : 
RETURN 

8000 IF k>0 THEN IF tS(k)(k9 T 
O )>tS(99) THEN PRINT tS<k)(k9 
TO ) : 

8010 POKE 23692,0: LET k-k+1 : L 
ET k9-0 

8020 PRINT : RETURN 
9000 LET xS-"* 

9010 IF lS<"a" OR lS>"z" THEN 
GOTO 9030 

9020 LET xS-xS+iS{l): LET ÍS-iS 

(2 TO ) : GOTO 9010 

9030 IF i$<>"" THEN RETURN 

9400 FOR g-1 TO w: IF FN e(xS. 

Z$ (g) ) THEN RETURN 

9410 NEXT g: LET vv-vv+1 : LET z 

$<vv)-x$: LET g-vv: LET r(g)-23 

000 

9420 RETURN 



COMO FUNCIONA 0 PROGRAMA 



Começando na linha 5000, o progra- 
ma deixa espaço para seu programa em 
Assembly, que deve ser colocado em li- 
nhas RI M Cada instrução deve ser es- 
criia com leiras minúsculas e posiciona- 
da em uma linha RKM separada. 

Ames de montar o programa, deve- 
mos proteger uma área dc memória pa- 
ra que o Assembler possa colocar os có- 
digos, usando CLEAR. A primeira li- 
nha de seu programa deve ser mais ou 
menos assim: 

10 REM org 55000 

32000 é o endereço inicial do progra- 
ma em código. Obviamente, ele deve es- 
tar na área protegida da memória. 

Se esquecermos de definir org, ou se- 
ja, a origem, o Assembler colocará o pro- 
grama a partir de 50000. 

O programa aceita os códigos mne- 
mônicos-padrào do chip Zilog Z-80, 
com exceção dos comandos de retorno 
condicional. Entretanto, o comando de 
retorno incondicional de sub-rotinas, 
cujo mnemónico é rei, funciona em nos- 
so Assembler. 

Algumas vezes, coniudo, utilizamos 
retornos condicionais, como ret nz, que 
significa: "retorne se não for zero". 
Neste programa, porém, digite a instru- 
ção ris nz. A razão disso é que rts deve 
substituir rei sempre que forem neces- 
sários retornos condicionais. Quando se 
tratar de retornoincondicional, ou seja, 
quando rei não for seguido de nenhu- 
ma leira, use o mnemónico padrão rei. 

Números hexadecimais devem ser 




O que acontecerá se houver um erro 
em meu programa fonte? 

Nosso Assembler é capaz de emitir 
mensagens de erro, pois a sua estru 
tura de programação está preparada 
para detectar falhas no programa i 
Assembly. Alguns comandos, por 
exempla, só trabalham com os regis- 
trosaehl, Se tentarmos usá-los com 
outros registros, o Assembler dirá: 
"Primeiro operando deve ser a ou hl " 

Se um comando não for reconheci- 
do devido a um erro de digitação, se- 
remos automaticamente informados: 
"Linha não foi reconhecida" A expres- 
são "Deve haver dois operandos" sig- 
nifica que deixamos de digitar um nú- 
mero vital após o comando, "Operan- 
do incompatível" indica um uso inade- 
quado do comando. "Primeiro operan- 
do deve ser bit ou sinalizador" signifi- 
ca que um operando inadequado foi 
usado em um comando de desvio ou de 
atribuição de bits. 



Existe uma maneira de se programar 
em Assembler nos ZX-81? 

Existe; mas o meio para isso não é 
um programa montador desenvolvido 
em BASIC, como os que serão apresen- 
tados mais adiante para as linhas MSX , 
Apple II, TRS-80 e TRS-Color, 

Montadores em BASIC para o 
ZX-81 (com seus similares nacionais 
TK-85, CP-200, etc.) são inviáveis por- 
que o programa resultante seria muito 
grande e de difícil digitação e operação: 
na verdade, ele não caberia na memó- 
ria da maioria dos micros dessa linha: 
além disso, o processo de tradução e 
montagem desse programa seria extre- 
mamente lento. 

Para comprovar isso, observe a lis- 
tagem para o ZX Spectrum que acom- 
panha este artigo: é a inexistência de 
declarações READ e DATA no ZX-81, 
o que dificulta a programação. 

Seria possível programar um As- 
sembler reduzido, sem rótulos alfabé- 
ticos, e com um conjunto menor de co- 
mandos. Mas isso o tornaria inútil pa 
ra quem quer aprender a programar se- 
riamente, e impossibilitaria 0 usuário de 
digitar e testar os programas em códi 
go Assembler que aparecerão em lições 
futuras. Por isso, quem quiser progra- 
mar em Assembler no ZX-8' , deve re- 
correr a um programa tradutor compac- 
to, eficiente e rápido, escrito em códi- 
go de máquina e disponível comer- 



precedidos do caractere $; números bi- 
nários, do caractere Qualquer núme- 
ro que não seja precedido de algum ca- 
ractere será interpretado como decimal 
Qualquer palavra que não seja um co 
mando Assembly será considerada ci 
mo um rótulo (label). Evite usar pai; 
vras parecidas ou muito longas; núme- 
ros não são permitidos. 

Para que o Assembler saiba onde pa- 
rar, termine seu programa com REM 
end. 

Uma vez colocado o programa As- 
sembly a ser montado (o programa fon- 
te) nas linhas REM iniciais, basta rodar 
o Assembler para se obter uma listagem 
dos códigos equivalentes na tela: o pro- 
grama objeio. O Assembler coloca o 
programa objeto simultaneamente na 
memória e na tela. 

Se a esta altura For cometido algum 
erro na digitação das linhas, será sufi- 
ciente, para corrigi-lo, listar o Assem- 
bler, editar a linha REM corresponden- 
te e usar novamente RUN. 

Montado o programa, o endereço fi- 
nal da rotina em código de máquina 
aparecerá na tela. 

Para executar o programa em códi- 
go usamos instruções do tipo RAN- 
DOM USR. 

Se quisermos gravar o programa ob- 
jeto, devemos digitar: 

SAVE "nome" CODE endereço inicial, 
número de bytes. 




COMO DETECTAR ERROS EM 
PROGRAMAS LONGOS 

Sempre que a mensagem "OUT OF 
DATA" aparecer na tela, verifique se 
está faltando alguma coisa nas linhas 
DATA (lembra -se de que a ausência de 
uma simples vírgula pode deitar a per- 
der todo o programai. Um dos erros 
mais comuns na digitação de longos 
programas consiste justamente na 
omissão de trechos de linhas DATA. 
Por isso, caso seu Assembler não fun- 
cione ao ser rodado pela primeira vez, 
não se desespere: ele certamente "em- 
pacou" devido a erros de digitação. 

Esses errros podem ser detectados 
por meio de um programa de rastrea- 
mento. que escreve na tela o número 
da linha BASIC que está sendo execu- 
lada. Um programa de rastreamento 
completo será apresentado mais 




01 Fft ^ 
CD CEH 



"Nome" é o nome do programa ob- 
jeto e deve estar entre aspas. CODE in- 
forma ao computador que está sendo 
gravado um programa em código de má- 
quina e não em BASIC. O endereço ini- 
cial é a origem do programa na memó- 
ria. Podemos calcular o número de bytes 
subtraindo a origem do endereço final 
e somando 1. 

O Assembler e o programa fonte po- 
dem ser gravados juntos, como um pro- 
grama BASIC, usando-se SAVE da ma- 
neira habitual. 



Para testar seu programa, entre o 
programa de deslocamento horizontal 
da tela para a direita, que se encontra 
na página 215. Uma vez traduzido para 
código, esse programa ficará assim: 
11 FF 57 21 FE 57 06 CO C5 IA 
01 1F 00 ED B8 12 2B 1B Cl 10 
F3 C9 



Note que devemos usar letras minús- 
culas para digitar o programa fonte. 
Nosso Assembler não reconhece coman- 
dos em maiúsculas. 



Não apresentaremos um Assembler 
para o ZX-81 , pois é muito difícil escre- 
ver um programa desse tipo em BASIC 
para esse micro. Se você tem um ZX-81 
e está interessado em código de máqui- 
na, sugerimos a compra de um Assem- 
bler gravado em fita cassete e disponí- 
vel em lojas especializadas. 

Caso já disponha de algum, teste o 
programa de deslocamento da tela para 
a direita apresentado na página 217 
que, uma vez traduzido para código de 
máquina, ficará assim: 

2A OC 40 11 16 03 19 54 5D 13 
06 16 C5 IA 01 1F 00 ED 88 12 
2B 1B 1B Cl 10 Fl C9 
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PARA QUE APRENDER 


DATILOGRAFIA? 


■ 


AS TECLAS DE APOIO 


■ 


MELHORE A VELOCIDADE EA 



PRECISÃO NA DATILOGRAFIA 



Aspiração de todo programador que 
se preza, a eficiência no 
processamento de textos e na digitação 
de programas tem um pré-requisito 
fundamental: saber datilografia. 



O futuro nos reserva, certamente, 
muitas surpresas no campo das relações 
entre o homem e a máquina. Uma de- 
las pode ser a abertura de novos canais 
de comunicação entre o computador e 
o usuário — como, por exemplo, a voz 
humana. Atualmente, alguns desses sis- 
temas de controle mais sofisticados já 
vêm sendo aplicados em máquinas in- 
dustriais e comerciais a um preço rela- 
tivamente baixo. A maioria dos usuá- 
rios, porém, vai ter que esperar muito 
tempo até ter acesso a essas inovações. 
Enquanto isso, o velho teclado conti- 
nuará a ser o dispositivo básico de en- 
trada de um computador. 

Na verdade, o teclado é um instru- 
mento de eficiência razoável para se 
transmitir instruções ao computador. 



Sua utilização, no entanto, consome 
muito tempo, especialmente quando o 
operador não é um exímio datilógrafo. 
Essa perda de tempo é visível quando 
tentamos copiar uma listagem e somos 
obrigados a olhar do teclado para a te- 
la e desla para o papel, só para nos as- 
segurarmos de que os dados estão sen- 
do introduzidos corretamente. 

Assim, por que não utilizar o com- 
putador no aprimoramento do modo de 
datilografar? Fazendo isso, você econo- 
mizará tempo c evitará dores de cabe- 
ça, quando quiser escrever programas 
ou explorar o potenciai de um compu- 
tador como processador de textos. O 
programa que se segue ajudará a se fa- 
miliarizar com o teclado e aumentar a 
velocidade e a precisão na datilografia. 

O Sinclair Spectrum apresenta a des- 
vantagem de ter um teclado de difícil 
manipulação e grande velocidade. A in- 
trodução de programas, contudo, exige 
apenas um toque de tecla para cada co- 
mando em BASIC. Note que não esta- 
mos apresentando uma versão do pro- 
grama para o Sinclair ZX-8 1 . Isso se de- 
ve ao fato de que sua execução se tor- 



naria muito lenta, perdendo eficácia co- 
mo forma de treinamento. 



Do mesmo modo que qualquer cur- 
so padrão de datilografia, nosso progra- 
ma tem por objetivo desenvolver meto- 
dicamente a destreza do iniciante. Esse 
programa, no entanto, não é nenhum 
processo mágico e, como qualquer ou- 
tra coisa que se queira aprender, exige 
dedicação. 

Para efeitos didáticos, ele foi dividi- 
do em etapas mais ou menos fáceis, com 
seções extras de programação acrescen- 
tadas a cada uma das fases. Dessa ma- 
neira, é possível avançar através de mís- 
seis cada vez mais difíceis. Outra virtu- 
de de nosso curso consiste em apresen- 
tar, ao longo de seu desenvolvimento, 
uma atualização constante da velocida- 
de e da precisão atingidas pelo iniciante. 

Se você é usuário de um Apple II, fi- 
cará sem o recurso de cronometragem, 
devido à falta de um "clock" acessível 
nesse micro. Talvez a cronometragem 
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manual o auxilie, nos níveis 4 e 5, a con- 
trolar seus progressos na datílografia. 



CONHEÇA AS TECLAS DE APOIO 



Ser um exímio datilógrafo significa 
ser capaz de pressionar as teclas corre- 
las sem precisar olhar para elas sempre 
que se quer localizá-las. Evidentemen- 
te, isso só poderá ser feito quando se sa- 
be previamente onde se encontram as le- 
tras no teclado. É preciso, portanto, 
"educar" os dedos para que eles encon- 
trem automaticamente as teclas deseja- 
das. O primeiro passo para isso consis- 
te em posicionar os dedos sempre na 
mesma posição sobre o teclado. Datiló- 
grafos profissionais fazem isso assegu- 
rando-se de que os dedos das duas mãos 
repousem sempre sobre as mesmas te- 
clas, as denominadas teclas de apoio. 
Estas são as teclas da fileira do meio do 



teclado, começando pelas letras A, S, D, 
F... Portanto, estas serão as teclas que 
devemos memorizar em primeiro lugar. 

Uma vez dominada a localização des- 
sas teclas básicas, o restante do teclado 
pode ser alcançado movendo-se cada de- 
do para cima ou para baixo. 

Para obter o máximo rendimento no 
curso será preciso ater-se a essa dispo- 
sição, sem nunca tentar "enganar" o 
computador. Por outro lado, os que in- 
sistem em continuar "catando milho" 
devem também procurar obter um gra- 
dativo aprimoramento de sua destreza. 

Ao introduzirmos o programa — ta- 
refa que deverá tornar-se cada vez mais 
fácil á medida que o curso prosseguir — 
devemos ficar com as mãos pousadas 
sobre o teclado, aguardando as instru- 
ções que aparecerem na tela e que serão 
explicadas a seguir. 

O dedo mínimo da mão esquerda de- 
ve repousar sobre a tecla A, o anular so- 



bre o S, assim por diante, terminando 
com o dedo indicador sobre a tecla F. 
O indicador direito, por sua vez, deve 
estar na tecla J, o dedo médio na tecla 
K, e assim por diante. Os polegares tex- 
ceto no caso do Spectrum) devem 
posicionar-se sobre a barra de espace- 
jamento. As letras G e H, portanto, não 
são cobertas por nenhum dedo. Quan- 
do é necessário acioná-las, o C pode ser 
alcançado com o dedo indicador esquer- 
do, e o H com o indicador direito. 

Parece complicado, mas não se preo- 
cupe: a primeira parte do programa se 
destina justamente a familiarizá-lo com 
as letras do teclado. 



COMO FUNCIONA 0 PROGRAMA 



Ao se executar o programa, a tela 
mostrará cinco opções, que correspon- 
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dem a níveis de dificuldade crescente. 
Você deve escolher uma entre elas. Se 
você está começando a aprender, preci- 
sa estudar primeiro a lição 1 para, só de- 
pois de dominar seu conteúdo, passar 
para a lição 2, e assim por diante. 



dor de cada mão), voltando-se às teclas 
de apoio logo em seguida. Utilize o de- 
do mínimo direito para as teclas ; e Ç. 

O asterisco continuará no mesmo lu- 
gar, caso seja cometido algum engano. 
Uma tecla batida corretamente será 
anunciada por um bip. e por um som 
grave se houver um erro ou se uma le- 
tra for omitida. (No Apple ocorrerá o 
oposto.) 

Ao fim de cada exercício, a tecla 
mostrará o tempo gasto e o número de 
erros cometidos. 



NÍVEL 3 

Este nível também apresenta letras 
aleatoriamente, uma por vez. Agora, 
porém, a tela não indicará sua posição 
no teclado. Em vez disso, elas serão 
mostradas individualmente no centro da 
tela. Mais uma vez, as letras serão em 
número de vinte. 



ninei -i 



Finalmente, pode-se datilografar al- 
gumas palavras. As expressões deste 




NÍVEL I 

A tela apresentará as teclas de apoio 
em uma linha, na mesma ordem em que 
estão no teclado. Ao mesmo tempo, se- 
rá mostrado um asterisco que, 
deslocando-se acima das letras, percor- 
rerá o teclado do A até o L no Spectrum 
e no CP400, até o ; (ponto e vírgula) no 
Apple, até o Ç no MSX. Para se acio- 
nar as teclas, deve-se tocá-las na sequên- 
cia indicada pelo asterisco e com o de- 
do correto (lembre de que o G e o H exi- 
gem um deslocamento do dedo indica- 



NIVEL 2 

Uma vez familiarizado com a posição 
das letras no teclado, você pode passar 
para este nível, que é semelhante ao pri- 
meiro, exceto que agora o asterisco se 
deslocará aleatoriamente sobre as letras 
(não vale trapacear olhando a posição 
da letra do teclado). Novamente, o tem- 
po que se levar para completar o exer- 
cício (serão apresentadas vinte letras 
aleatoriamente) e o número de erros co- 
metidos serão apresentados no final. 



exercício utilizam apenas as letras das te- 
clas de apoio: FADA, por exemplo. Ao 
contrário do nível anterior, serão apre- 
sentadas no centro da tela vinte palavras 
(e não letras) aleatoriamente e em suces- 
são, isto é, uma após a outra. À medi- 
da que as palavras forem sendo copia- 
das, um asterisco indicará cada uma de 
suas letras. E, mais uma vez, será apre- 
sentado o resultado do tempo gasto e da 
precisão. Não se deve trapacear olhan- 
do para o teclado; senão, não será pos- 
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sível compleiar os testes mais difíceis, 
apresentados nas próximas lições. 

NÍVEL 5 

Desta vez será escrita uma sentença 
com cerca de seis palavras aleatórias. Ã 
medida que estas forem sendo digitadas, 
as letras aparecerão uma após a oulra. 
Quando a linha toda tiver sido datilo- 
grafada, será mostrado o desempenho 
do datilógrafo, assim como um valor 
correspondente à velocidade em lermos 
de palavra por minuto. Ao se digitar as 
palavras que surgirem na tela, não se de- 
ve esquecer dos espaços em branco en- 
tre elas; esse espaço é obtido quando se 
toca na barra de espacej amento com um 
dos polegares. No Spectrum será preci- 
so pressionar com o dedo mínimo a bar- 
ra de espaços, situada numa posição um 
tanto incómoda. 

Deve-se exercitar cada um dos níveis, 



até que se torne fácil execuiá-los. Nos 
próximos capítulos acrescentaremos le- 
tras e palavras novas. 



10 BORDER 1: PAPER 1: INK 7: 
CLS 

20 POKE 23658,8: LET ER-0 

30 LET SS" "ASDFGHJKL" 
100 PRINT INVERSE 1 ;AT 8,3;" 
PROFESSOR DE DATI LOGRAFIA " 
110 PRINT ' ' TAB 6; "SELECIONE N 
IVEL (1 A 5)" 

120 IF INKEYS-" " THEN GOTO 
120 

130 LET AS-INKEYS: IF AS<"1" 

OR AS>"5" THEN GOTO 120 

140 SOUND .2.10 

150 GOSUB VAL ASMOO + 100 

160 GOTO 20 

200 GOSUB 1000 

210 FOR K-7 TO 23 STEP 2 

220 PRINT AT 10 , K ; " *" 

230 LET RS-SS((K-5)/2) 



240 GOSUB 1100 

250 IF C-0 THEN GOTO 240 

260 PRINT AT 10, K;" " 

270 NEXT K 

280 CLS : GOTO 1300 

300 GOSUB 1000 

310 FOR K-l TO 20 

320 LET RN-INT (RND"9)"2+1 

330 PRINT AT 10 . RN+6 ; " *" : LET 

RS-SS( (BN+1) /2) 

340 GOSUB 1100: IF C-0 THEN 

GOTO 340 

350 PRINT AT 10. RN+6;" " 

360 NEXT K 

370 CLS : GOTO 1300 

400 CLS i PRINT "DIGITE A LETR 

A INDICADA NA TELA" 

410 FOR N-l TO 100: NEXT N 

420 POKE 23672.0: POKE 23673,0 

430 FOR K-l TO 20 

440 LET RN-INT (RND*9)+1 

450 PRINT AT 11,16;SS(RN] 

460 LET RS-SS(RN) 

470 GOSUB 1100: IF C=0 THEN 

GOTO 470 

480 PRINT INVERSE 1;AT 11.16; 

" " : NEXT K 

490 CLS : GOTO 1300 



(6* 



0*> 
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500 CLS : PHINT "DIGITE A PALA 
VRA INDICADA": POKE 23672,0: 
POKE 23673.0 

510 LET TL-0: FOR N-l TO 20; 
RESTORE : LET RN-INT (RND*24)+ 
1 

520 FOR K-l TO RN; READ TS : 
NEXT K 

530 PRINT AT 10. 13; " " ; 

PRINT AT 10,13;TS 
540 FOR M-l TO LEN TS : PHINT 
AT 9,11+Hi* * 

550 LET RS-TS(M): GOSUB 1100 
560 IF C-0 THEN GOTO 550 

570 NEXT M 

580 LET TL-TL+LEN TS i NEXT N 
590 CLS : PRINT AT I8,0:"PALAV 
BAS POR MINUTO- " ; INT <TL*500/ 
(PEEK 23672+256*PEEK 23673)+. 5 
) ; GOTO 1300 

600 CLS ; PRINT "DIGITE AS PAL 
AURAS INDICADAS" : LET TS"" " 
610 FOR N-l TO 6; RESTORE : 
LET RN-INT (RND*24)+1: FOR K-l 
TO RN; READ XS : NEXT K 
620 LET TS-TS+XS+" " 
630 NEXT N: LET TS-TS ( TO LEN 
TS-1) 

640 POKE 23672.0: POKE 23673.0 
: PRINT AT IO.OíTS 
650 PRINT AT 12,0;; FOR M-l TO 
LEN TS 

660 LET RS-TS(M); GOSUB 1100 
670 IF C-0 THEN GOTO 660 
660 PRINT TS CM} ; : NEXT M 
690 LET TL-LEN TS; GOTO 590 
1000 CLS : PRINT "PRESSIONE A T 
ECLA INDICADA PELO ASTERISCO" 
1010 PRINT AT 12.7;'A S D F G H 
J K L" 

1020 FOR K-l TO 100: NEXT K: PO 
KE 23672.0: POKE 23673.0 
1030 RETURN 
1100 PAUSE 0 

1110 LET AS-INKEYS: IF ASORS T 
HEN SOUND .2.-10: LET ER-ER+1 : 

LET C-0: RETURN 
1120 SOUND .05.20: 
URN 

1300 PRINT AT 19,0; 
EEK 23672+256*PEEK 
SEGUNDOS" : PRINT 

OS- " ; EH 

1310 PAUSE 100: RETURN 
2000 DATA "FADA" . "GALA" . "SALA" . 
"DADA" , "ASA" . "LAKA" , "ALAGA" . "AL 
ADA" , "LA" , "GAS" . "DALLAS" , "SAGA" 
2010 DATA "AFAGA" . "FALHA" . "ADAG 
A" , "HA" , "AGA" , "HAJA" , "HALL" , "GA 
LHAS" . "FALA" . "FALHA" . "AJA" . " JAL 



90 PRINT #165, "DIGITE (0) PARA 
SAIR" 

100 AS-INKEYS:IF AS<"0" OR AS> 
5" THEN 100 

110 A-VAL(AS):ON A*l GOSUB 999 
200. 300,400,600.800 



LET C = l: RET 

"TEMPO- "; tP 
I3673J/50;" 
"NUMERO DE ERR 



10 OBS-"A SDFGHJKL" 
20 CLS 

30 DIM WS(26> 
40 FOR K-l TO 26 
50 READ WS (KJ 
60 NEXT 

70 PRINT #71, "QUAL O NÍVEL DE" 
80 PRINT ©101 , "DIFICULDADE 11-5 

) ? B 



210 



■\ ? - 1 i 



"TEMPO-" 



RI NT § 



10 FOR K-l TO 9 
2 30 AP-AP+2 
240 GOSUB 1100 
250 NEXT 

260 CLS:PHINT #448 
ER/50 ; "SEGUNDOS" 
270 PRINT"NUMEHO DE 
280 RETURN 
300 C0SUB 1000 
310 FOH K-l TO 20 
320 AP-1252-l 2-RND (9 
330 GOSUB 1100 , 
340 NEXT 
350 CLS 

360 PRINT §448, "TEM 
0 ! "SEGUNDOS" 
370 PRINT"NUMERO DE 
380 RETURN 
400 CLS0 : PRINT" DIG 
INDICADA NA TELA" 
410 PRINT 3206. " 
8 . " " : : PHINT §270, " " ; 
420 FOR K-l TO 20 
430 PS=MIDS (OBS . 2*RND(9) -l , 1) 
440 PRINT §239. PS; 
450 AS-INKEYS:IF AS""" THEN 450 
460 IF K-l THEN TIMER-0 
470 IF ASOPS THEN SOUND 5.1:ER 
=ER+1:GOTO 450 
480 POKE 1263, 12B 
490 SOUND 200.1 
500 NEXT 
510 GOTO 350 

600 CLS : PRINT," DIGITE A TECLA Q 
UE APARECER" 
610 T=0 

620 FOR K-l TO 10 
630 PS-WS<RND(Z8)) 
640 T-T+LENÍPS) 
650 PRINT #237. PS 
660 P-l 

670 POKE 1228+P.106 

680 AS-INKEYS: IF AS-"" THEN 680 

690 IF K*l THEN TIMER-0 

700 IF ASOMIDS(PS.P.l) THEN ER 

-ER+1 : SOUND 5.1: GOTO 670 

710 POKE 1228+P.96 

720 SOUND 200,1:P-P+1:IF PÓLEN 

(PS) THEN 670 

730 NEXT 

740 CLS 

750 PRINT §416,USING"PALAVRAS P 
OR MINUTO-M*.*#"iT"500/TIMER 

760 GOTO 360 

800 CLS:PS-"":FOR K-l TO 6 
Bio PS-PS+WS!RND(28))+" * 
820 NEXT 

830 PS-LEFTS!PS,LEN(PS)-1) 

840 PRINT" DIGITE ESTAS PALAVRA 



850 P-1:PHINT #224 , PS 
860 A3-INKEYS:IF AS-"" 
870 TIMER-0 :GOTO 890 




Qual a velocidade de datilografia que 
devo tomar como meta para começar? 

Na etapa inicial do curso, o mais cor- 
reio é preocupar -se com a precisão e 
não com a velocidade. Depois que se 
consegue datilografar todas as palav 



nhurr 



pode 




pensar em acelerar o ritmo de trabal 
Deve-se praticar os Níveis 1 , 2 e : 

tras em doze ou treze segundos; no: 
Níveis 4 e 5, deve-se ter como meti 
cerca de quinze palavras ou mais po 



AS-INKEYS:IF AS-"" THEN 880 
IF ASOMIDSÍPS.P.l) THEN ER 
-£H*l:SOUND 5.1:G0TO 880 
900 POKE 1311 + P.PEEKU247+P) 
910 SOUND 200 , 1 : P-P-t- 1 : IF P< = LEN 
(PS) THEN 880 
920 T-LEN(PS) :GOTO 740 

999 CLS : END 

1000 CLS:PRINT*PRESSIONE A TECL 
A INDICADA PELO ASTERISCO" 
1010 PRINT #262. OBS 

1020 FOR K-l TO 1000:NEXT 

1030 RETURN 

1100 POKE AP. 106 

1110 AS-INKEYS: IF AS="" THEN 11 
10 

1120 IF K-l THEN TIMER-0 

1125 PR1NT#14*32.ASC(AS) ; 

1126 PRINT#15*32.PEEK(AP+32) ; 
1130 IF (ASC(ASÍ)OPEEK(AP+32)T 
HEN SOUND 5,1: ER-ER+1 : GOTO 1110 
1140 SOUND 200,1 

1150 POKE AP. 96 
1160 RETURN 

9000 DATA FADA, GALA. SALA. DADA, A 
SA. LAKA, ALAGA, ALADA. LA. GAS. DALL 
AS . SAGA , GALHADA , FALA 
9010 DATA AFAGA. FALHA. ADAGA. HA, 
AGA , HAJA , JA , HALL . KA , FA. AJA . DAS , 
GALHAS. JAL 



THEN 860 de" 



5 R-RND(-TIME) 

10 0BS-"A SDFGHJKL Ç":ZS 

-CHR$(219) :SS-"L10 02 G" 

20 SCREEN1 : CLS 

30 DIM WS (28) 

40 FOR K-l TO 28 

50 READ WS(K) 

60 NEXT 

70 LOCATE 7,4:PRINT"Qual nível 



80 LOCATE 5.6:PRINT"dlf lCUldad* 



1IIIIIIIUM! ' « 



? (1-5)' 

90 LOCATE 3.9:PRINT"Tecle <0> P 
ara terminar." 

100 AS"INKEYS:IF AS<"0" OR AS>" 
5" THEN 100 

110 ON VAL(AS)+1 GOSUB 999,200, 

300,400,600.800 

120 ER-0 

130 GOTO 70 

200 GOSUB 1000 

210 AP=3S7 

220 FOR K-l TO 10 

230 AP-AP+2 

240 GOSUB 1100 

250 NEXT 

260 CLS 

270 LOCATE 5, 12 : PRINT"Tempo ; 

INT (TIME/60) ; "segundos . " 

280 LOCATE 6 : PRINT B Numero de er 

roa -":ER; 

290 RETURN 

300 GOSUB 1000 

310 FOR K-l TO 20 

320 AP-359+INT(RND(l)*10)*2 

330 GOSUB 1100 

340 NEXT 

350 GOTO 260 

400 CLS:PRlNT"Digite a letra mo 

strada na tela:" 

410 LOCATE 11,9:PRINTZS;ZS:ZS;Z 

S: LOCATE 11:PRINTZS;" ";ZS:LOC 

ATE ll:PRINTZ$i" " ; ZS : LOCATE1 1 

:PRINTZS;ZS;ZS;ZS 



420 FOR K-l TO 20 

430 PS-MIDS (OBS , INT (RND(l) *10) * 

2+1,1) 

440 LOCATE 1 3 . 1 1 : PRINTPS i 

450 AS-INKEYS:IFA$-""THEN450 

460 IF K-l THEN TIME-0 

470 IF ASOPS THEN PLAY SS:ER=E 

H+l :GOTO450 

480 PRINTCHRS(8) ;CHRS(32) ; 
490 BEEP 

500 NEXT : GOTO 260 
600 CLS:PRINT"Digite a palavra 
que aparecer:" 
610 TL-0 

620 FOR K-l TO 10 

630 PS-WS{INT(RND(1)*28>+1) 

640 T-LEN(PS) : TL-TL+T : L-INT ( ( 30 

-T)/2) 

645 LOCATE 0,11:PRINTSPACES(30) 

650 LOCATE L, 11: PRINTPS 
655 FOR J-l TO T 

660 LOCATE L , 10 : PRINTCHRS (205) ; 

670 AS-INKEYS:IFAS-""THEN670 

660 IF K-l THEN TIME-0 

690 IF ASOMIDSÍPS.J.DTHEN PLA 

Y SS;ER-ER+l:GOTO 670 

700 LOCATE L , 10 : PRINTCHRS (32); 

710 BEEP:L-L+1:NEXT 

720 NEXT 

730 CLS:LOCATE 2,16:PRINT "Pala 
vraa por minuto : " ; : PR INT USING 
"M#.|#";TL*600/TIME 



740 GOTO 270 
800 CLS:PS-*" 

810 FOR K-l TO 5:PS-PS+WS(INT(R 
ND(1)*28)+1)+CHRS(32) :NEXT 
820 PS-LEFTS!PS.LEN(PS)-1) 
830 PRINT"Diglte estas palavras 

840 P-l: LOCATE 0,11:PRINTPS 

850 AS-INKEYS:IFAS-""THEN850 

860 TIKE-0:G0TO 880 

870 AS-INKEYS:IFAS-""THEN870 

880 IF ASOMIDS(PS.P,l)THEN PLA 

Y SS : ER-ER+1 :GOTO 870 

890 L0CATE-1+P,14:PRINTMIDS(PS, 

P.l) 

900 BEEP:P-P+1;IF POLEN(PS) TH 
EN 870 

910 TL-LEN(PS) :GOTO 730 

999 SCREEN0 ; END 

1000 CLS:PHINT"Dioite o caracte 
r indicado pela aeta: " 
1010 LOCATE 5,12:PRINTOBS 

1020 FOR K-l TO 1000:NEXT 
1030 RETURN 

1100 UPOKE BABE(S)+AP,205 

1110 A5-INKEYS:IF AS-""THEN 111 

0 

1120 IF K-l THEN TIME-0 

1130 IF ASCtASJOVPEEK (BASE (5) 

+32+AP)THEN PLAY SS : ER-ER+1 : GOT 

O 1110 

1140 BEEP 

1150 VBOKE BASE(5)+AP,0 
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1160 RETURN 

9000 DATA FADA, SALA. ADAGA, DADA, 
FACA , FA , GALA , HAJA , AGA , HALL . ALAD 
A. ASA, GAS. FALHA 

9010 DATA FALA, LAÇA, ALAGA, LAKA, 
SAGA , JA , AJA . AFAGA . GALHADA , DALLA 
S.LA, HA. AS SA, LAJA 



0 HOME 
0 DIM WS (28) 
0 FOB K - 1 TO 28: 
NEXT 

0 HTAB 14: VTAB 5: 

nível de" 
0 PRINT : 
culdade? 
0 HTAB 9 
e <0> par; 
GET AS 



HTAB 12: 
1-5)" 
VTAB 11: 



PBINT "dif 
PHINT "Tec 



teri 



[ nar 



IF AS 

"5" THEN BO 
90 ON VAL (AS) + 1 GOSUB 999 
200,300.400,500,600 
100 ER - 0 
110 GOTO 50 
200 GOSUB 1000 
210 AP - 2 

220 FOR K - 1 TO 10:AP - AP + 
3: GOSUB 1100: NEXT 
230 HOME 

240 VTAB 15: HTAB 12: PRINT 
umero de erros " ";ER; 
250 RETURN 
300 GOSUB 1000 
310 FOR K - 1 TO 20 
320 AP - 2 + INT ( RND (1) ■ 
0+1) * 3 

330 GOSUB 1100: NEXT 
340 GOTO 230 

400 HOME : PHINT "Digite a let 
ra mostrada na tela:" 
410 VTAB 9: HTAB 18: INVERSE : 

PRINT " ": HTAB 16: PRINT " 
"; HTAB 18: PBINT " 
420 FOR K - 1 TO 20:PS - MIDS 

(OBS. INT ( RND U) * 10 + 1) 




3 



2.1) 



430 VTAB 10: HTAB 19: PRINT PS 
; CHRS (8) : 

440 GET AS: IF AS < > PS THEN 
PRINT CHRS (7);:ER - ER + 1 : 

GOTO 440 
450 A - PEEK ( - 16336) :A - P 
EEK ( - 16336) : NEXT : NORMAL : 

GOTO 230 
500 HOME : PHINT "Digite a pai 
avra que aparecer:" 
510 TL - 0 

520 FOR K - 1 TO 10 
530 PS - WS( INT < RND (1) * 28 



1) 

540 T - LEN (PS) IL - 

- T) / 2) 
550 PRINT : VTAB 11: 
58: HTAB L: PRINT PS 
560 FOR J - 0 TO T - 
0 : HTAB J + L : PRINT 



7) ; : ER - EH + 1 : GOTO 570 

580 A - PEEK ( - 16336) :A - P 

EEK ( - 16336) : PRINT CHRS (32 

) ; : NEXT 

585 NEXT 

590 GOTO 230 

600 HOME :PS - "" 

610 FOR K - 1 TO 6:PS - PS + W 

S( INT ( RND (1) * 28) + 1) + 

CHRS (32) : NEXT 

620 PS - LEFTS (PS. LEN (PS) - 

1) 

630 PRINT "Digite estas palavr 



640 P - 1: VTAB 11: HTAB 4: PHI 
INT { (40 NT PS 

650 GET AS: IF AS < > MIDS ( 
CALL - 9 PS.P.l) THEN PRINT CHRS (7);: 

ER - ER + 1: GOTO 650 
li VTAB 1 660 VTAB 15: HTAB P + 3: PRINT 
*"; CHRS MIDS ÍPS.P.l) 

670 A - PEEK ( - 16336) :A - P 
> MIDS ( EEK ( - 16336) :P - P + 1: IF P 
( < - LEN (PS) THEN 650 



680 GOTO 230 

999 HOME : END 

1000 HOME : PRINT "Digite O ca 
racter indicado pelo a 
sterisco: " 

1010 VTAB 12: HTAB 5: PRINT OB 

S 

1020 FOR K - 1 TO 500: NEXT 

1030 RETURN 

1100 POKE 1319 + AP, 170 

1110 GET AS: IF ASC (AS) < > 

PEEK (1319 + AP + 128) - 128 
THEN PRINT CHRS (7);: EH - ER 
+ i: GOTO 1110 

1120 A - PEEK ( - 16336) :A - 
PEEK ( - 16336) : POKE 1319 + AP 
,160 

1130 RETURN 

9000 DATA FALA, AGA, AFAGA, GAS, 
SALA , DADA . HAJA , HALL . LAKA , ASA , AL 
ADA , ASDFG , SAGA , KAKA 
9010 DATA AJA. FA, ALAGA, JA, AGA 
, HA , GALHADA , FALHA , GALA , FADA , DAL 2 < 
LAS , ASSADA , LALA , : LKJH 
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Códigos de controle podem ser usados 
no lugar de muitos comandos em 
BASIC. Entrados diretamente por meio 
do teclado em certos micros, 
eles proporcionam uma ação imediata. 



Os códigos de controle correspon- 
dem, na maioria dos micros, aos códi- 
gos de 0 a 31 no sistema ASCII, e ser- 
vem para realizar uma série dc funções 
relacionadas principalmente com o con- 
trole do vídeo. 

Caso você não saiba ainda, ASCII é 
um sistema de codificação padronizado 
mundialmente e utilizado por quase to- 
dos os computadores. ASCII significa 
American Standard Code for Informa- 
tion Interchange (Código Padrão Ame- 
ricano para Intercâmbio de Informa- 
ção), e se pronuncia ásqui. 

Originalmente, os códigos de contro- 
le do ASCII correspondiam às funções 
básicas de transmissão de um terminal 
ligado ao computador: início de trans- 
missão, sinal de atenção, fim de trans- 
missão, acionamento da campainha do 
terminal, etc. 

Entretanto, cada fabricante de micro- 
computadores aproveitou a faixa de có- 
digos de 0 a 31 para implementar fun- 
ções diferentes. Com poucas exceçôes, 
portanto, a maioria dos códigos de con- 
trole não c padronizada, como aconte- 
ce com os códigos correspondentes a ca- 
racteres comuns (letras, números, sinais 
matemáticos c de pontuação, etc.). 



0 ACESSO AOS CÓDIGOS DE CONTROLE 



Existem duas técnicas básicas de uti- 
lização de códigos dc controle. Uma de- 
las — mais universal — pode ser apli- 
cada a qualquer microcomputador que 
disponha da função CHRS no interpre- 
tador BASIC. A outra é aplicável ape- 
nas a alguns computadores: é a entrada 
direta dos códigos de controle por inter- 
médio do teclado. A tecla rotulada 
CONTROL (ou ainda CTRL), existente 
em muitos micros, deve ser pressionada 
em combinação com outras teclas, pa- 
ra introduzir o código de controle nu- 
ma linha de comando ou de programa. 

A função CHRS (abreviatura de cha- 
racter) permite converter um código nu- 
mérico inteiro, situado entre Oe 255. ao 
seu caractere correspondente. Por exem- 
plo, PRINT CHRS(65) escreverá na te- 
la a letra A (maiúscula). 
I A função CHRS funciona também 
com os caracteres de controle. Dessa 




forma, se acionarmos um comando 
PRINT associado a um ou mais carac- 
teres de controle, poderemos realizar 
uma série de tarefas básicas (até mesmo 
algumas que normalmente podem não 
ser acessíveis por intermédio de coman- 
dos BASIC). A seguir, damos alguns 
exemplos para o TRS-80 (os outros 
computadores serão abordados na con- 
tinuação deste capítulo). 



Você já conhece a instrução CLS, 
que serve para limpar a tela e retornar 
o cursor à posição superior esquerda do 
vídeo. Não seria interessante se pudés- 
semos apagar a tela apenas de um de- 
terminado ponto para baixo ou até o fi- 
na! de uma linha? Efeitos desse tipo são 
facilmente obtidos por meio da combi- 
nação do comando PRINT CHRS(n) 
com os seguintes códigos: 

8 - recua e apaga o último caracte- 
re na tela; 

1 0 - avança o cursor para o começo 



da linha seguinte: 

liga o cursor; 

desliga o cursor; 

converte a tela para a largura de 

32 caracteres; 

retorna o cursor à posição 0,0, 

sem apagar a tela; 

move o cursor para o começo da 

linha; 

apaga da posição do cursor até 
o final da linha; 
apaga o espaço que vai da posi- 
ção do cursor até o final da tela. 



Uma sequência de caracteres de con- 
trole pode ser colocada também dentro 
de uma cadeia de caracteres, por meio 
da função STRINGS. Por exemplo: 
PRINT STR!NG$(5,10> provoca o 
avanço do cursor cinco linhas para bai- 
xo. Esse comando corresponde à ação 
de pressionar a tecla com a flecha para 
baixo cinco vezes seguidas, com a van- 
tagem de poder ser colocado dentro de 
um programa (corresponde a cinco co- 
mandos PRINT em branco). 
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©S COMA»©! 
POKE 



0 EXAME DA MEM 

■ ESCREVA NA TELA COMO PQKE 

■ CARACTERES NO SPECTRUM 
■ COR ES NO TRS-CO LOR 

■ COMO CONTROLAR O APPLE II 



Os comandos PEEK e POKE permitem 
examinar e alterar valores diretamente 
na memória do computador. E você 
pode usa los sem dificuldade . 
incorporados a um programa BASIC. 



Muitas vezes, usamos o computador 
sem nenhuma necessidade de saber co- 
mo sua memória funciona. Quando es- 
crevemos, por exemplo, LET A = 67, 
o computador por si só seleciona posi- 
ções de memória livres, chama estas po- 
sições de "A" e nelas armazena o valor 
67. Se digitarmos, em seguida, PR1NT 
A, o computador saberá exatamente on- 
de encontrar o valor pedido — o pro- 
cesso é automático. Só é necessário in- 
dicar ao computador as posições de me- 
mória que devem ser usadas quando 
programamos em código de máquina. 




Mas existe em BASIC uma maneira 
de examinar a memória do computador, 
para localizar os valores ali armazena- 
dos. É possível, também, armazenar va- 
lores apropriados na memória, a fim de 
alterar o comportamento da máquina. 

As ferramentas BASIC para isso são 
o PEEK e o POKE. PEEK permite que 
se examine o valor armazenado na me- 
mória e POKE possibilita o armazena- 
mento de um determinado valor. 



COMO FUNCIONAM 0 PEEK E 0 POKE 



Os computadores TRS-80, TRS-Co- 
lor. MSX. bem como os ZX-81 e Spec- 
trum de 48K, possuem 65 536 posições 



de memória endereçáveis; portanto, 
64K. O Apple c o TK-2000. em suas di- 
versas versões, apresentam diferentes ta- 
manhos de memória. Uma parte dessa 
memória é a ROM, ou seja, a Memória 
Apenas para Leitura. Os conteúdos da 
ROM são fixos; assim, embora possa- 
mos examiná-la usando PEEK, não po- 
demos utilizar o POKE para armazenar 
novos valores ou alterar os que nela já 
existem. O restante da memória é a 
RAM — a Memória de Acesso Aleató- 



3? 
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rio, ou Memória para Leitura c Escri- 
ta, como também é conhecida — , na 
qual se armazenam as variáveis e os pro- 
gramas BASIC. Podemos usar PEEK 
para examinar e POKE para armazenar 
os valores ali contidos. 

Este programa permite que você exa- 
mine qualquer posição de memória 
ROM ou RAM do computador: 



mazene apenas bytes simples, ou seja, 
qualquer número entre 0 e 255. 



10 INPUT "ENDERECO. . . " ;A 
20 LET N-PEEKtA) 
30 PBINT "CONTEÚDO . . . * ;N 
40 COTO 10 

Entre com o número que desejar, de 
0 a 65 535, e você verá o que existe na 
posição indicada. Pode ocorrer, porém, 
que ao usar PEEK para examinar deter- 
minadas áreas da memória, você rece- 
ba como resultado um valor fictício e 
não o valor real lá existente. Os conteú- 
dos da RAM dependerão sempre do que 
você estiver fazendo com o computador; 
apenas os conteúdos da ROM são Fotos. 

Repare que os números são sempre 
valores inteiros entre 0 e 255 e, em he- 
xadecimal, de 0 a FF. Isso significa que 
todos constituem bytes simples (um byte 
contém um número hexadecimal de dois 
dígitos). Cada posição de memória con- 
tém um byte, não sendo possível guar- 
dar qualquer número maior em uma po- 
sição de memória. Se você somar 1 a FF, 
em hexadecimal, obterá 0100. Como es- 
te resultado inclui dois bytes, será pre- 
ciso armazená-lo em duas posições de 
memória: 01 em uma posição e 00 em 
outra. 

O programa que apresentamos a se- 
guir permite que se empregue o coman- 
do POKE para guardar números na me- 
mória do computador. Neste estágio, ar- 



10 PBINT"CONTEUDO. . . " ;PEEK(3000 

) 

20 INPUT"NUMEBO " ;N 

30 POKE 30000 , N 

40 PP,INT"NOVO CONTEUD0":PEEK(30 
000) 

45 PBINT 

50 GOTO 20 

O programa apresenta primeiro o 
conteúdo da posição de memória e, em 
seguida, usa o POKE para armazenar ali 
o número indicado. Depois, mostra uma 
vez mais o conteúdo, para provar que 
o número realmente foi armazenado. 

Podemos trocar a posição de memó- 
ria para qualquer outra posição que de- 



sejarmos. Repare que nada acontece * 
tentarmos usar POKE na ROM e não 

causaremos nenhum dano ao sistema se 
o fizermos. Utilizado em cenas áreas da 
RAM, porém, o POKE pode provocar 
algum desarranjo, mas nada fatal — 
simplesmente desligue a máquina por 
um momento, para reiniciar a memória. 

Tente agora utilizar o POKE para ar- 
mazenar um número maior do que 255 
e veja o que acontece. Nos computado- 
res TRS-Color e Spectrum, você obterá 
uma mensagem de erro, já que só há lu- 
gar para um byte em cada posição de 
memória. 
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ESCREVA NA TELA COM O POKE 



Examinando os mapas de memór 
apresentados no artigo da página 174 

você verificará que uma porção da 
mória é dedicada à exibição em tela. 
usar o POKE para armazenar certos nú- 
meros nesta área, os caracteres realmen- 
te aparecerão na tela. Para ver determi- 
nado caractere, armazene códigos AS- 
CII, empregando o POKE, nos compu- 
tadores TRS-80, TRS-Color e TK-2000. 
No Apple, os valores ASCII produzirão 
caracteres piscantes; para obter carac- 
teres normais, some 128 ao código AS- 
CII. Nos micros da linha Sinclair e 
MSX, utiliza-se um método diferente do 
descrito abaixo. No TK-2000, a organi- 
zação da tela não permite tal exibição. 
Tente as seguintes linhas: 




.460 



TABELA DE CÓDIGO ASCII 
Cada caractere que o computador uti- 
liza possui um código numérico, e mui- 
tos modelos adotam um código padrão 
denominado Código ASCII — iniciai! 
de American Standard Code for Infor- 
mation Interchange (Código Padrão 
Americano para Intercâmbio de In- 
formação). 

Estes códigos são os números usados 
em CHR$ e ASC (ou CODE no Spec- 
trum). CH RS converte o número em um 
caractere, enquanto ASC ou CODE faz 
o inverso, convertendo um caractere em 
seu código numérico. 

Assim, quando o computador guarda 
uma palavra, o que armazena 
é o código ASCII do caractere. | Taba! 


Número 
de código 


Caractere 


Número Caractere 
de código ASCII 


32 


space 


62 




33 


! 


63 


? 


34 




64 


@ 


35 


# 


65 


A 


36 


S 


66 


B 


37 




67 


C 


38 


& 


68 


D 


39 




69 


E 


40 


( 


70 


F 


41 


1 


71 


G 


42 


* 


72 


.H 


43 




73 




44 




74 


J 


45 




75 


K 


46 




76 


L 


47 


/ 


77 


M 


48 


0 


78 


N 


49 


1 


79 


0 


50 


2 


80 


P 


51 


3 


81 


Q 


52 


4 


82 


R 


53 


5 


83 


5 


54 


6 


84 


T 


55 


7 


85 


U 


56 


8 


86 


V 


57 


9 


87 


w 


58 




88 


X 


59 




89 


Y 


60 


< 


90 


2 


61 
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Q 

POKE 15360,65 

a 

POKE 1024,65 

SE 

HOME : POKE 1024.193 

A letra A deverá aparecer no canto 
superior esquerdo da tela. 

No TRS-Color, se a tela tiver rolado 
antes de uma tentativa de armazenar ca- 
racteres pelo POKE, eles não aparece- 
rão em lugar nenhum. Assim, primeira- 
mente limpe a tela, digitando CLS e, de- 
pois, < RETURN > ou < ENTER > . 

Você deve estar se perguntando qual 
a vantagem de usar o POKE para colo- 
car caracteres na tela, já que dispomos 
de comandos tão eficientes como o 
PRINT A, PRINT TAB ou PRINT®. 
De fato, o PRINT é normalmente o mé- 
todo mais fácil e conveniente para po- 
sicionar os caracteres. Mas há casos em 
que o emprego do POKE se mostra van- 
tajoso. Por exemplo, se usarmos o 
PRINT para escrever na última posição 
da tela, esta sempre rolará; com o PO- 
KE, ao contrário, não haverá nenhum 
problema. Você pode imaginar o quan- 
to esta característica é útil, sobretudo em 
jogos, quando queremos mover um ca- 
ractere por toda a tela. 



OS CARACTERES NO SPECTRUM 



No Spectrum, as coisas são um pou- 
co diferentes, pois não se pode usar o 
POKE para armazenar caracteres sobre 
a tela. Um caractere é feito de pontos 
de uma matriz de oito por oito. E cada 
linha deve ser armazenada pelo POKE 
separadamente, até se completar o ca- 
ractere. 

Felizmente, as formas dos caracteres 
são armazenadas na ROM; assim, pode- 
se usar o PEEK nesta porção da memó- 
ria, a fim de examinar cada linha e, en- 
tão, exibi-la na tela com o POKE. 

O programa que apresentamos a se- 
guir utiliza o comando POKE para exi- 
bir a letra A no canto superior esquer- 
do da tela. 



10 LET dest-16384 
■20 FOR a-15880 TO 15887 
I 30 POKE dest .PEEK a 



A linha 10 define o endereço da pri- 
meira tinha dos caracteres da tela. O 
FOR...NEXT permite o acesso à ROM, 
onde o caractere está armazenado e a li- 
nha 30 imprime a primeira linha deste 
caractere na tela. A linha 40 incremen- 
ta o endereço da tela em 256, dando 
acesso à próxima linha, logo abaixo da 
primeira. 

O método funciona, mas, por ser um 
tanto lento, quase sempre é mais vanta- 
joso usar o PRINT AT ou PRINT TAB 
no Spectrum. 



Quando executamos o primeiro pro- 
grama que examina a memória do com- 
putador, obtivemos apenas números en- 
tre 0 e 255. Mas muitos desses números 
são, na realidade, códigos de letras em 
ASCII, alguns dos quais formam pala- 
vras ou mesmo sentenças completas. Se 
você não conhece os códigos ASCII, ve- 
ja a tabela da página 263. 

O programa seguinte lê toda a memó- 
ria ROM do computador e converte os 
números em caracteres, antes de impri- 
mi-los na tela: 



10 FOR A-0 TO 16393 
20 LET N-PEEK A 

30 IF N>31 AND N<127 THEN PRINT 

CHR$N; 
40 NEXT A 



10 FOR A-.VH8000 TO &.HBFF 
20 N-PEEK (A) 

30 IF N>31 AND N<127 THEN PRINT 

CHRS (N> ; 
40 NEXT A 



10 FOR A-LH0 TO Í.H7FFE 
20 N-PEEK (A) 

30 IF N>31 AND N<127 THEN PRINT 

CHRS (Ni ; 
40 NEXT A 



BE 



10 FOR A - 53248 TO 65535 
20 N - PEEK (A) 

30 IF N > 31 AND N < 127 THEN 

PRINT CHRS (N) ; 
40 NEXT A 



As linhas 1 0 e 40 determinam a repe- 
tição do processo em toda a memória; 
a linha 20 examina cada posição, usan- 
do o POKE, e a linha 30 converte o nú- 
mero em um caractere e o imprime. Es- 
ta linha ainda limita o intervalo de nú- 
meros que serão convertidos, evitando 
que o computador imprima códigos de 
controle ou símbolos gráficos. 

Para o TRS-80, use o programa do 
TRS-Color com a linha 10 do progra- 
ma do Spectrum. 

Pode-se também imprimir o conteú- 
do da RAM do mesmo modo, bastan- 
do trocar os endereços de memória da 
linha 10. Os endereços dados abaixo im- 
primem parte da área em que os progra- 
mas BASIC estão armazenados, permi- 
tindo que você veja como o seu próprio 
programa está guardado na memória. 
Convém desligar o computador por um 
segundo antes de rodar este programa, 
para evitar que a RAM permaneça car- 
regada com restos de outros programas. 
Aqui está a nova linha 10: 



10 FOR A-23755 TO 65000 
10 FOR A-16510 TO 30000 

Qj 

10 FOR A-IH1E00 TO &.H1F00 



Use FOR 17385 TO 32767 para sis- 
temas de 16K e os finais 49151 para 32K 
e 65535 para 48K. 



BE 



10 FOR A - 2048 TO 32767 



10 FOR A-Í.H8000 TO &.HF37F 



Experimente examinar outras áreas 
da RAM da mesma maneira. 



Até aqui examinamos a memória do 
computador e usamos POKE para 
exibir caracteres na tela. Isso nos deu 
uma boa noção de como o PEEK e o 
POKE funcionam, mas não do quanto 
são úteis. 
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Para as aplicações mais importantes, 
precisaremos examinar posições especi- 
ficas de memória. No Spectrum, a po- 
sição de memória 23609 controla o som 
que o teclado faz quando se pressiona 
uma tecla. Normalmente, ela contém 0, 
que provoca um pequeno clic; mas, com 
um número maior — que pode chegar 
a 255 — , obtém-se um longo bip. PO- 
KE 23609,80 faz um ruído razoável. 

As possibilidades de uso do PEEK e 
do POKE dependem principalmente do 
computador que você tem. 

Retomando o exemplo anterior: os 
teclados dos demais computadores não 
fazem ruído quando uma tecla é pres- 
sionada; não têm posição de memória 
que controle o som do teclado. Assim, 
um efeito que requer cinco ou seis PEEK 
ou POKE em determinado computador 
pode ser obtido com uma palavra-chave 
BASIC em outra máquina. 

O Apple faz um bom uso do PEEK 
e do POKE. O Spectrum, o TRS-80 e'o 
TRS-Color utilizam- no ocasionalmen- 
te. No MSX o uso destes comandos é 
mais raro. 

Aqui estão algumas aplicações para 
o seu computador. 




Já vimos um POKE modificar o som 
do teclado. O POKE seguinte altera o 
espaço de tempo que uma tecla leva pa- 
ra iniciar a auto-repetiçào — o que é útil 
em jogos de velocidades, nos quais uma 
tecla precisa ser pressionada para mo- 
ver um caractere. Neste caso e nos se- 
guintes, X é uma variável que devemos 
ajustar por meio do comando. 

POKE 23561.X 

Normalmente, quando se liga o com- . 
putador, X é ajustado para 35. Assim, 
use um número menor que 35 para di- 
minuir o intervalo de espera e um nú- 
mero maior para obter um intervalo 
mais longo. 

Pode-se também alterar a repetição 
automática com: 

POKE 23562.X 

Este tempo X é, em geral, igual a 5. 
Assim, use X = 1 para uma auto- 
repetição rápida e X = 25 para uma 
bem lenta. 



CONTROLE DE TEMPO 



O Spectrum não tem acesso ao cro- 
nometro interno via teclado. Para utili- 
zá-lo. precisaremos usar o PEEK na me- 
mória. O tempo é armazenado como 



três bytes em três posições consecutivas 
de memória. 

PRINT ( PEEK 23672+256*P£EK 23673 
+65536*PEEK 23674) 

... informará quantos cinquenta avos de 
segundo o seu Spectrum está ligado des- 
de o último NEW. Pressione NEW pa- 
ra reiniciar o cronômetro ou POKE 0 
em cada uma das três posições. 




Apresentaremos aqui mais duas apli- 
cações do POKE, que serão úteis quan- 
do você quiser escrever programas para 
outra pessoa. A primeira delas assegu- 
ra que todas as letras digitadas apare- 
çam em tipo maiúsculo. 

POKE 23568.6 

Esta instrução é útil quando se pre- 
tende que todos os dados de entrada se- 
jam consistentes. Use POKE 23658,0 
para retornar ao normal. 

Uma outra possibilidade é a altera- 
ção do cursor para qualquer caractere 
do teclado — ou mesmo qualquer pala- 
vra-chave, dependendo do número que 
foi usado no POKE: 

10 FOR X-l TO 255 

20 POKE 23617.X 

30 INPUT aS 

40 NEXT X 

A linha 30 faz um INPUT a$ apenas 
para que o cursor apareça na tela. Tão 
logo entre algum dado via INPUT, o 
programa mostrará o cursor seguinte. 
Os mais interessantes são aqueles por 
volta de X = 200 até 230. Por exemplo, 
X = 210 exibe < CONTINUE > como 
um cursor, e X = 225 exibe um sinal de 
interrogação. 




O PEEK e o POKE são também uti- 
lizados para a auto- repetição. O TRS- 
Color normalmente não tem teclado au- 
to-repetitivo. Para mover objetos em jo- 
gos, por exemplo, é preciso manter a te- 
cla pressionada, soltá-la muito rapida- 
mente, voltar a pressioná-la e, assim, su- 
cessivamente. Uma maneira de evitar es- 
se cansativo procedimento é usar PEEK 
para verificar que tecla está sendo pres- 
sionada, o que nos permite deixar o de- 
do sobre a tecla pelo tempo que qui- 
sermos. 

Esse método já foi empregado na 
seção de Programação de Jogos. Veja 
como funciona: quando pressionamos 



uma tecla, um código numérico especial 
é colocado em uma das seis posições de 
memória. O PEEK checa, então, estas 
posições, para verificar que tecla está 
sendo pressionada. O emprego deste re- 
curso é muito simples. O programa se- 
guinte, por exemplo, usa teclas de cur- 
sor para desenhar na tela: 

10 PMODE 0.1 
20 PCLS 
30 SCREEN 1,1 
40 X-127:Y-95 

50 IF PEEK(341)-223 THEN Y-Y-2 
60 IF PEEK(342)-223 THEN Y-Y+2 
70 IF PEEK-043J-223 THEN X-X-2 
80 IF PEEK(344)-223 THEN X-X+2 
90 IF X<0 OB X>255 THEN X — 255» 
(X<0) 

100 IF Y<0 OR Y>191 THEN Y— 191 
*(Y<0) 

110 PSET (X.Y.5) 
120 GOTO 50 

A tabela da página 265 mostra o có- 
digo numérico gerado para cada tecla e 
a posição de memória em que elas são 
armazenadas. Se, por exemplo, pressio- 
nássemos A, PEEK (339) seria igual a 
267. Podemos verificar, assim, de onde 
vieram os números escritos após os 
PEEK nesse último programa. 



TELA MULTICOLORIDA 



O programa seguinte traça linhas de 
diferentes cores na tela. Colocando-as 
perto umas das outras, obteremos no- 
vos matizes. Você pode pressionar qual- 
quer tecla durante a execução do pro- 
grama, se quiser interromper o desenho 
e examinar o número para determina- 
do matiz. 

10 PMODE 3.1:SCREEN 1,0:PCLS3 
20 FOR K-0 TO 255 
30 POKE 178. K 

40 LINE(78,46>-U7B, 146) .PSET. B 
F 

50 IF INKEYSO"" THEN 80 

60 NEXT 

70 GOTO 70 

80 CLS:PRINT K 

A posição de memória 178 controla 
a cor do primeiro plano. Esta varia, em 
geral, de 0 a 3 (4 cores), mas, se usar- 
mos o POKE para armazenar um valor 
maior que K = 3, obteremos novas lis- 
tras coloridas. 

Utilizamos PSET na linha 40 porque 
estamos manipulando cores de primeiro 
plano. Para trabalhar as cores de plano 
de fundo, troque PSET por PRESET e 
substitua o valor 178 na linha 30 por 179. 

Parando o programa, poderemos 
examinar o valor de K para determinado 
matiz e, assim, usar esta cor em outros 
programas gráficos. 
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COMO ALTERAR A VELOCIDADE 



A possibilidade de acelerar o compu- 
tador é interessante, sobretudo, para jo- 
gos — você pode fazê-los andar mais de- 
pressa se, por exemplo, o jogador atin- 
gir um determinado número de pontos, 

Utilize o primeiro POKE para acele- 
rar e o segundo para voltar ao normal. 



Pode-se usar qualquer número em lu- 
gar do 1, pois o efeito será o mesmo. 

Existe apenas um problema com es- 
tes POKE — como eles não funcionam 
em qualquer processador, corre-se o ris- 
co de que o programa prejudique o sis- 
tema. Mas não custa nada experimentá- 
los uma vez em seu computador. 

E, agora, se você considera determi- 
nado jogo muito rápido, aqui está uma 
maneira de desacelerar a saída na tela. 

POKE 359,60 

Para voltar ao normal, use POKE 
359.67. mas não no CP-400 Color, pois 
ele desativa o retorno automático ao 
modo texto. 



No Apple é possível controlar a por- 
ção da tela que iremos utilizar. O ende- 
reço 32 contém a margem esquerda; 33, 
a largura máxima da linha; 34, o núme- 
ro de linhas da margem superior e 35, 
da margem inferior. Modificando os va- 
lores desses endereços com POKE, 
pode-se programar a janela de textos. E 
o que faz o programa seguinte. 

5 HOME : VTAB 5: HTAB 11 
.10 POKE 32,10: POKE 33,20 
|20 POKE 34.4: POKE 35,20 



30 PBINT "JANELA "; 
40 GOTO 30 

Outra utilidade destes comandos é 
possibilitar uma "varredura do tecla- 
do", verificando o valor contido na po- 
sição - 16384 — sendo maior que 127, 
sabe-se que alguma tecla foi pressiona- 
da. Na realidade, esta posição de memó- 
ria contém o código ASCII do caracte- 
re da tecla pressionada mais 128. 

Sempre que fizermos esse tipo de 
"varredura", devemos colocar o valor 
Ona posição -16368, para que uma no- 
va verificação seja possível. O desrespei- 
to a esta regra pode prejudicar seus pro- 
gramas. O programa que se segue exem- 
plifica a utilização desse recurso. 

10 HOME 

20 A - PEEK ( - 1639-1): POKE 
- 16368.0 

30 IF A > 127 THEN PRINT CHR POKE -16300.0 
S (A - 128) ; 
40 GOTO 20 



POKE -16304.0 

Troca a tela de textos pela tela g 
ca, sem limpar esta última. 
POKE -16303,0 

Troca a tela gráfica de qualquer tipo 
pela tela de textos, sem redefinição da 
janela de textos. 

POKE -16302,0 

Permite a exibição de gráficos em tela 
cheia, ou seja, impede o aparecimento 
de texto nas quatro linhas inferiores da 
tela gráfica. 

POKE -16301,0 

Troca a tela cheia por gráfico mais 
texto, ou seja, faz reaparecer as quatro 
linhas de texto na parte inferior da tela. 



O programa funciona como uma má- 
quina de escrever. Os caracteres corres- 
pondentes às teclas pressionadas são 
mostrados no vídeo. 

O uso do PEEK também possibilita 
a produção de sons. Toda vez que veri- 
ficamos o conteúdo do endereço 
- 16336, um clic é produzido. Faça uma 
experiência, adicionando as linhas abai- 
xo ao programa anterior. 

30 IF A > 127 THEN PRINT CHR 
S (A - 128);: FOR I - 1 TO 10:X 
- PEEK ( - 16336) : NEXT 



COMO ALTERAR A TELA 



O Apple pode mostrar texto e gráfi- 
cos de baixa e alta resolução em duas 
"páginas diferentes". Alguns POKE 
são capazes de modificar rapidamente 
as características da tela. 



Passa da página 2 para a página I. 
Não limpa a tela nem move o cursor. 

POKE -16299,0 

Passa da página 1 para a página 2, 
da mesma maneira. 



ACAOBASIC 
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e POKE realmente úteis. 

O modo como este computador or- 
ganiza sua memória de vídeo impede 
que coloquemos caracteres direlamente 
na tela, usando POKE. Para isto, exis- 
te no BASIC do MSX o comando VPO- 
KE, bem como o correspondente 
VPEEK. Os 16 kbytes da memória de 
vídeo só podem ser acessados por meio 
desses dois comandos. 

O computador utiliza essa memória 
não só para mostrar caracteres e gráfi- 
cos; parte dela armazena informações 
para o vídeo, tal como o padrão das le- 
tras do conjunto de caracteres. 

O modo como isso é feito — ou se- 
ja, a organização da memória de ima- 
gem — varia conforme o tipo de tela es- 
colhida pelo comando SCREEN. 

Para que não tenhamos que decorar 
uma grande quantidade de endereços de 
memória, o MSX usa variáveis do sis- 
tema para guardar os endereços. 

Vamos tentar entender esta organi- 
zação. No modo texto de 40 colunas 
(SCREEN 0), a variável BASE (0) con- 
tém o endereço inicial de uma porção da 
memória denominada tabela de nomes . 
Qualquer valor colocado em uma das 
960 posições, a partir deste endereço, fa- 
rá surgir na tela o caractere de código 
ASCII correspondente. Assim, o pro- 
grama seguinte enche a tela com o ca- 
ractere A, cujo código é 65. 

10 SCREEN 0 

20 FOR 1-0 TO 959 

30 VPOKE BASE10)+I.65 

40 NEXT 

Note que, para colocarmos o carac- 
tere A na i-ésima posição da tela, deve- 
mos usar VPOKE BASE (0) + 1,65. 

No modo texto de 32 colunas, BA- 
SE (5) contém a tabela de nomes e exis- 
tem 768 posições na tela. Assim, temos 
um programa análogo. 

10 SCREEN 1 

20 FOR 1-0 TO 767 

30 VPOKE BASE(5)+I,65 

40 NEXT 

O modo gráfico de alta resolução 
também possui uma tabela de nomes, 
cujo endereço inicial fica em BASE (10), 
com 768 posições. O computador mul- 
tiplica por 8 o número ali colocado por 
VPOKE. Em seguida usa o resultado 
dessa operação para obter o padrão e as 
cores daquela posição. O padrão dos 
pontos é armazenado em outra-parte da 
memória de video, cujo endereço inicial 
está em BASE (12). Outra posição de 
memória é reservada para as cores dos 
pontos e seu inicio está em BASE (11). 

■ Para entender melhor o processo, digi- 

| te o seguinte programa: 



10 SCREEN 2 

20 FOR 1-0 TO 767 

30 VPOKE BASE(10>+I,0 

40 NEXT 

50 FOR 1-0 TO 7 

60 VPOKE BASEUD+I.RND<1)*256 
70 VPOKE BASE(12)+I.RND(11*256 
80 NEXT 
90 GOTO 50 

As linhas de 20 a 40 enchem a tabela 
de nomes com o número 0. Este núme- 
ro é multiplicado por 8, dando 0. Isso 
significa que o computador irá aos oito 
primeiros endereços a partir da posição 
0 na tabela de padrões, para obter o pa- 
drão: e aos oito primeiros endereços a 
partir da posição 0 da tabela de cores, 
para obter a combinação de cores des- 
tas posições. Como ainda não há nada 
nas duas tabelas, nenhum desenho é fei- 
to a princípio. 

As linhas de 50 a 80 preenchem as oi- 
to primeiras posições, a partir do ende- 
reço 0, da tabela de padrões com núme- 
ros aleatórios. Fazem o mesmo com os 
endereços da tabela de cores. Estes são 
justamente os locais onde o computador 
vai buscar a cor e o padrão de posições 
da tabela de nomes que tenham o nú- 
mero 0. Como a tabela de nomes está 
cheia de zeros, todas as posições do ter- 
ço.superior da tela assumirão a mesma 
cor e padrão simultaneamente. A linha 
90 repete o processo. 

Você deve estar se perguntando pdr 
que o efeito só foi obtido no terço su- 
perior da tela. A explicação está no fa- 
to de que 255 é o maior valor que um 
endereço pode conter. Assim, o compu- 
tador procurará o padrão e a cor de um 
determinado endereço da tabela de no- 
mes da seguinte forma: o terço superior 
da tela tem suas cores e padrões nos en- 
dereços de 0 a 2055 das tabelas de cores 
e padrões; o terço médio, dos endereços 
de 2048 a 4096; e o terço inferior, de 
4097 a 6143. Mude as seguintes linhas 
no programa anterior, para ver o mes- 
mo efeito no terço médio da tela: 

60 VPOKE BASE(11)+I+2048.RND(1) 
*256 

70 VPOKE BASE<12)+I+2048,RND(11 
»256 

No modo gráfico de baixa resolução, 
a tabela de nomes tem endereço inicial 
guardado em BASE (15). O número co- 
locado em uma das 768 posições desta 
tabela é multiplicado por 8, para que ob- 
tenhamos a posição da tabela de cores 
em que estão armazenadas as cores da 
posição. A tabela de cores tem endere- 
ço inicial em BASE (17). Não há tabela 
de padrões. Mude as seguintes linhas no 
programa anterior, para compreender 
melhor o processo: 



10 SCREEN 3 

30 VPOKE BASE(15)+I.O 

60 VPOKE BASE(17)+I,RND(1)«256 

Nas telas de texto, boa parte da me- 
mória é utilizada para armazenar os pa- 
drões das leiras — de uma forma seme- 
lhante aos padrões gráficos. Assim, 
quando colocamos na tabela de nomes 
um código ASCII, o computador mul- 
tiplica este valor por 8, para obter a pO' 
sição em que a forma de letra está ar- 
mazenada na tabela de padrões. O en 
dereço inicial desta tabela está em BA' 
SE (2), na tela de 40 colunas. O progra- 
ma a seguir mostra na tela estes padrões, 
depois de lê-los com VPEEK. 

10 SCREEN 0 

20 FOR 1-65 TO 191 

30 VPOKE BASE (01+1,1 

40 FOR J-0 TO 7 

50 A-VPEEK(BASE(2)+8*I+J) 

55 ZS-"00000000-+BINS(A) 

60 LOCATE 10,10+J:PRINT RIGHTS ( 

ZS.8) 

70 NEXT J:FOH K-l TO 500:NEXT K 
80 NEXT I 

Mude algumas linhas para obter o 
mesmo resultado na tela de 32 colunas, 
onde a tabela de padrões fica em BASE 
(5). 

10 SCREEN 1 

30 VPOKE BASE (5)+l , I 

50 A-VPEEK(BASE(7)+8*I+J) 

Na tela de 32 colunas podemos ob- 
ter também caracteres coloridos. Para 
isso, existe uma tabela de cores com ape- 
nas 32 posições. O número reduzido de 
posições significa que cada conjunto de 
oito caracteres terá necessariamente a 
mesma cor, conforme seu código ASCII 
— não conforme sua posição na tela. 

O programa seguinte demonstra isto, 
imprimindo todo o conjunto de carac- 
teres e depois enchendo a tabela de co- 
res — BASE (6) — com cores aleatórias. 

10 SCREEN l 

20 FOR 1-0 TO 255 

30 VPOKE BASE(5)+I,I 

40 NEXT I 

50 FOR 1-0 TO 31 

60 VPOKE BASE{6)+I,RND(1!*256 

70 NEXT 

60 GOTO 50 



A organização da memória de vídeo 
do MSX é complicada. Nossa intenção 
foi motivá-lo a conhecer melhor seu 
computador; em outra oportunidade, 
você poderá compreender com mais cla- 
reza a organização desta memória. 
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TIROU 



Os códigos de controle podem ser 
usados em um programa para acionar 
funções especiais e substituir comandos 
em BASIC. Veja seu emprego 
em micros de diferentes linhas. 



Anteriormente, vimos tomo utilizar 
códigos de controle dentro cie um pro- 
grama em BASIC, por meio da função 
CHRS. Esta retorna o caractere corres- 
pondente a um determinado código nu- 
mérico ASCII. Diversos exemplos fo- 
ram dados para micros da linha TRS-80. 

Agora vamos examinar como micros 
de outras linhas podem trabalhar com 
códigos de controle. 



[HE] 



Alguns computadores não permitem 
o acesso a todos os códigos de contro- 
le. Os da linha Apple II, por exemplo, 
ao contrário dos da linha TRS-80, tem 
poucos usos para a função CHRS com 
esta finalidade. 

Nos micros da linha Apple, como ve- 
remos adiante, a entrada dos códigos de 
controle é fciia comumente por meio do 
próprio teclado, pois este dispõe de uma 
tecla < CONTROL > , que é pressiona- 
da em combinação com outras. 



COMANDOS DO DOS 



Emprega-se muito a função CHRS 
para acionar comandos do DOS (siste- 
ma operacional de disquetes), a partir 
de programas em BASIC. O código de 
controle que possibilita o uso de um co- 
mando do DOS em um programa é o 4. 

Um comando do DOS em geral só 
pode ser utilizado de forma direta (sem 
ser precedido de uma linha de progra- 
ma). Se quisermos, por exemplo, exa- 
minar a lista de arquivos em um disque- 
te, digitamos o comando direto: 

CATALOC 

Se usarmos dentro de um programa: 
100 CATALOG 

... o comando não funcionará quando 
o programa for executado. Para que is- 
to ocorra, devemos colocar: 

100 PBIHT CHRS(4)+"CATAL0C" 

Quando esta linha é executada, o in- 
terpretador BASIC examina o primei- 
ro caractere da mensagem a ser trans- 
mitida para o vídeo, com o comando 
PRINT. Se ele tiver o código ASCII 



igual a 4, a mensagem será enviada ao 
sistema operacional, como se fosse uma 
frase de comando. 



ECONOMIZE MEMÓRIA 



Existem outras maneiras de se colo- 
car o código 4 em uma linha PRINT. O 
seguinte expediente economiza memó- 
ria, quando muitas linhas PRINT com 
CHRS (4) são necessárias ao programa: 

90 LET C4S-CHBSÍ4) 

100 PRINT C43 1 "CATALOG" 

110 PRINT C43:"BUN PROG2" 

Pode-se também pressionar as teclas 
< CONTROL > e D simultaneamente, 
logo depois das primeiras aspas que se 
seguem ao comando PRINT, e, em se- 
guida, continuar a digitar normalmen- 
te o comando do DOS que se deseja. 

Este método apresenta um inconve- 
niente: o código de controle 4 (que é in- 
serido por <CRTL> <D>) fica "in- 
visível" na listagem, podendo não ser 
notado posteriormente e nem aparecer 
na listagem da impressora. 

Em geral, o uso da tecla <CON- 
TROL> nos micros Apple dá acesso a 
uma série de funções via teclado. 



Existe uma boa razão para se usar có- 
digos de controle nos micros da linha 
Spectrum (como o TK-90X): economi- 
zar memória. Os códigos podem ser em- 
pregados para substituir as instruções 
PAPER, INK, BRIGHT e FLASH. São 
digitados ao se pressionar as teclas 
<CAPS SHIFT> e < SYMBOL 
SHIFT> e, em seguida, um número (o 
que equivale à tecla < CONTROL > de 
outros micros). O número determinará 
qual instrução está sendo substituída. 

Para PAPER, entre simplesmente o 
número da cor (1 a 7). Por exempio, 
usamos o 2 para a cor vermelha. 

Para INK, pressione <CAPS 
SHIFT> com o número da cor. 

Para obter BRIGHT, pressione o nú- 
mero 9 e, para desligá-lo, pressione 8. 

Finalmente, para obter FLASH, 
pressione <CAPS SHIFT>, seguido 
do número 9. Para desligá-lo, use o nú- 



mero 8. Lembre-se de pressionar 
<CAPS SHIFT> e < SYMBOL 
SHIFT> primeiro, de cada vez. Veja 
quanta memória foi economizada em 
uma linha como esta: 

10 PRINT PAPER 2; INK 6 : "MENU* 

As paJavras-chave PAPER e INK e 
os dois pontos e vírgulas ocupam 1 byte 
de memória cada, enquanto os números 
2 e 6 ocupam seis. Usando os códigos 
de controle, a linha ocupará apenas 1 
byte para o par de teclas SHIFT, mais 
I byte para o código de controle. Isto 
significa uma economia de seis bytes por 
instrução. Assim, um programa que 
usasse vários comandos de cor ficaria 
bem menor em tamanho. 

Estes comandos precisam ser digita- 
dos dentro de aspas para que funcionem 
corretamente. Portanto, no exemplo an- 
terior, digite primeiro: 
10 PRINT " 

... e em seguida digite os códigos de con- 
trole para PAPER 2 e INK 6, confor- 
me foi explicado acima, seguidos pelo 
restante da linha. Não se esqueça das as- 
pas finais. 

Os códigos não ocupam espaço visí- 
vel na listagem, mas funcionam imedia- 
tamente, produzindo texto colorido não 
só na listagem como na tela. 

Pode-se utilizar este recurso simples- 
mente para enfatizar determinados tre- 
chos de uma listagem de programa na 
tela. Neste caso, coloque os códigos de 
controle fora das aspas, a não ser que 
você queira que as cores também apa- 
reçam na tela. 



O procedimento descrito acima apre- 
senta um inconveniente: os códigos de 
controle ficam "invisíveis" na tela e na 
listagem da impressora, não podendo 
ser notados posteriormente. Se você qui- 
ser mudar alguma cor de frente (INK) 
ou de fundo (PAPER) no mesmo pro- 
grama, precisará apagar a parte inicial 
da linha (ou até ela toda, se não souber 
localizar onde estão os códigos de con- 
trole) e inserir novos códigos pelo mé- I 
todo acima. 
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Para descobrir os mais estranhos 
lugares sem sair de casa, basta entrar 
no mundo da aventura. Veja aqui como 
proceder para dar movimento ao 
aventureiro e iniciar as explorações. 



Você já digitou o programa conten- 
do as descrições dos locais que fazem 
parte desta aventura? Então deve estar 
ansioso para fazer com que o jogador 
comece a explorá-los, possibilitando-lhe 
deslocar -se de um loca! para outro. Pa- 
ra que isso aconteça, você precisará de- 
finir os movimentos possíveis a partir de 
um determinado local; deverá estabele- 
cer critérios que permitam julgar as res- 
postas dadas pelo jogador e, finalmen- 
te, determinar os caminhos que podem 
ser percorridos. 

Apresentaremos, adiante, algumas 
rotinas necessárias ao desenvolvimento 
do programa de aventuras. Estas roti- 
nas serão responsáveis pela correia des- 
crição da localização do jogador e pela 
apresentação das saídas que lhe serão 
permitidas. Você digitará cada opção e 
aprenderá a escrever a seção de progra- 
ma que movimenta o jogador no mun- 
do da aventura, de acordo com a opção 
que escolheu. 



15 indica a localização da 
porta de entrada da Cidade Oculta. Se 
você desejar que o jogador inicie a aven- 
tura em outro local, bastará mudar o va- 
lor da variável L. Adiante, você verá co- 
mo ajustar o valor de L durante o jogo, 
de modo que passe a indicar localização 
diferente. Por enquanto, devemos pre- 
parar o programa para receber do joga- 
dor informações indicativas do caminho 
que pretende seguir. 



Para que o computador possa com- 
preender e agir corretamente de acordo 
com as respostas dadas pelo jogador, 
você deve dar à máquina um conjunto 
de palavras que ela passe a identificar. 

Neste estágio, o computador precisa 
conhecer apenas as quatro direções, o 
que pode ser feito por meio do cordão 
RS. Esse cordão é carregado com as pa- 
lavras indicativas de direção, colocadas 
em uma instrução DATA. 



É fundamental conhecer a localiza- 
ção exala do jogador, a qualquer mo- 
mento, dentro do jogo. Para isso, o pro- 
grama usa uma variável L, que indica 
Local. O valor dessa variável muda de 
acordo com a localização do jogador, 
a cada movimento realizado. 

Para começar, você deve informar ao 
computador qual a posição do jogador 
no início da aventura. A primeira seção 
de um programa para fazer isso é dada 
em seguida. Carregue a parte do progra- 
ma que você já possui, por meio do co- 
mando LOAD, e adicione estas novas 
linhas: 



100 CLS : LET DA-0: LET TA-0: 
LET LA-0 

270 REM **POSICAO INICIAL*" 
280 LET L-15 
290 GOTO 330 



270 REM «*POSICAO INICIAL* 






110 REM * "PREPARAÇÃO DAS MATRI 
ZES DE RESPOSTAS** 
120 DIM RSU9.40): DIM RUS» 
130 FOR K-l TO 4: READ RSÍKJ.R 
(K) i NEXT K 

150 DATA "NORTE". 1. "SUL", 1,"LE 
STE" . 1 • "OESTE" , 1 



110 REM* «PREPARAR MATRIZES DAS 
RESPOSTAS** 
120 DIM RS (19) ,R<19) 
130 FOR K-l TO A rREAD RS(K).R(K 
) : NEXT 

150 DATA NORTE. 1. SUL. 1. LESTE. 1. 
OESTE 1 1 

Observe que as matrizes foram di- 
mensionadas na linha 120, podendo 
agora armazenar todas as respostas que 
o jogo requer. Como precisamos, ini- 
cialmente, de quatro direcões, apenas os 
quatro primeiros elementos das matri- 
zes RS e R serão utilizados. A instrução 
FOR... NEXT, na linha 130, que lê RS 
e R por meio do comando READ, va- 
ria, assim, de um a quatro. As direcões 
e os valores a ela associados estão colo- 
cados na instrução DATA, na linha 1 50. 

Essas informações, entretanto, ainda 
não podem ser usadas pelo jogador. An- 
tes, será necessário dotar o programa de 
uma rotina que indique onde eie está lo- 
calizado. 



COMO ENCONTRAS 0 LOCAL 



Para que o jogador saiba onde se en- 
contra, após efetuar cada movimento, 
é necessário fomecer-lhe uma descrição 
de sua posição. Você já digitou esta des- 
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criçâo. Ela está nas linhas de comentá- 
rios, que se iniciam com a palavra REM. 
Agora, só nos falta uma rotina que as- 
socie o número contido na variável L, 
que indica a posição, à descrição corres- 
pondente. Neste ponto, os usuários do 
Spectrum devem digitar uma rotina 



20 DIM GUI. 4): POKE 23658,8 
30 FOR N-l TO 4: FOR H-l TO 
11; READ G(M.N) : NEXT M: NEXT 
N 

40 DATA 0.0.0,5020,0.0.5050, 
5080,0,5110,0 

50 DATA 5140.0.0.5180,5210, 

5240.5270.5300,0,0,0 

60 DATA 0.5330.0,5360.0,0,0,0 

.0,0.0 

70 DATA 1010.1150.1240.1310, 

1410,1460,1500.1360,1080,1550 

,3110 

300 BEM **ACHAR O LOCAL** 
310 CLS 

330 IP L<11 THEN GOSUB G{L.l) 
: GOTO 400 

340 IF L<21 THEN GOSUB G{L-10 
.2) : GOTO 400 

350 IF L<26 THEN GOSUB G(L"20 



.3) 
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300 REM * "ACHAR LOCAL** 
310 CLS 

330 IF L<11 THEN ON L GOSUB 0.0 
,0.5020,0,0.5050.5080.0,5110: GO 
TO 400 

340 IF L<21 THEN ON L-10 GOSUB 
5140.0.0.5180,5210,5240,52 70,53 
00.0.0:GOTO 400 

350 IF L<26 THEN ON L-20 GOSUB 
0,5330.0.5360 

Anies de escrever esse tipo de rotina, 
verifique se o número correspondente a 
cada descrição de localização está cor- 
reio. Começando com a localização 1, 
faça uma lista dos números de linhas 
correspondentes a cada descrição. Se 
não houver descrição para uma deter- 
minada localização, escreva o número 
0. Nesta aventura, já dispomos de des- 
crição para a localização de número 4, 
mas não para as de número 1, 2 e 3. 

De posse do conjunto comendo os 
números de linhas correspondentes à 
descrição de cada localização, você po- 
de começar a escrever a rotina. Em to- 
dos os computadores, exceto o Spec- 
trum, esta rotina é constituída de uma 
sequência de operações que verifica o 
valor da variável L e usa o comando 
ON... GOSUB. No caso do Spectrum. 
[ que não possui este comando, o núme- 
; ro das linhas e obtido de uma matriz. 



Nos outros programas, o conjunto 
contendo os números de linhas está nas 
instruções colocadas nas linhas 330 a 
350. Inicia com a localização 1 no co- 
meço da linha 330 e termina com a lo- 
calização 24 no final da linha 350. 

No Spectrum, use o valor de L para 
ter acesso a um elemento da matriz cons- 
truído pelas instruções apresentadas nas 
linhas 20 e 30. Note que a matriz está 
superdimensionada em relação à quan- 
tidade de locais existentes na aventura. 
Os números excedentes são lodos iguais 
a zero e não lêm nenhuma influência no 
desenrolar da aventura. O dimensiona- 
mento extra foi feito porque a matriz se- 
rá utilizada em panes do programa que 
mais tarde apresentaremos. 

Uma observação válida somenie pa- 
ra os usuários do Spectrum: o coman- 
do POKE, na linha 20, Taz com que o 
computador aceite apenas letras maíús- 



das pelo jogador com as armazenadas 
na variável RS. 



APRESENTAÇÃO DAS DlflíCOES 



Além da descrição do local onde se 
encontra, o jogador lambem precisa co- 
nhecer as saídas disponíveis, O progra- 
ma deve verificar, pelas variáveis N, E. 
S, e W, quais são esias saídas. A infor- 
mação é necessária porque nem sempre 
se pode sair em todas as direçôes, estan- 
do em um determinado local. A próxi- 
ma seção do programa indica as saídas. 



•APONTAH DIRECOES* 
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400 IF DAOl THEN PBINT ' " POD 
E SEGUIR" ; 

410 IF N>0 THEN PBINT TAB 11; 
"NORTE" 

420 IF E>0 THEN PRINT TAB 11; 
■LESTE" 

430 IF S>0 THEN PRINT TAB 11 i 
"SUL" 

440 IF W>0 THEN PRINT TAB 11; 
"OESTE" 



as] 



390 REM «-APONTAR DIBECOES"" 
400 IF L < > 11 OR (LA - 1 AN 
D 0B{6) - - 1 THEN PRINT : PR 
INT "PODE SEGUIR ";: GOTO 410 



390 REM *" INDICAR DIRECOES"" 
400 IF LOll OR [LA=1 AND 0B(6) 
--11 THEN PRINT:PRINT"PODE SEGU 
IR " ; ELSE 460 

410 IF N>0 THEN PRINT TAB (13) 
NORTE" 

420 IF E>0 THEN PRINT TAB (13) : " 
LESTE" 

430 IF S>0 THEN FRINT TAB (13) ; " 
SUL" 



GOTO 460 
IF N > 0 THEN 
"NORTE" 
IF E > 0 THEN 
" LESTE" 
IF S > 0 THEN 
"SUL" 

IF W > 0 THEN 
"OESTE" 



PBINT TAB ( 
PRINT TA81 



PRINT TAB ( 



PRINT TAB ( 



riável for maior do que zero, a direção 
escolhida é uma direção possív;! — ou 
seja, é uma saída. Essa rotina pode ser 
utilizada, sem modificações, em qual- 
quer aventura que empregue um setora- 
mento desse tipo. 



Agora que o jogador conhece as di- 
rcçòes possíveis, podemos perguntar- 
Ihe: "PARA ONDE?". A rotina res- 
ponsável por esta pergunta e apresenta- 
da abaixo. 



A rotina apresentada simplesmente 
feri fica os valores das variáveis IN, 5. E, 
! W que você definiu, baseado em seu 
napa de localidades. Se o valor da va- 



450 REM "" INSTRUÇÕES"" 

460 INPUT INVERSE 1 ; * PARA OND 

E "; LINE IS 

470 GOSUB 3010 

515 GOTO G{I ,4) 
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III 



450 HEM ** INSTRUÇÕES** 

460 PRINT : INPUT"PÂRA ONDE" ; IS 

470 GOSUB 3010 



A resposta dada pelo jogador é arma- 
zenada na variável 1$. O programa ve- 
rificará o tipo de resposta e aluará de 
acordo. 

A próxima linha — linha 470 — des- 
via o fluxo do programa para uma sub- 
rotina localizada na linha 3010. Esta 
sub-rotina é responsável pela validação 
da resposta do jogador. 



600 REM ««ROTINA INdTR . ** 

610 LET IN-0: IF LEN YS>L£N XS 

THEN RETURN 
620 FOR K-l TO (LEN XS-LEN YS+ 

1) 

630 IF YS-XSCK TO K+LEN Y$-l) 

THEN LET IN-K: GOTO 650 

640 NEXT K 

650 RET'.;BN 
3000 REM "ROTINA VERIFICAÇÃO** 
3010 LET NS-"": LET XS-IS: LET 
YS-" ": GOSUB 600: LET I-IN 
3020 IF 1-0 THEN LET VS-IS : GO 
TO 3050 

3030 LET US-IS< TO 1-1) 
3040 LET NS-I$(I+1 TO ) 
3050 LET 1-0 
3060 FOR K-l TO 19 
3070 IF VS-RSÍK, TO LEN VS) THE 
N LET I-H(K): LET IS-VSÍ TO 1) 
3080 NEXT K 
3090 RETURN 



* INSTRUÇÃO DE CHECAGE 



3030 VS-LEFTS {IS , I~D 

3040 NS=MIDS(IS.I+1) 

3050 1-0 

3060 FOR K-l TO 19 

3070 IF INSTR (RS (K) . V$) =1 THEN 

I^R(K) :IS-LEFTS(VS,1) 

3080 NEXT 

3090 RETURN 



um 



3000 REM 
CAO** 
3010 NS - 
(IS) : IF 
THEN I - Z 
3015 NEXT 
3020 IF I 
TO 3050 
3030 VS - 
3040 NS - 
3050 I - 0 

3060 FOR K - 1 TO 19 

3070 IF VS • LEFTS (RS (K) 



"ROTINA DE VERIFICA 

" : FOR Z - 1 TO LEN 
MIDS (IS.Z.l) - " " 

GOTO 3020 
:I - 0 

- 0 THEN VS - IS: GO 



N (VS) ) THEN I - R(K):IS - LEF 
TS (VS.lí 
3090 NEXT 
3090 RETURN 

A rotina verifica se a variável IS com- 
põe-se de duas palavras. Em caso afir- 
mativo, a primeira palavra é chamada 
de VS e a segunda de NS. A variável VS 
contem um verbo — como PEGAR, 
MATAR, LEVAR — e todas as pala- 
vras indicativas de direção: NORTE, 
SUL, LESTE e OESTE. A variável NS 
armazena os nomes dos objetos que fa- 
zem parte da aventura. 

Os computadores TRS-Color e MSX 
usam o comando INSTR, na linha 3010, 
para verificar se há algum espaço ha res- 
posta que foi armazenada em 1$. Este 
espaço será indicativo da existência de 
duas palavras: a que pertence a V'$ e a 
que pertence a NS. No Specirum e no 
Apple não existe o comando INSTR. 
Para substitui-lo, usamos uma pequena 
sub-rotina, colocada nas linhas 600 a 
650. 

Se um espaço for encontrado, a ins- 
trução na linha 3030 separa 1$ em suas 
componentes VS e NS. Se não houver es- 
paço, a linha 3020 considera VS iaual a 
1$. 



PROGRAMAÇÃO DE JOGOS 



A pane final da sub rotina, composta 
pelas lintia-s 3060 a 3080, compara as res- 
postas dadas com o conteúdo da matriz 
RS. Como sabemos, a matriz RS con- 
tém as palavras indicativas das direçòes 
que podem ser seguidas. Depois você ve- 
rá como fazer para expandir o conteú- 
do da matriz RS. Pela instrução da li- 
nha 3070. o programa verifica se há 
igualdade entre os conteúdos RS e VS. 
Se houver, a variável I assume o valor 
da variável R. O programa reconhecerá 
a igualdade dos conteúdos verificando 
se o valor de I é maior que zero. A últi- 
ma parte da linha 3070 retira a primei- 
ra letra de VS e armazena-a na variável 
IS. A variável IS será utilizada depois, 
para fazer com que o jogador se mo- 
vimente. 

As sub-rotinas apresentadas adap- 
tam-se a qualquer aventura, sem neces- 
sidade de grandes modificações. Apenas 
um detalhe pode precisar de alguns ajus- 
tes: a duração do comando 
FOR...NEXT, na linha 3060. 



O passo seguinte consiste em adicio- 



)U ARE IN H 
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nar uma rotina destinada a manipular 
a variável L, indicativa de localização, 
de acordo com o valor assumido pela 
variável 1$. Esta rotina é apresentada em 
seguida: 



LÊ 

GOTO 310 

S-"L" AND E>0 THEN LE 

GOTO 310 

S-"S" AND S>0 THEN LE 
GOTO 310 

$-"0" AND W>0 THEN LE 
GOTO 310 

•*SE NAO HA LOCAL POSS 



T L-L-6 
1020 IF 
T L-L+l 
1030 IF 
T L-L+6 
1040 IF 
T L-L-l 
1050 BEM 
IVEL NESSA DIREÇÃO** 
1060 PRINT ' "DESCULPE , VOCE NAO 

PODE SEGUIR NESTA DIREÇÃO.": 
GOTO 330 



1000 REM ""ROTINA DE MOVIMENTO" 

1010 IF I$="N" AND N>0 THEN L=L 

-6: GOTO 310 

1020 IF IS-"L" AND E>0 THEN L-L 

+l:GOTO 310 



1030 IF I$S-"S" AND S>0 THEN L-L 

+6:GOTO 310 

1040 IF IS-"0" AND U>0 THEN L-L 

-l:GOT0 310 

1050 REM «*SE NAO HOUVER LOCAL 
POSSÍVEL NESSA DIREÇÃO** 
1060 PRINT :PRINT"DESCULPE - VOC 
E NAO PODE SEGUIR POR ESTE CAMI 
NHO. " :G0TO 330 

Como você está lembrado, o ponto 
de partida da aventura foi um mapa 
com uma largura de seis posições. Mo- 
ver o jogador por essas posições signi- 
fica alterar o valor da variável L por um 
fator baseado no tamanho do mapa. 
Por exemplo, para fazer com que o jo- 
gador se movimente nas direções Norte 
ou Sul basta adicionar ou subtrair seis 
da variável L. Isso fará com que o jc 
gador suba ou desça uma linha compli 
ia no mapa. De modo semelhante, mo- 
ver o jogador nas direções Leste ou Oes- 
te significa adicionar ou subtrair I de L. 

As instruções das linhas 1010 a 1040 
verificam o conteúdo da variável IS e 
ajustam o valor de L. As saídas possí- 
veis são definidas nas linhas que seguem 
as descrições dos locais. 

Sc não há uma saida na direção que 
o jogador escolheu, a linha 1060 apre- 
senta a mensagem: "DESCULPE — 
VOCÊ NÃO PODE SEGUIR POR ES- 
TE CAMINHO." 

Dimensionando adequadamente o 
mapa, você poderá utilizar essas rotinas 
em outros programas, bastando alterar 
as instruções das linhas 1010 e 1030. 

Grave o programa, e aguarde a con- 
tinuação da aventura. 
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ALFABETO COMPLETO 



Se você já dominou o uso das teclas 
centrais, é hora de treinar a 
datilografia com todo o alfabeto. Para 
isso, veja como alterar o programa 
apresentado no artigo anterior. 



No artigo da página 249 apresenta- 
mos a primeira parte de um programa 
completo para aprender datilografia. 
Tendo já dominado razoavelmente o 
uso das teclas da fileira do meio — ou 
seja, se você datilografa cerca de 15 pa- 
lavras por minuto, sem cometer nenhum 
erro — , é hora de passar para o segun- 
do estágio. 



Acrescentando as linhas que se se- 
guem ao programa do artigo anterior, 
você poderá treinar também as teclas da 
fileira de cima do teclado: a chamada fi- 



leira QWERTY (é desta fileira que vem 
o nome dado aos teclados usados em 
computadores). 

Carregue o programa antigo e digite 
as linhas que se seguem conforme o ti- 
po de seu microcomputador. Algumas 
delas substituirão linhas previamente 
existentes — que agora se tornaram des- 
necessárias — , ao passo que outras são 
totalmente novas. 



30 LET S$-"QAWSEDRFTGYHUJIKOL 



320 LET RN-INT (RND"19)+1 

330 PRINT AT 10 , RN+5 . ; "•" : LET 

RS-SS(RN) 

350 PRINT AT 10, RN+5;" " 
440 LET RN-INT (RND*19)+1 
530 PRINT AT 10.13;" 

PRINT AT 10,13;TS 
540 FOR M-l TO LEN TS: PRINT 
AT 9,11+H;" * 

610 FOR N-l TO 4: R ESTORE : 
LET RN-INT (RND*24)+1: FOR K-l 
TO RN: READ XS: NEXT K 
1010 PRINT AT 12,6;SS 
2000 DATA "QUEDA" , "TIRO" . "TROLE 
" , "POLE" , "GRALHA" , "RISO" . "PORTA 
" , "PATRULHA" . "URSO" ■ "PILHA" , "RU 
A" . "ILHA" 

2010 DATA "TULIPA", "PIOLHO", "IO 



L P 
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COMO ACRESCENTAR AS ■ COMO MUDAR 



TECLAS DAS FILEIRAS SUPERIOR 


AS PALAVRAS PARA 


E INFERIOR AO PROGRAMA 


TREINAMENTO 


■ POSIÇÃO DOS DEDOS NAS ■ 


PRATIQUE COM 



TECLAS DE OUTRAS FILEIRAS [ TODO O ALFABETO 



DO" . "PIADA" . "JAULA" . " FLORESTA" 
"OLHO" , "PODER" . "RATO" , "TROPA" , 1 
PISTOLA". "QUADRA" 



U 



10 OBS-"QAWSEDRFTGYHUJIKOLP" 

210 AP-1253 

220 FOR K-l TO 19 

230 AP-AP+1 

320 AP-1253+RNDU9) 

430 PS-MIDS(0BS.RNDU9) ,1) 

600 CLS:PS""" :FOR K-I TO 4 



9000 DATA QUARTO. LADO. FATOS. SER 
IA . GALHO . JATO , HARPA. LOTER IA . POR 
TA. QUILHA. SADIO . RALA , ORLA. ATILA 
9010 DATA EDITAR. TALHER, DIRETO. 
ULISSES . ILHA , FOGO . JULGAR . ASSADO 
, DERROTA , HULHA . GASODUTO , LATA . TI 
JOLO 



10 ObS-"QAWSEDRFTGYHUJIKOLPÇ" 
S-CHRS<219> :SS-"L1Q 02 G" 
210 AP-358 



10 OBS - "QAWSEDRFTGY 

HUJIKOLP;" 
210 AP - - 1 

220 FOR K-l TO 20:AP - AP + 
2: GOSUB 1100: NEXT 
320 AP - 1 + INT ( RND U) - 2 
0) • 2 

420 FOR K - 1 TO 20: PS - MIDS 

(OBS. INT ( RND (1) * 20) * 2 
+ 1,1) 

610 FOR K - 1 TO 5 : PS - PS + W 

Sí INT { RND (1) " 26) + 1) ♦ 



220 FOR K-l TO 20 
230 AP-AP+1 

320 AP-359+INT(RND(l>*20) 

430 PS-MIDS(OBS.INT(RND{1)*20)+ 

1.1) 

810 FOR K-l TO 4:PS-PS+WS(INT(R 
ND(1)*28)+1)+CHRS(32) : NEXT 
9000 DATA QUARTO . LADO , FATOS . SER 
IA , GALHO . JATO , HARPA , LOTERIA , POR 
TA, QUILHA, SADIO, RAÇA. ORLA, ATIÇA 
R 

9010 DATA EDITAR. TALHER, DIRETO, 
ULISSES . ILHA, FOGO , JULGAR, JULHO . 
ASSADO , DERROTA . HULHA , GASODUTO , L 
AÇO .TIJOLO 



9000 DATA QUARTO . LADO , FATOS , 
SER IA. GALHO . JATO . HARPA. LOTERIA , 
PORTA , QUILHA , SADIO . RALA . ORLA , AT 
ILA 

9010 DATA EDITAR, TALHER, DIRE 
TO .ULISSES , ILHA , FOGO , JULGAR , JUL 
HO , ASSADO . DERROTA , HULHA. GASODUT 
O , LACO . TIJOLO 

I 

Quando o programa for executado, 
a tela exibirá o menu usual, com cinco 
opções. O nível 1 exibe a sequência de 
letras QAWSEDRFTGYHUJIKOLP. 
Dependendo de seu computador, o te- 
clado também incluirá um caractere fi- 
nal: ; ou Ç. Da mesma forma que o pro- 
grama anterior, um asterisco imediata- 
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mente abaixo das letras na tela funcio- 
nará como um sinal de prontidão, ca- 
minhando da esquerda para a direita. 

Os níveis 2 e 3 funcionam exatamen- 
te como o primeiro, levando você a di- 
gitar os caracteres aleatoriamente, mas 
com uma série muito maior de leiras. 

Os níveis 4 e 5 são mais difíceis do 
que os anteriores, porque envolvem a di- 
gitação de palavras mais extensas, for- 
madas por letras das duas diferentes fi- 
leiras. 

Para começar a usar o programa, 
sente-se diante do teclado e posicione os 
dedos corretamente na fileira do meio. 
Tente digitar as teclas da linha superior 
movimentando apenas o dedo que for 
necessário para cada uma e não Ioda a 



# 

JftCft 



nor juntamente com as da fileira cen- 
tral, comece a usar as teclas da fileira 
inferior (Z, X, C, V, B, etc.) 

Nesta parte do curso, você ainda não 
trabalhará com as três fileiras. Antes 
disso, aprenderá a utilizar as teclas das 
fileiras central e inferior do teclado, si- 
multaneamente, com exercícios em cin- 
co níveis de dificuldade. 

Eis aqui as alterações que deverá efe- 
tuar: 



30 LET SS-"AZSXDCFVGBHNJMKL" 
210 FOR K-6 TO 21 
320 LET RN-INT <RND*16)+1 
440 LET RN-INT (RND*16)+1 



320 AP-1253+RNDU6) 
430 P$-MIDS(0BS.RND(16) .1) 
800 CLS:PS-"":FOR K-l TO S 
9000 DATA FACA, LAVA, LAMA. BALANC 
0 , VAGA , NASA . JACA . SAMBA . MACA , AVA 
NCA , VANDA , AJAX , CHAMADA , VALHALA, 
CALHA , CANSADA 

9010 DATA LAMBADA . BANANA , GAMBA . 
BANDA , CANA , ABAFA . CANAL HA . MASSA , 
ZAGA . MANHA , CASCA , SALVA 



D| CIT E 



nu 



10 OBS-"AZSXDCFVGBHNJMK.L.Ç":ZS 

-CHRS(219> :SS-"L10 02 G" 

220 FOR K-l TO 19 

320 AP-359+INT(RND(l)*19) 

430 P$-MIDS<0B$,INT(RND<1>*19)+ 

1 ,1) 

9000 DATA FACA. LAVA. LAMAÇAL, BAL 
ANCA . VAGA . NASA . JACA . SAMBA . MACA , 
AVANÇA , VANDA , AJAX , CHAMADA . VALHA 
LA, CALHA, CANSADA 

9010 DATA LAMBADA . BANANA , GAMBA , 
BANDA , CANA , ABAFA . CANALHA . MASSA . 
ZAGA , MANHA , CAÇA . BAÇA 



mão (veja a ilustração). Utilize o dedo 
mínimo da mão esquerda para acionar 
o Q ou o A, o dedo anular para o S e 
o W, e assim por diante, até o dedo mí- 
nimo da mão direita, que deve ser usa- 
do para acionar a tecla P. Os dedos in- 
dicadores trabalharão mais que todos — 
o indicador esquerdo será utilizado pa- 
ra o F, G, R e T, enquanto o indicador 
direito se encarregará das letras H, J, Y 
e V. Depois de ter pressionado uma te- 
cla da fileira superior, volte com o de- 
do à posição inicial, na tecla de apoio. 



Quando estiver digitando com preci- 
são e rapidez as teclas da fileira supe- 



610 FOR N-l TO 5: RESTORE : 
LET RN-INT ÍRND*24)+1; FOR K-l 
TO RN: READ XS : NEXT K 

1010 PRINT AT 12.6;"SS" 

2000 DATA "CASA", "FACA". "VAZA" , 

"LAVA" , "MACA" , "VACA" , "BABACA" . " 

JACA" , "JAZZ" , "BANDA" , "BALA" , "CA 

LCA" 

2010 DATA "SALVA". "CALA". "AMA", 
" FALA" . "DA" , "AFAGA" . "ALCANÇA* . " 
MANHA" . "CANA" . "LAZANHA" , "SAGA" . 
"CHAMA" 



u 



XDCFVGBH 



10 0B$ - "A Z í 

N J M K , L . |* 
220 FOR K - 1 TO 19: AP - AP 

2: GOSUB 1100: NEXT 

320 AP - 1 + INT ( RND (1) 
9} * 2 
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VANCA , VANDA . AJAX . CHAMADA . UALHAL 
A, CALHA. CANSADA 

90 10 DATA LAMBADA , BANANA . BAN 
DA . CANA .ABAFA , CANALHA . MASSA . ZAG 
A . MANHA , CALA , BALA. GAMBA 

Com esse programa, você também 
fará exercícios em cinco níveis de difi- 
culdade, mas com palavras que utilizam 
as leiras das fileiras centra! e inferior do 
teclado. 

Mais uma vez, sente-se diante do te- 



clado, com os dedos posicionados cor- 
retamente. Agora você movimentará 
seus dedos para baixo, para a fileira in- 
ferior, antes de retornar às teclas de 
apoio. O dedo mínimo da mão esquer- 
da irá pressionar o A e o Z, o anular o 
S e o X e assim por diante. O dedo indi- 
cador da mão esquerda será utilizado 
para as letras F, G, V e B, e o indicador 
da mão direita para H, J, N e M. Os de- 
dos restantes deverão operar as teclas 



de pontuação situadas na fileira infe- 
rior, em posições que variam de tecla- 
do para teclado. No Spectrum, elas não 
estão disponíveis sem o < SYMBOL 
SHIFT > , cujo emprego será explicado 
futuramente. 

Observe que essas teclas não estão in- 
cluídas nos testes de palavras — você de- 
verá praticar a pontuação com um pro- 
grama adicional, que apresentaremos 
em artigo posterior. 





UIIIIIIIIMHHi / apuoçOb 7 illllllli j 



O ALFABETO COMPLETO 



Depois de dominar o uso conjunto 
das teclas das fileiras superior e inferior 
do teclado, você estará apto a ingressar 
no estágio seguinte do curso. Afinal, vo- 
cê poderá praticar a datilografia utilizan- 
do todo o alfabeto. Apenas as teclas de 
números e de pontuação permanecerão 
temporariamente excluídas do treino. 

Eis aqui as alterações que deverá efe- 
tuar no programa: 



30 LET SS-"QAZWSXEDCRFVTGBYHN 

UJMIK0LP' 

40 FOR K-2 TO 27 
230 LET RS-SS(K-l) 
320 LET RN-INT (RND"26)+1 
330 PRINT AT 1Q.RN+1;""": LET 
RS-SS(RN) 

350 PRINT AT 10.HN+1;" " 

440 LET RN-INT (RND*26>+1 

530 PRINT AT 10,13:" 

": PRINT AT 10,13;TS 

540 FOR H-l TO LEN T$ : PRINT 

AT 9,11+M:" ■ 

610 FOR N-l TO 5: RESTORE : 
LET RN-INT (RND*24)+1: FOR K-l 
TO RN: READ XS : NEXT K 
1010 PRINT AT 12,2:SS 
2000 DATA "QUIETO" , "LONGE" . "ASI 
LO" , "MENTE" , "LOCAL" , "TRADIÇÃO" , 
"RESPOSTA" , "ATRAVÉS" , "DRIBLE" , " 
RETORNO" , "DESPEDIDA" , "ESCRITA" 
2010 DATA " ESCOLA" , "INFERNO" , "P 
ROFESSOR" , "CHATO" , "TELEVISÃO" , " 
BURRA" , "ESPORTE" , "BOM" , "COMPUTA 
DOR" , "MELHOR" . " INPUT" , "PERFEITO 



■ ■ 



10 OB$-"QAZWSXEDCRFVTGBYHNUJMtK 
OLP" 

210 AP-1248 

220 FOR K-l TO 26 

320 AP-1248+RND(26) 

430 PS-M1DS (OB$,RND(26) ,1) 

800 CLS:PS""":F0R K-l TO 4 

1020 PRINT 6257, OB3 

9000 DATA MARIA, MULHER, JEITO, CH 

EGAR , QUENTE , COSTUME , LOCAL . BONIT 

A, DECOTE , CONVERSA , ÚTERO . JAPÃO , C 

ORRIDA.AZUL 

9010 DATA BANDEIRA. AVIÃO, VAZIO, 
ABERTO . HÁLITO . XAXADO , ALCALINO , U 
NIDOS , PRESSA, QUERIDA , GUARDIÃO . A 
BOBORA , NAVIO . REMORSO 



430 PS-MIDS(OB$.INT(RND(l)*29)+ 
1.1) 

1010 LOCATE 0,12:PRINTOBS 
9000 DATA MARIA, MULHER. JEITO, CH 
EGAR , QUENTE . COSTUME . CANÇÃO , BONI 
TA , DECOTE . CONVERSA. ÚTERO . JAPSO . 
CORRIDA, AZUL 

9010 DATA BANDEIRA, AVIÃO, VAZIO, 
ABERTO . HÁLITO . XAXADO , ALCALINO . U 
NIDOS , PRESSA, QUERIDA , GUARDIÃO , A 
BOBORA . NAVIO . REMORSO 



10 OBS - "QAZWSXEDCRFVTGBYHNUJM 

IK.OL.P;" 

210 AP - 0 

220 FOR K - 1 TO 29:AP - AP + 
1: COSUB 1100: NEXT 
320 AP - 1 + INT { RND 11) * 2 
9) 
420 

to 

1) 

9000 DATA MARIA. MULHEH. JEITO. 
CHEGAR . QUENTE , COSTUME . CANCAO , BO 
NITA . DECOTE , CONVERSA , ÚTERO . JAPA 
O. CORRIDA. AZUL 

9010 DATA BANDEIRA. AVIÃO, VAZI 
O , ABERTO , HÁLITO , XAXADO , ALCALINO 

. UNIDOS , PRESSA, QUERIDA . GUARDIÃO 

. ABÓBORA, NAVIO . REMORSO 

Como acontece com todos os progra- 
mas deste curso, assim que você estiver 
familiarizado com as palavras constan- 
tes nas declarações DATA, poderá tro- 
cá-las por novas palavras. Quase sem- 
pre, os programas para outras máqui- 
nas incluem palavras diferentes. Se qui- 
ser, aproveíte-as em seu computador, 
mas verifique se não está utilizando um 
número de palavras menor que o do 
programa original. Caso isso ocorra, vo- 
cê obterá uma mensagem de erro OUT 
OF DATA, E, se colocar mais palavras 
do que as existentes, elas não serão li- 
das pelo computador, a menos que vo- 
cê modifique o programa. 

Siga as cinco lições, como nos está- 
gios anteriores. Lembre-se sempre de co- 
locar os dedos de volta nas posições cor- 
retas de apoio, na fileira do meio, toda 
vez que pressionar uma tecla das carrei- 
ras inferior ou superior. 



210 AP-353 
. 220 FOR K-l TO 29 
320 AP-353+INT(RNDU)*29) 



Na medida em que o curso for progre- 
dindo, você terá a oportunidade de se 
aperfeiçoar cada vez mais, adquirindo 
velocidade e precisão na datilografia 
com todas as letras do alfabeto. Em se- 
guida, começará a praticar com as teclas 
de números e de pontuação — essenciais 
para a digitação das listagens de pro- 
gramas. 




Como acentuar textos em portu- 
guês em um microcomputador? 

Depende muito da linha ou da mar- 
ca do micro. O problema não toi tecni- 
camente resolvido de maneira unifor- 
me pelos fabricantes nacionais, pois 
durante muito tempo não houve um pa- 
drão industrial obrigatório. Entre os 
computadores pessoais cobertos por 
INPUT, apenas os micros da linha MSX 
seguem o padrão aluai de representa- 
ção dos sinais característicos da língua 
portuguesa — o chamado BRASCIl. 
que é a extensão brasileira do código 
ASCII. 

O BRASCIl, além de definir os códi- 
gos numéricos para as letras acentua- 
das iá, à, Á, Á, ó, etc), determina ain- 
da a localização padronizada da cedi- 
lha e dos acentos grave, agudo, til e cir- 
cunflexo, no teclado do microcompu- 
tador. Portanto, a maneira de usá-los, 
na datilografia, é idêntica à de uma má- 
quina de escrever. Da mesma forma, o 
comportamento do teclado e do vídeo, 
durante a datilografia das letras acen- 
tuadas, deve ser igual: por exemplo, ao 
se pressionar a tecla com o til, este si- 
nal aparece no vfdeo, e o cursor fica pa- 
rado no mesmo lugar; ao se pressionar 
a letra a, ela aparece imediatamente 
abaixo do acento. 

Os micros de outras linhas (Apple II, 
TRS-80, TRS-Color e Sinclair), por se- 
rem copiados de modelos norte-ame- 
ricanos e ingleses, dão ao problema 
respostas diferentes. As soluções ado- 
tadas variam de um teclado inteiramen- 
te compatível com o de uma máquina 
de escrever [por exemplo, o Microen- 
genho II, da Spectrum, que pertence à 
linha Apple), até a impossibilidade to- 
tal de acentuação (micros compatíveis 
com as linhas Sinclair ZX-81 e TRS- 
Color). 

Alguns micros brasileiros da linha 
Apple adotaram o padrão do chamado 
teclado inteligente, ou teclado profis- 
sional, em que certas teclas são usa- 
das para digitar a letra já acentuada, 
com uma única pressão, A localização 
destas teclas não coincide, evidente- 
mente, com a de uma máquina de es- 
crever, e seu acionamento depende da 
pressão simultânea de uma ou mais te- 
clas adicionais de controle. Este proce- 
dimento dificulta a datilografia, pois di- 
fere muito da maneire natural de se 
usar uma máquina de escrever e com- 
promete bastante a velocidade da di- 
gitação. 



8 APLICAÇÕES B 



■ 


ACRESCENTE NÚMEROS 


■ 


A TECLA <SHIFT> 


■ 


DESENVOLVA UM RITMO 


REGULAR 


■ 


VELOCIDADE E PRECISÃO 



Divirta se com um joguinho de ação 
rápida e aprenda ao mesmo 
tempo a trabalhar com as teclas de 
números, ampliando a sua 
habilidade como datilógrafo. 



Depois de ter estudado as duas pri- 
meiras lições de dati logra l ia, você já está 
provavelmente familiarizado com as te- 
clas de letras e com os sinais de pontua- 
ção das três fileiras inferiores do tecla- 
do. Até agora, porém, não tocamos nas 
importantes teclas numéricas (muito 
usadas, aliás, na digitação de pro- 
gramas.) 

Da mesma forma, ainda não ensina- 
mos as formas de manipulação das te- 
clas para se obter letras maiúsculas ou 
minúsculas, nem explicamos os sinais de 
pontuação adicionais e demais símbolos 
disponíveis no teclado. 

Esta lição será dedicada às teclas ain- 
da não estudadas. Nela. apresentaremos 
também um pequeno e divertido exer- 
cício, que fará com que você melhore a 
sua velocidade, precisão e ritmo no tra- 
balho com o teclado. 



ACRESCENTANDO OS NÚMEROS 



Para treinarmos a datilografia com 
a fileira do teclado que contém os alga- 
rismos, basta fazer algumas modifica- 
ções no programa apresentado nas lições 
anteriores do curso (páginas 253 e 276). 

Desta forma, carregue o último pro- 
grama utilizado e digite as linhas adicio- 
nais, expostas a seguir. Como você ve- 
rá, algumas delas irão apenas substituir 
linhas já existentes, ao passo que outras 
serão adicionadas ao programa: 



30 LET SS-"1A2S3D4F5C6H7J8K9L 
0" 

210 F0B K-6 TO 24 

230 LET RO-SStK-5) 

320 LET RN-INT (RND"19) 1 

330 PRINT AT 10 , RN+5 ; "«* : LET 

RS-SS(RN) 

350 PBINT AT 10, RN+5;" " 



440 LET RN-INT (RND*19)+1 

530 PRINT AT 10, 13;" 

" : PRINT AT 10, 13:Tfi 

540 FOB M-l TO LEN TS : PRINT 

AT 9,11+M;" * 

610 FOR N-l TO 5: RESTOHE : 
LET RN-INT £RND*24>+1: FOB K-l 
TO RN: READ XS: NEXT K 
1010 PRINT AT 12.6;S$ 
2000 DATA "MC6809E" , "VALOR" , "UL 
TIMO" . "ZB0A" , "RELAXE" . "6502" . "A 
37X2" . "1024" . "VASTO" . "JUNCO" . "R 
ETORNO" , " 6 7 V DG " 

2010 DATA "APENAS" . "AGITADO" , "7 
4LS83" , "REDONDO" . "LINEAR" , "1986 
" . "30123" , "CONGELADO" . "4MHZ" , "W 
X101" . "64MB" . "VÍDEO" 



D 



10 OB$-"lA2S3D4F5G6H7JBK9L0:-;" 

210 AP-1252 

220 FOR K-l TO 22 

320 AP-1252+RND(22) 

430 PS-MIDS (0BS.RND(22) , 1) 

1020 PRINT @261.0BS 

9000 DATA MC6809E, VALOR, "ULTIMO 

: " .Z80A. RELAXE. 6502, A37XZ, -1024 

, VASTO . JUNCO 

9010 DATA RETURN.A847UDG.145.22 
. "APENAS." .AGITADO. 74LS83. -93. 4 
1 , REDONDO , LINEAR 

9020 DATA PROCESSO . CONGELADO . TR 
A2 , 1986 . DESENHO , SANGUE . 842 . 52 . " 
301.123-.350KG 



10 OBS - "1A2S3D4F5O6H7J8K9L0; : 
210 AP - 8 

220 FOR K - 1 TO 22:AP - AP + 

1: COSUB 1100: NEXT 

320 AP - 9 + INT ( RN D tl) - 2 



1) 

640 P - 1: VTAB 11: HTAB 2: PRI 
NT PS 

660 VTAB 15: HTAB P + 1: PRINT 

MID3 (PS.P.l) 
1010 VTAB 12: HTAB 9: PBINT OB 
S 

9000 DATA MC6809E, VALOR, "ULTI 
MO:",Z80A.RELAXE,6502.A37XZ,-10 
24, VASTO. JUNCO 

9010 DATA BETURN,AB47VDG.145. 
22 , "APENAS , " , AGITADO , 74LS83 . -93 
.41, REDONDO, LINEAR 
9020 DATA PBOCESSO, CONGELADO 



10 0BS-"1A2S3D4F5G6H7J8K9LQÇ--" 

:ZS-CHR$(219) :SS-"L10 02 G" 

21D AP-355 

220 FOB K-l TO 22 

320 AP-356+INT(RND(l)*22) 

430 PS-MIDS(OBS,INT[RNDU)*22) + 

1.1) 

1010 LOCATE 2,12:PRINTOBS 
9000 DATA MC6B09E. VALOR. "ULTIMO 
: " ,Z80A, RELAXE. 6502. A37XZ. -1024 
. VASTO, JUNCO 

9010 DATA RETURN, A847VDG . 145 . 22 
, "SOMENTE.". AGITAR, 74LS83. -93. 4 
1 , CIRCULO , LINEAB 

9020 DATA PBOCESSO. FBIO, TRAZ. 19 
86, DESENHO, SANGUE, 842 . 52 , CAÇA. 3 
50KG 

Quando o programa for rodado, um 
menu contendo os cinco níveis já conhe- 
cidos será apresentado na tela: você de- 
verá então optar por um deles. Como 
das vezes anteriores, existirão muitas 
combinações possíveis, dependendo do 
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número de teclas a serem incluídas nos 
exercícios. Nos níveis mais baixos de di- 
ficuldade, o computador proporá exer- 
cícios em que as teclas numéricas e, al- 
gumas vezes, de pontuação serão com- 
binadas aleatoriamente com as outras 
teclas, que você já conhece das duas pri- 
meiras lições. Essa combinação dificul- 
tará as coisas para você, e o obrigará a 
não se concentrar apenas nas teclas nu- 
méricas. 

Nos níveis mais altos de dificuldade, 
o computador pedirá que você digite 
uma mistura de palavras, grupos de nú- 
meros e combinações de letras e algaris- 
mos. As paiavras e números seleciona- 
dos sa encontram nas declarações DA- 
TA, quase no final do programa. Eles 
podem ser trocados, caso você queira 
aumentar o desafio depois de se fami- 
liarizar bem com os exercícios originais. 
Entretanto, lembre-se de manter o mes- 
mo número de palavras (ou grupo de ca- 
racteres); do contrário, ocorrerá um er- 
ro de execução quando o programa não 
encontrar o número correio de itens em 
DATA 

Uma vez dominadas as Teclas numé- 
ricas, passe para a lição seguinte, cujo 
objetivo é praticar com os caracteres 
acessíveis ape nas por intermédio da te- 
cia <SHIFT>. 



AS LETRAS MAIÚSCULAS 



A tecla <SHIFT> corresponde à 
alavanca de maiúsculas de uma máqui- 
na de escrever comum. Em alguns com- 
putadores, essa função também pode ser 
desempenhada pela <CAPS LOCK>. 
Para aprender a usá-las, adicione as li- 
nhas abaixo à última versão do progra- 
ma (novamente, algumas linhas serão 
inteiramente substituídas): 



20 POKE 23658,0: LET ER-Q 
30 LET SS-"A!aSesDídFSfCtgHa.h 
J')K<1(L]I0" 
210 FOR K-2 TO 29 
230 LET RS-SSÍK-l) 
320 LET RN-INT (RND*28)+1 
330 PRINT AT 10 . RN*1 ; "*" : LET 
RS-SS(RN) 

350 PRINT AT ÍO.GN+I;" " 
440 LET RN-INT [RND*28>+1 
610 FOR N-l TO 4: RESTORE : 
LET RN-INT (RND*24) +1 : FOR K-l 
TO RN: READ XS : NEXT K 
1010 PRINT AT 12.2;SS 
2000 DATA -S235. 50-, "PRINT*". "í. 
H1200".-23.St" , "Conta" , "LONDRES 
" ."Eles" ."158112"." (abaixo) ". "H 
+9-1D" ,"**0b3**" , "Fogo I ! " 
2010 DATA ";-;;-;", "Extra" , "Bei 



ja-f lor" , "Lugar" , "4*4-16" , "fiuen 
?" . "6: lOpm" . "Noa" , "S15. 40" . "Dir 
igir" . "ATENÇÃO" , "100/4" 



U 



10 0B$-"!A"+CHR$(34) + "S#D$FIG1.H 

' J(K)L*-+" 

20 POKE 282,0:CLS 

210 AP-1250 

220 FOR K-l TO 21 

320 AP-1250+RND<21) 

430 PS-HIDS(OB$.RND<21) ,1) 

999 POKE 282.255:CLS:END 

1020 PRINT «259, OB3 

9000 DATA PRINTt. Mostre, S.H4000, 

Fora! ! , (abaixo) , H+9-1D . S500 . 10 , 

D/100t.Eles.**obs** 

9010 DATA Extra, Carga. DIÁRIO. Co 

nta. Mes. Resposta. Ho je, Gerente. S 

etor 

9020 DATA LONDRES , Concha , Toque . 
; - ; ;- ; , Sucesso , Bei ja- flor . Lusar 
, Campo , Di r et o 



10 OBS - " !A" + CHRS (34) + 
ID3FIG&.H' J(K)L + *-<>7" 
220 FOR K-l TO 24:AP - AP 
1: GOSUB 1100: NEXT 
320 AP - 9 * INT ( RN D (1) 
5) 
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9000 DATA PR| .Mostre. 3H4000 , F 
ora! !. (abaixo) .H + 9 - lD.CzS 5 
00. 10. D/100 t. Eles. «*Obs*« 
9010 DATA Extra. Carga, Di ar lo. 
Conta, Hea, Hoje. Resposta. Gerente 

9020 DATA LONDRES , Concha , Toqu 
e, :-; ;-: . Sucesso . Bei ja-flor , Lug 
ar .Campo. Direto 



10 0B$-"!AeS|D$FtG-+CHRS<34)+"H 

U*K(L)Ç_+?>-:ZS-CHRS (219) :SS-" 

LIO 02 G" 

220 FOR K-l TO 24 

320 AP-3S6+INT(RND(1)*24) 

430 PS-MIDS(OBS.INT(RND(l)*24)+ 

1.1) 

9000 DATA PRINTI. Mostra. 1.H4000. 
Fora! !. (abaixo) .H + 9 - lD.CzS 
500.10.D/100í,Eles."* 0b9 ** 
9010 DATA Extra. Cargo, DIÁRIO, Co 
nta , Mia, Resposta. Hoje. Gerente , S 

9020 DATA LONDRES , Concha , Toque , 
; ?;?, Sucesso, Bel ja-f lor . Lugar .C 
upOtGula 



cia <CAPS> está desaiivada. 

Os níveis mais baixos de dificuldade 
do programa apresentam agora os ca- 
racteres que só estão disponíveis quan- 
do as teclas são pressionadas simulta- 
neamente com o comando < SHIFT > : 
pontuação, símbolos matemáticos, etc... 
Eles estão misturados com as letras da 
fileira central do teclado, o que signifi- 
ca que você deve retornar a eles toda vez 
que pressioná-los. 

Nos níveis mais altos são apresenta- 
dos palavras e grupos de caracteres de 
uma lista interna, tal como antes; ago- 
ra, porém, você encontrará as letras 
maiúsculas e outros símbolos que só po- 
dem ser obtidos com o < SHIFT > , mis- 
turados com as letras minúsculas. 

Conhecidos esses exemplos particu- 
lares de teste, substitua as declarações 
DATA por um novo conjunto de dados 
(lembre-se de manter o mesmo número 
total de palavras). 

Passe para a próxima seção apenas 



datilografia consiste em pressionar as te- 
clas ao compasso de um metrõnomo 
(instrumento que serve para regular os 
andamentos musicais). Este deve ser 
acelerado á medida que o movimento de 
seus dedos se tornar mais rápido e 
preciso. 

Mas por que dar-se ao trabalho de 
utilizar um metrõnomo, quando o seu 
computador possui um relógio embuti- 
do? O próximo programa ê um novo e 
completo exercício de digitação, plane- 
jado como um jogo, onde a contagem 
depende do seu desempenho no teclado. 
Ele é composto por duas partes. A pri- 
meira, exibe uma linha de caracteres se- 
lecionada aleatoriamente — você tem 
que digitar, em sequência, os caracteres 
à medida que forem aparecendo. A se- 
gunda parte é mais difícil — agora, os 
caracteres são lançados aleatoriamente 
na tela, um por um; deste modo, você 
não tem idéía do que virá a seguir. 



0ICITE AS PALAURAS 



lC lCAD* 



««to/C, 




O TRS-Color não imprime letras mi- 
núsculas na tela. Em vez disso, exibe-as 
em vídeo inverso (letras claras sobre 
fundo escuro). 

Nos micros da linha Apple que dis- 
põem de minúsculas, mude a tecla sele- 
tora para minúsculas ao digitar as linhas 
DATA. Infelizmente, os micros da linha 
Apple 11+ padrão, que não contam 
com letras minúsculas, não conseguirão 
rodar o programa a seguir. Nos micros 
da Unha MSX, certifique-se de que a te- 
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quando estiver encontrando — sem he- 
sitação e sem olhar para o teclado — to- 
dos os caracteres com que treinou. 



JOGO DE VELOCIDADE 



Um dos modos mais eficazes de se 
melhorar a precisão e a velocidade de 



■- ■= "Vir I. 



Antes de iniciar o teste, selecione o 
seu próprio nivel de dificuldade. Isso de- 
ve ser feito dizendo-se ao computador 
com que velocidade você quer que as le- 
tras sejam exibidas — em outras pala- 
vras, quantos caracteres por minuto vo- 
cê quer digitar. Então, o computador es- 
tabelecerá um tempo limitado, dentro 
do qual você deve digitar cada caracte- 
re; do contrário, será emitida uma con- 
tagem de erros. No primeiro nível, isso 
é feito por intermédio de um indicador 
móvel que mostra qual letra deveria es- 
tar sendo digitada; no segundo nivel, o 
caractere é iluminado por algum tempo. 

Ao começar o primeiro teste, você 
pode escolher se quer o teclado normal 
(com letras, apenas) ou teclado comple- 
to (com todos os símbolos). E antes de 
passar para o segundo nivel (o teste dos 
caracteres) você deve decidir quanto 
tempo é capaz de sustentá-lo. O compu- 
tador perguntará quantos caracteres, no 
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total, você quer que Façam parle do 
teste. 

Imediatamente depois de ter exibido 
todos os caracteres, o computador pa- 
rará e fornecerá uma contagem basea- 
da nos seus erros. 

Não é apenas a velocidade total de di- 
gitação no computador que conta nesse 
teste de desafio: você precisará também 
desenvolver um ritmo constante. Para 
ajudá-lo a adquirir esse ritmo, o com- 
putador dará um sinal sonoro assim co- 
mo um sinal visual de prontidão para ca- 
da letra. 

Agora digite o programa propria- 
mente dito, e leste a sua habilidade co- 
mo datilógrafo: 



10 BORDER 7: PAPER 7: INK 0: 
CLS 

20 LET aS""ABCDEFGHI JKLMNOPQR 
STUVWXYZ" 

30 LET a$-aS+"abcdefghi jkl 



40 LET aS-aS+"1234567890!6ISt 
50 LET- aS-aS*CHRS (34)+"<>;-+ 



60 PRINT INVERSE 1 ; AT 6,7;" 

TESTE 1 OU 2 ? " 

70 IF INKEY5-"" THEN GOTO 70 



80 LET iS-INKEYS: IF Í$-"2" 

THEN GOTO 400 

90 IF 1S<>"1" THEN GOTO 70 
100 CLS : INPUT "Quantos carac 
tereg por minuto? " ;cpm 
110 LET t-3000/cpra 
120 LET aS-"" 
130 FOR n-1 TO 30 
140 LET sS-aS+aS(INT <RND*84)+ 
1) 

150 NEXT n 

160 PRINT BRIGHT 1 ; AT ll.l;s$ 
200 GOSUB 800: LET er-0 : FOR r 
-1 TO 30 

210 POKE 23672,0: POKE 23673,0 

220 PRINT AT 10,r-lí" «" 

230 SOUND .02.20 

240 IF PEEK 23672+256*PEEK 

23673>-t THEN LET er-er + 1 : 



GOTO 300 

250 LET iS-INKEYS: IF iS-"" 
THEN GOTO 240 

260 IF i$-3$(r) THEN PRINT AT 

12. r;"~": GOTO 280 

270 LET er-er+1 

280 IF PEEK 23672+256-PEEK 

23673<t THEN GOTO 280 

300 NEXT r 

310 PRINT AT 16,3;-V0CE ERROU 
";er;" DAS 30" 
320 FOR f-1 TO 200: NEXT f 
330 GOTO 20 

400 CLS : INPUT "Numero de tec 

las por minuto? " ;cpm 

410 INPUT "Numero de. caractere 

420 INPUT "(N)ormal ou (E)aten 
dido? "; LINE io$ 
430 IF mS-"N" OR mS-"n" THEN 
LET a$-a$< TO 52}: GOTO 450 
440 IF mSO"E" AND m$<>"e" 
THEN GOTO 420 
450 LET t-3000/cpm 
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460 GOSUB 800 

470 LET er-0 

480 FOR n-1 TO r 

490 POKE 23672.0: POKE 23673,0 

500 LET rS-aS(INT (BND-LEN aS) 

+1» 

510 PBINT INVEBSE 1;AT 10,15; 
rS; INVERSE 0;AT 11,15;" " 
520 SOUND .02,20 
530 IF PEEK 23672+256*PEEK 
23673>-t THEN LET er-er + 1 : 
GOTO 580 

540 LET l$-INKEYS: 1F lS-"" 
THEN GOTO 530 

550 IF iS-rS THEN PRINT AT 11 
.15;""": GOTO 570 
560 LET er-er+1 
570 IF PEEK 23672+256*PEEK 
23673<t THEN GOTO 570 
580 NEXT n 

590 PHINT AT 16,3;"VOCE ERROU 
-;er;" DAS ";n-l 



30 PR1NT §10 2, "DIGITE (0) PARA 430 

SAIR" 440 

40 A$=INKEYS:IF A$C"0" OR A5>"2 450 

" THEN 40 0,1 

50 ON VAL (AS)+1 GOSUB 1000,600 460 

,200 470 

60 POKE 262.255 480 
70 ER-0 :WS=" " :BS-=" " 490 

80 GOTO 20 490 

200 CLS:INPUT"DIGITE QUANTAS TE 500 

CLAS PRESSIONADAS POR MINUTO" ; K 510 

P CLAS 

210 IF KP<1 THEN 200 S20 . 

220 INPUT "DIGITE O NUMERO DE C ;NM 

ARACTERES ";NC 530 RETURN 
230 IF NC<1 THEN 220 
240 NM=NC 



TIMER-0 

AS-INKEY$:IF AS-"" THEN 460 
BS-AS:IF BS-WS THEN SCREEN 

IF TIMERCTM THEN 440 
SOUND 150,1 

IF BSOWS THEN ER-ER + 1 : GOTO 

POKE 1295,128 
NC-NC-1:IF NO0 THEN 400 
CLS:PRINT @448 . "COM" ; KP ; "TE 
PRESSIONADAS POR MINUTO" 
RINT "VOCE ERROU" ; ER; "DAS" 




^600 FOR £-1 TO 200; NEXT 
610 GOTO 20 
800 LET cS-"5. .4. . 3. .2. . 
810 FOR n-1 TO 16 
820 PRINT AT 2.5+n;cS(n) 
830 PAUSE 10 
840 NEXT n 
B50 SOUND .2,10 
860 PRINT AT 2.0;TAB 31; 
870 RETURN 



250 PRINT : PRINT" NORMAL OU ESTEN 
DIDO (N/E)?" 

260 AS-INKEY$:IF AS<>"N" AND AS 
O-E" THEN 260 

270 RN-90:ST=32:IF AS="N" THEN 
RN=58 : ST-64 
280 POKE 282,0 
290 TM=3000/KP 

300 CLS0: PRINT" PRESSIONE A TEC 
LA DEPOIS DO BIP " 
310 PRINT §238," ";:PRINT @27 
0. " " ; : PRINT @302 , " " ; 
320 WS-CHRSÍRNDÍRNJ+ST) 
330 IF WS>"Z" AND WS<"a" THEN 3 
20 

340 PRINT #271, WS; 
350 TIMER-0 

360 AS-INKEYS:IF AS = " n THEN 380 
370 B$=AS:IF BS=WS THEN SCREEN 



420 PRINT 8271, WS; 



610 IF KP<1 THEN 600 
620 PRINT : PRINT" NORMAL OU ESTEN 
DIDO (N/E) 7" 

630 A$=INKEY$:IF A$<>"N" AND AS 
<>"E" THEN 630 

640 RN-91 :ST=31 :IF AS="N" THEN 
RN=58:ST=64 
650 TM-3000/KP 
660 CLS:POKE 282,0 
670 FOR K-l TO 32 
680 CR=RND (RN) *ST 
690 IF CB>90 AND CR<97 THEN CB= 
32 

700 WS-WS+CHRS (CR) 
710 NEXT 
720 AP=1248 
730 POKE AP , 106 
740 PRINT 8256, WS 
750 TIMER-0 
760 AS-INKEYS:1F AS-"" THEN 780 
770 BS=AS 

780 IF TIMERÍTM THEN 760 

790 SOUND 150.1:IF BS-"" THEN 7 

50 

800 TIMER-0 

810 AS-1NKEYS:IF AS="" THEN 830 
820 BS-AS 

830 IF TIMER<TM THEN 810 
840 SOUND 150, 1 

850 IF BSOMIDS(WS.AP-1247.1) T 
HEN ER=ER+1:GOTO 860 
855 POKE AP+64.94 
860 POKE AP. 96 
870 AP-AP+1 
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880 IF AP-1280 THEN 910 

890 POKE AP, 106 

900 BS-"" :GOTO 800 

910 CLS:PBINT #481 . "COM" ; KP ; "TE 

CLAS POB MINUTO" 

920 PRINT"VOCE EREOU" i EH ; "DAS 3 
2"; : BETUBN 
1000 CLS 



10 CLS : ZS"CHHS ( 219) :B"BND(-TIME 

) 

20 LOCATE 5.3:PB1NT"0UAL TESTE? 
(1-2)" 

30 LOCATE 5,4:PBINT"DIGITE <0> 
PABA TEBMINAR" 

40 AS-INKEYS:IFA$<"0"ORAS>"2"TH 
EN40 

50 ON VAL(A$)+1 GOSUB 1000.600. 
200 

60 ER-0:W$-"":BS-"" 
70 GOTO20 

200 CLS : INPUT"TOQUES POR MINUTO 



(MC 

230 IFNC<1THEN220 
240 NM-NC 

?50 PRINT : PR I NT "TECLADO : LETRAS 

OU TOTAL (L/T) ?" 
260 AS-INKEYS: I FAS<> " L " ANDASO " 

"THEN260 

70 RN-90 ; ST="33 : IFAS- " L"THENRN- 



5S:ST-65 

200 TM-3600/KP 

300 CLS : PBINT"PBESSIONE A TECLA 

APÔS O BIP" 
310 LOCATE15.10:PRINTSTRING$<4. 

219) 

320 LOCATE15:PBlNTZSl" ";ZS 
330 LOCATE15:PRINTZ$;" " ; ZS 
340 LOCATE15:PBINTSTBINGS<4.219 

) 

350 WS-CHBSIRND(1)«RN+ST) 

360 IF WS<"Z"ANDWS>"a"THEN350 

370 LOCATE 1 7 ,12: PBINTWS i : T1ME-0 

380 AS=INKE¥S:IFAS-""THEN390ELS 

EBS-AS : IFBS-USTHENCOLOHl 5 , 6 

390 IFTIME<TMTHEN360ELSEBEEP : IF 

BS-" "THEN3 70 

400 IFBSOWSTHENER-ER+1 

410 COLOR 15,4,4 

420 NC-NC-1 : IFNO0THEN350 

430 ClS:LOCATE2,12:PRINT"A";KP; 



; ER; 1 



;NM 



" ;KP 

610 IFKP<1THEN600 

620 PRINT ; PB I NT "TECLADO : LETBAS 

OU TOTAL? {L/T) " 
630 AS-INKEYS:IFASO"L"ANDAS<>" 
T"THEN630 

640 BN"91 :ST-32:IFA$-" L"THENRN= 

S8 :ST-65 

650 TM-3600/KP 

66U CLS:F0BK=1T032 

670 CR-INT(RND(1)*RN)+ST 





COMO AUMENTAR A VELOCIDADE 
DE DIGITAÇÃO 

Convém começar 8 execução do 
programa de jogo de velocidade com o 
teclado normal e a uma velocidade bai- 
xa ipor exemplo, de cerca de trinta a 
cinquenta caracteres por minuto). Ao 
mesmo tempo, procure não alterar o rit- 
mo de trabalho, digitando com a mes- 
ma velocidade tanto os caracteres co- 
nhecidos como os que lhe são menos 
familiares lesse conselho vate principal- 
mente para quando você estiver com 
o teclado completo). 

Se o seu ritmo se mantiver constan- 
te, você poderá selecionar o teclado 
completo e aumentar, gradativamente, 
a velocidade de digitação. 

Outra coisa muito importante para 
quem está aprendendo a datilografar é 
fazer todos os exercícios propostos 
sem olhar para o teclado do com- 
putador. 

Mantenha os seus olhos fixos todo 
o tempo na tela ã sua frente, e repou- 
se as mãos sobre o teclado, distribuin- 
do os dedos pelas teclas de apoio da 
fileira central, conforme ensinamos na 
primeira lição. 



680 IFCH>90ANDCR<97THENCR-32 
690 W$-WS+CHRS(CR) 
700 NEXT 
710 AP-564 

720 VPOKEBASE (0) +AP, 205 
730 L0CATE3,15:PRINTWS 
740 TIME-0 

750 A5-INKEY$:IFA$-""THEN760ELS 
EBS-AS 

760 IFTIME<TMTHEN?50 
770 BEEP:IFBS-""THEN740 
780 IFBSOMID$(W$,AP-563.1>THEN 
ER-ER+1ELSEVPOKEBASE (0) +AP+80 , 1 
790 VPOKEBASE(0)+AP,0:AP-AP+1:I 
FAP-596THEN810 

VPOKEBASE (0) +AP , 205 : GOTO740 
BIO CLS : LOCATE 2 . 15 : PRINT" A" ; KP ; 
"toques por minuto, você errou" 
e 32" 



FAÇA TODOS OS EXERCÍCIOS 



Para adquirir um conhecimento pro- 
fundo de todas as teclas de caracteres 
pralique todos os exercícios apresenta- 
dos até agora. Esta parte do curso é in- 
dependente. Entretanto, em um artigo 
posterior, você terá oportunidade de 
praticar suas habilidades com algumas 
frases e sentenças. 
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JOYSTICKS 



Sistema de controle dos mais versáteis 
e baratos, o joystick é um 
periférico que serve tanto para 
aplicações "sérias" como para 
tornar os jogos mais interessantes. 



■ 


COMUNIOUE-SECOMO 


COMPUTADOR 


■ 


COMO UTILIZAR UM JOYSTICK 


■ 


TIPOS DE JOYSTICKS 


■ 


ESCOLHA 0 JOYSTICK CERTO 



Embora estejam ficando cada vez 
mais sofisticados, os computadores do- 
mésticos ainda não conseguem dar ins- 
truções a si mesmos. Por enquanto (e es- 
peramos que para sempre...), a respon- 
sabilidade disso recai inteiramente sobre 
o programador ou o usuário. Aprender 
a programar é. portanto, aprender a se 
comunicar com o computador. 

O principal meio de comunicação do 
usuário com o computadof continua 
sendo o teclado. Mas existem muitas ra- 
zões para considerar esse meio como 
longe do ideal: a principal delas é que 
o teclado torna a comunicação compa- 
rativamente lenta em relação a outros 
métodos. Além disso, o uso eficiente do 
teclado exige que o usuário aprenda a 
digitar com rapidez e precisão. 

Cosiuma-se classificar as entradas 
efetuadas por intermédio do teclado em 
dois tipos principais. Destes, o mais co- 
mum e a entrada de um nome ou núme- 
ro em que o programa solicita ao usuá- 
rio que entre algo como "nome e data 
de nascimento" e espera uma resposta 
tal como "João da Silva, 9.7.53". 



O segundo tipo de entrada, por sua 
vez, transmite um tipo inteiramente di- 
verso de informação. Nela, a pressão a 
uma tecla — em vez de provocar a en- 
trada do caractere ao qual ela é normal- 
mente ligada — aciona uma outra fun- 
ção bem diferente, determinada pelo 
programa. Por exemplo, se a tecla X for 
pressionada, o cursor da tela será mo- 
vido para a direita; se for Z a tecla pres- 
sionada, o cursor será deslocado para a 
esquerda. Diversos capítulos do curso de 
BASIC e de Programação de jogos fo- 
ram destinados a ensinar a programar 
esse tipo de entrada. 

Obviamente, o primeiro tipo de en- 
trada depende do teclado de modo di- 
reto. No segundo tipo, porém, essa li- 
gação não aparece de forma tão eviden- 
te. É difícii imaginar, por exemplo, que 
um usuário pouco familiarizado com o 
teclado consiga se lembrar de que pre- 
cisa pressionar o P para movimentar 
uma nave espacial para cima e, ao mes- 
mo tempo, apertar o F para disparar 
uma arma. 



Felizmente, existe uma alternativa: o 
joystick, um periférico barato e acessí- 
vel para microcomputadores. Talvez in- 
justamente associado apenas aos jogos, 
esse periférico cumpre diversas outras 
funções. 

O joystick é uma espécie de alavan- 
ca que pode ser movida em várias dire- 
ções pelo usuário. A cada movimenta- 
ção, ele envia ao computador um sinal 
que indica a sua nova posição. A maio- 
ria dos joysticks tem um ou mais botões 
pulsantes (chamados de botões de dis- 
paro) que, ao serem pressionados, ge- 
ram sinais diferentes para o computa- 
dor (joystick é um termo derivado do ae- 
romodelismo e não tem tradução ade- 
quada para o português; a mais aproxí- 
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mada seria manche). 

Com uma programação apropriada, 
mesmo nos jogos de ação mais modes- 
los, os joysticks podem assumir várias 
das funções reservadas tradicionalmen- 
le para o teclado; assim, eles encontram 
muilas aplicações interessantes, úteis so- 
bretudo para usuários que não querem 
ou têm dificuidades em usar o teclado. 

Por exemplo, em um programa de 
gráficos, é perfeitamente possível utili- 
zar um joystick ou um controle seme- 
lhante para guiar o cursor que desenha- 
rá na tela (na página 164 apresentamos 
um programa que faz isso por meio do 
teclado), ou para selecionar uma cor em 
uma "paleta" exibida na leia. Um joys- 
tick também pode ser usado para for- 
necer respostas alfabéticas ou numéri- 
cas. Alguns jogos de fliperama, por 
exemplo, possuem uma "lista de cam- 
peões", na qual são exibidos os nomes 
dos jogadores e seus recordes de pontos. 
Neste caso, uma entrada alfabética curta 
(por exemplo, as iniciais do jogador) é 
realizada, usando-se o joystick para mo- 
ver o cursor até a posição onde está a 
letra desejada e, em seguida, o botão de 
disparo para seledoná-la. Com um pou- 
co de imaginação, é fácil incorporar es- 
se truque na digitação de nomes e nú- 
meros maiores ou, mais comumente, pa- 
ra efetuar uma escolha entre um menu 
de opções de programa, por exemplo. 

Em um artigo futuro, você verá co- 
mo programar o seu computador para 
operar sob o controle de um joystick, de 
modo a tornar um programa mais 
atraente ou um videogame mais diver- 
tido. Antes disso, porém, é necessário 
entender quais são os diferentes tipos de 
joysticks existentes para computadores, 
e como podem ser utilizados. 



Nem todos os joysticks são adequa- 
dos aos vários tipos de computadores 
pessoais. Antes de adquiri-los, convém 
certificar -se de que eles são compatíveis 
com a sua máquina. Existe ainda uma 
outra restrição: ao se comprar um pro- 
grama de jogos (ou outro qualquer) que 
utilize joysticks, é necessário verificar 
cuidadosamente se ele foi escrito para 
o tipo de joystick que você possui. Den- 
tro dessas limitações básicas podem exis- 
tir, contudo, diversas opções de compra. 

O tipo mais simples de joysiick con- 
siste em uma caixa rasa com uma ala- 
vanca, que pode ser movimentada em 
oito direções diferentes: para a esquer- 
da, para a direita, para cima, para bai- 
xo e para as quatro posições intermediá- 
rias, em diagonal. Além disso, ele con- 



ta com um botão de disparo que, ape- 
sar do nome, pode ser utilizado para ta- 
refas como selecionar uma letra ou as- 
sinalar uma opção. Esse género de joys- 
tick é muito usado em videogames; por 
isso, é comumente chamado de "tipo 
Atari" ou digital. 

Alguns desses joysticks possuem dois 
ou mais botões de disparo que podem 
ser úteis para jogadores canhotos, por 
exemplo, ou para aumentar a velocida- 
de ou o grau de conforto na manipula- 
ção de jogos difíceis. Esses botões se lo- 
calizam normalmente na base, mas po- 
dem situar-se também na ponta da ala- 
vanca de controle. Dependendo do pro- 
grama, um botão pode, por exemplo, 
ser usado para disparar um canhão, en- 
quanto o outro aciona um dispositivo 
que deixa cair uma bomba; um botão 
pode apagar uma linha de texto, en- 
quanto o outro a edita, e assim por dian- 
te. Alguns modelos são especialmente 
planejados para se amoldarem à mão. 
Outros são modelados no formato de 
um cabo de pistola, complementado, em 



alguns casos, com um gatilho. 

Joysticks mais modernos incluem dis- 
positivos extremamente sofisticados, co- 
mo ponteiros munidos de indicadores 
ultra-sensiveis de gravidade. Esses indi- 
cadores servem para detectar pequenos 
movimentos ou inclinações da mão do 
usuário (por exemplo, quando este 
aponta para alguma locação na tela). 
Eles utilizam interruptores de mercúrio: 
sempre que a alavanca é inclinada, o 
mercúrio em seu interior se desloca pa- 
ra uma das extremidades, fechando ou 
abrindo um contato elétrico. Taís dis- 
positivos são tão sensíveis que não de- 
vem ser usados em jogos, a menos que 
o programa tenha sido escrito especial- 
mente para eles. 

Oulro elemento da família dos joys- 
ticks é a "raquete eletrõnica" (paddle), 
que nada mais é do que um botão gira- 
tório, tipo potenciômetro. Neste caso, a 
posição angular do potenciômetro é de- 
tectada pelo computador, que pode usar 
a informação para mover um cursor na 
tela, geralmente no sentido horizontal. 
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Alguns tipos de joysiicks resultam dc 
uma combinação de dois paddies, um na 
posição horizontal e oulro na vertical. 

Uma outra variante do joystick é 
a "trackerball" (esfera de comando). 
Originalmente desenvolvida para apli- 
cações militares e "aviônicas , a esfera 
de comando foi logo adaptada para 
máquinas comerciais de jogos de flipe- 
rama e estão entrando agora no merca- 
do dos computadores domésticos. Nes- 
se periférico, o controle é feito por meio 
de uma bola que se projeta acima da su- 
perfície da caixa e que pode ser rolada 
em qualquer direção, com as pontas dos 
dedos. 

Os modelos mais sofisticados desses 
dispositivos de controle são emprega- 
dos também em computadores de apli- 
cação comercial e profissional. Um dos 
mais recentes é o chamado "camun- 
dongo" (mouse), que se parece com 
uma trackerball de cabeça para baixo, 
embora existam também versões que 
funcionam de acordo com outros siste- 
mas. O camundongo entra em ação 



quando se rola o dispositivo sobre a su- 
perfície de uma mesa. Seus movimentos 
são detectados por um programa espe- 
cial, provocando deslocamentos corres- 
pondentes de um cursor gráfico ou de 
texto na teia. Assim, o camundongo po- 
de substituir as teclas de controle do cur- 
sor. Ele permite movimentos rápidos so- 
bre a tela para alterar dados ou para so- 
lucionar itens de um menu. As seleções 
são feitas por meio de um ou dois bo- 
tões no alto da caixa. Ao contrário dos 
joystieks normais, o camundongo é uti- 
lizado para desenhar na leia, mas qua- 
se nunca para controlar movimentos em 
jogos. 

Existem muitos outros tipos de dis- 
positivos que servem para controlar 
o cursor na tela, mas cujo funciona- 
mento é bem diferente do dos joystieks 
e de seus "parentes". Um deles é o ta- 
blete gráfico, que consiste em uma me- 
sa reiangular, sobre a qual se pode "es- 
crever" com uma caneta especial, ou 
mesmo com o dedo (touchpad). Senso- 
res localizados na superfície do table- 



te ou na pena transmitem ao computa- 
dor as coordenadas X e Y da ponta da 
caneta. 

As canetas ópticas são outro "paren- 
te" dos joystieks, que permitem o dese- 
nho direto sobre a tela, a escolha de op- 
ções, etc, e estão se tornando cada vez 
mais populares entre os usuários de 
computadores domésticos. 



Embora pareçam diferentes à primei- 
ra vista, na verdade todos esses disposi- 
tivos funcionam de maneira semelhan- 
te. Em todos eles, o movimento é trans- 
formado em uma série de sinais elétri- 
cos que são "lidos" pelo computador. 

Assim, como qualquer dispositivo 
eletrônico, os joystieks podem ser tan- 
to digitais quanto analógicos. Normal- 
mente, uma linha de computadores acei- 
ta apenas um dos tipos e mais raramen- 
te os dois. No joystick digital existem di- 
versos comutadores eletrònicos que são 
abertos ou fechados conforme o ângu- 
lo de movimentação da alavanca: assim, 
um padrão único de bits é gerado para 
cada posição. Os paddies e joystieks de 
tipo analógico, por sua vez, funcionam 
de forma diferente: eles são construídos 
com um ou dois potenciómetros (resis- 
lores variáveis), cujo ângulo dc rotação 
é proporcional ao deslocamento da ala- 
vanca nos sentidos horizontal e vertical. 
As variações de resistência obtidas com 
essas rotações são transmitidas ao com- 
putador na forma de duas voltagens 
proporcionais, de modo a fornecer uma 
única combinação para cada posição de 
controle. 

Do ponto de vista visual, os dois ti- 
pos de joystick são também bastante di- 
ferentes. No tipo analógico, os poten- 
ciómetros são montados cm ângulos re- 
tos e operados por um enlace mecâni- 
co. A alavanca, em consequência, não 
fica balanceada ao centro, ou seja, per- 
manece na posição em que o usuário a 
deixar. Os tipos digitais, ao contrário, 
são normalmente balanceados ao centro 
e, quando liberados, voltam automati- 
camente para a posição central ou neu- 
tra. No entanto, alguns modelos analó- 
gicos são balanceados ao centro. 

Por outro lado, uma nítida diferen- 
ça no comportamento mecânico separa 
os dois sistemas. Os joystieks digitais 
(balanceados ao centro) são mais duros 
e normalmente só se movimentam por 
uma pequena distância. Assim, um es- 
forço maior feito pelo jogador é contra- 
balançado por uma maior resistência 
mecânica. 

Na verdade, o efeito que ambos os ti- 
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pos provocam no computador é contro- 
lado mais pelo programa do que pelo 
próprio joystick. Geralmente, um pro- 
grama bem escrito torna o joystick mais 
sensível e fácil de controlar. Por exem- 
plo, um programa pode determinar que 
um leve movimento da alavanca seja su- 
ficiente para dar início a mudanças de 
direção de um objeto na tela, sem que 
haja necessidade de se pressionar conti- 
nuamente a alavanca. 

Já os tabletes digitalizadores que fun- 
cionam por toque (touchpads) consistem 
em um sanduíche de duas folhas de plás- 
tico, separadas por uma pequena dis- 
tância. Uma fina grade de resistores 
ou fios condutores é construída sobre 
uma das faces dessas folhas, orientadas 
de modo a formar ângulos retos entre 
si. Ao menor contato de um dedo ou de 
um lápis com o tablete, os condutores 
situados nas duas folhas se tocam e ge- 
ram um padrão de volíagens, que é var- 
rido pelo computador. Os touchpads. 
entretanto, podem apresentar proble- 
mas, devido à dificuldade de se conse- 
guir uma superfície uniformemente sen- 
sível. Uma desvantagem em utilizá-los 
é que. se a superfície se sujar — por 
marcas de dedos, por exemplo — , os 
movimentos tenderão a se tornar errá- 
ticos devido ao deslizamento do dedo 
pela superfície. 

Extremamente leves, as trackerballs 
podem ser operadas com facilidade, pois 
a bola não tem conexão mecânica dire- 
ta com o sistema sensor. Ela é sustenta- 
da sobre rolamentos que giram livre- 
mente em duas direções, em ângulo re- 
to uma em relação à outra. Quando a 
bola sofre uma rotação, ela faz rodar 
um ou ambos os rolamentos. Estes, por 
sua vez, estão conectados a potencióme- 
tros ou a um sensor digital — um siste- 
ma formado por um disco rotatório pa- 
ra interromper um raio de luz prove- 
niente de um diodo LED (foto-emissor), 
que cai sobre um fototransistor (foto- 
sensor). Com a contagem de impulsos 
de interrupção, o computador fica "sa- 
bendo" de quanto girou o rolamento. 
Mais uma vez, qualquer que seja o sis- 
tema utilizado, o computador é capaz 
de interpretar os sinais elétricos em ter- 
mos de um padrão determinado de mo- 
vimentação na tela. 



OPERAÇÃO COM 0 COMPUTADOR 



Os comandos GETS ou 1NKEYS do 
BASIC são os mais utilizados para pro- 
gramar a execução de funções de movi- 
mentação do cursor de vídeo, sob con- 
I irole de determinadas teclas do teclado. 

r 



ciado, de modo a assinalar ao progra- 
ma se alguma tecla foi pressionada. Se 
isso acontecer, o programa poderá efe- 
tuar alguma operação específica — ta! 
como a movimentação de uma base de 
mísseis para a direita, se a tecla X, por 
exemplo, for pressionada. 

A operação do joystick digital não di- 
fere essencialmente disso. Mas enquan- 
to o teclado é parte integrante do com- 
putador, o joystick é um elemento ex- 
terno acoplado a ele. Assim, o joystick 
deve primeiro ser conectado ao compu- 
tador através de uma porta adequada 
(um conector especial); é por essa porta 
que o micro normalmente se comunica 
com o mundo exterior. Em seguida, é 
necessário colocar na memória RAM do 
micro um programa adequado para 
"varrer" periodicamente a porta de en- 
trada, de modo a procurar por um si- 
nal específico, que signifique que o joys- 
tick está sendo movimentado. 

Alguns problemas de compatibilida- 
de podem surgir entre esses periféricos 
e o computador. Em primeiro lugar, o 
joystick precisa ser conectável à porta 
de entrada do micro, seja diretamente. 
seja através de algum tipo de interface. 
Além disso é necessário que o progra- 
mador conheça os sinais gerados pelo 
joystick; caso contrário, não será pos- 
sível programar o computador para pro- 
curá-los. 

Essas exigências dão lugar, ás vezes, 
a tremendas confusões. Felizmente, já 
existem padrões de mercado seguidos 
em maior ou menor grau por diferentes 
fabricantes. No Brasil, cada linha de mi- 
crocomputadores apresenta um conjun- 
to bem definido de convenções. O pa- 
drão mais comum, que se tornou vir- 
tualmente universal, é o do joystick ti- 
po Atari (digital e centro-balanceado). 
Existem diversos fabricantes de joysticks 
desse tipo, e alguns computadores são 
projetados de modo a aceitá-los direta- 
mente. 

É o caso, por exemplo, da linha Sin- 
clair (ZX-81 e Spectrum), cujos com- 
patíveis nacionais (TK-85..TK-90X, etc.) 
incluem um conector para joysticks ti- 
po Atari. Os modelos da linha MSX 
têm, por sua vez, entrada para dois joys- 
ticks tipo Atari. Os compatíveis com o 
TRS-Color (por exemplo, o Prológica 
CP-400) utilizam joysticks analógicos. 
Já os micros da linha TRS-80 normal- 
mente não contam com nenhum tipo de 
entrada para joystick. 

Além disso, podem existir, às vezes, 
diferenças importantes entre diversos 
modelos de máquinas da mesma linha, 
como no caso do Apple, que tem pro- 
tótipos nacionais que aceitam joysticks 
digitais tipo Atari {é o caso do TK-2000), 



ou analógicos (paddles). 

Uma das diferenças mais importan- 
tes entre micros diz respeito ao interfa- 
ceamento. 



INTERFACEAMENTO 



Como qualquer periférico de compu- 
tador, os joysticks precisam ser conec- 
tados à UCP por intermédio de uma in- 
terface adequada. A interface pode es- 
tar integrada à configuração básica da 
UCP do computador, ou pode ser um 
dispositivo separado. 

Muitos fabricantes incorporam aos 
seus micros um conector e uma interfa- 
ce do tipo Atari, de modo a fazê-los 
aceitar qualquer joystick que seja de 
um modelo compatível com esse padrão. 

Outra saída seria dispor de uma-ou 
mais portas analógicas, que aceitam 
paddles ou joysticks do tipo potenciô- 
metro. No entanto, são raros os micros 
que já incluem essas portas em sua con- 
figuração básica, pois isto significa que 
devem ser construídos dois conversores 
analógico-digitais para cada joystick a 
ser utilizado. 



Os micros da linha Sinclair Spectrum 
não vêm acompanhados de joysticks. 
Assim, para ajustar a eles um desses pe- 
riféricos, é necessário uma interface 
apropriada ao conector de borda exis- 
tente atrás do console. 

A interface é alojada em uma caixa 
separada que se situa na pane posterior 
da máquina, em contato direto com os 
terminais do conector de borda, na en- 
trada do usuário. Existe, porém, um ti- 
po de interface (disponível apenas no 
Exterior) construída dentro da caixa do 
próprio joystick, com um conector se- 
parado para o cabo de ligação. 

O joystick mais adequado para o 
Spectrum é compatível com o tipo Atari. 
No Exterior, entretanto, existem muitos 
outros tipos de joysticks, que são incom- 
patíveis entre si no que se refere aos si- 
nais que geram no conector de expansão. 

Por isso, o usuário do Spectrum de- 
ve tomar muito cuidado quando com- 
prar ou copiar programas provenientes 
do Exterior que utilizem joysticks, pois 
eles nem sempre funcionam com o joys- 
tick disponível no Brasil. Assim, é con- 
veniente verificar a documentação do 
software antes de adquiri-lo. Alguns 
programas mais sofisticados incluem um 
menu de opções que permitem ao usuá- 
rio selecionar o tipo de joystick a ser 
usado para acíonar o jogo. 

Outro problema para os proprietários 
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do Speclrum é que as interfaces mais co- 
muns desse micro só possibilitam a co- 
nexão de um joystick. Entretanto, algu- 
mas interfaces mais sofisticadas permi- 
tem a conexão de dois joysticks ao mes- 
mo tempo. Infelizmente, porém, são ra- 
ros os softwares compatíveis com tais in- 
terfaces. 

O interpretador BASIC do Spectrum 
não tem nenhum comando específico 
para programação com joysticks. As- 
sim, o mais comum é usar o comando 
1NKEYS. 



O ZX-81 está longe de ser uma má- 
quina ideal para jogos. Entretanto, as- 
sim como o Specirum, é possível conec- 
tá-lo a um joystick do tipo Atari por in- 
termédio de um conector Phillips, situa- 
do na lateral ou na traseira do console. 
Portanto, a operação com esse micro é 
parecida com as descritas acima. 

O BASIC do ZX-81 não tem nenhum 
comando específico para a programação 
de joysticks. como é o caso dos micros 
da linha MSX, Apple e TRS-Color, mas 
o comando INKEVS pode ser usado da 
mesma forma que com o teclado, pois 
os joysticks para o ZX-81 geram sinais 
correspondentes às teclas de controle de 
cursor (6, 7. 8 e 9, combinadas com 
<SHIFT>). 

Isto é uma vantagem adicional, pois 
um jogo que utilize tais teclas operará 
igualmente bem, com ou sem joystick 
(só que ficará mais divertido com o joys- 
tick, como é o caso de um popular pro- 
grama de simulação de vôo de uma ae- 
ronave). 



produtos comercialmente disponíveis no 
mercado. 

No primeiro caso, é necessário efe- 
tuar uma modificação no hardware, 
conectando fios em paralelo com a in- 
terface do teclado. Em seguida, deve-se 
ligar a máquina ao joystick. Uma vez 
em operação, este gera sinais semelhan- 
tes aos provocados pela pressão das te- 
clas de controle do cursor, que podem 
ser detectadas por meio do comando 
INKEYS, do BASIC. Há um dispositi- 
vo fabricado no Brasil — "joypad", um 
pequeno teclado paralelo apenas com as 
teclas de controle de cursor {joypad) — 
cuja função consiste em facilitar o de- 
sempenho em jogos. 

Para conectar dispositivos analógi- 
cos, é necessário adquirir uma interfa- 
ce especial de conversão analógíco-digi- 
tal, que é ligada à porta de expansão, 
na parte de trás da UCP. 

No TRS-80 não existem comandos 
específicos do BASIC para os dois tipos 
de joysticks. 



Os microcomputadores da linha 
TRS-Color incluem duas entradas para 
joysticks analógicos, do tipo potenciõ- 
metro de centro não-balanceado. Esses 
joysticks têm botões de disparo, e po- 
dem ser facilmente programados por co- 
mandos específicos do interpretador 
BASIC. A tela de alta resolução gráfi- 
ca, quando associada por programação 
ao uso desses joysticks, permite efeitos 
sensacionais de animação gráfica, em 
jogos ou no desenho livre. 



Os micros da linha TRS-80 não in- 
cluem nenhuma previsão ou porta espe- 
cial para joysticks. 

Entretanto, esses computadores po- 
dem ser conectados tanto a joysticks di- 
gitais do tipo Atari, quanto a joysticks 
e paddles analógicos; para isso, existem 



Os microcomputadores da linha 
MSX incluem portas de entrada para 
joysticks do tipo digital centro- balancea- 
do, com dois ou mais botões de dispa- 
ro. No Brasil, cada fabricante oferece 
o seu modelo próprio de joystick, mas 
o padrão de conexão e geração de sinais 
segue o do Atari. 

Da mesma forma que o TRS-Color, 
o interpretador BASIC dessas máquinas 
contém comandos bastante poderosos. 

ao 

A maioria dos micros da linha Ap- 
ple apresenta no console duas portas pa- 
ra dois paddles analógicos, ou para um 
joystick de dois eixos (não ceniro-balan- 
ceado). O interpretador BASIC incor- 
pora comandos para leitura da posição 
dos potenciómetros e da pressão ao bo- 
tão de disparo. 

Existem ainda no mercado joysticks 
do tipo digital, que podem ser conecta- 
dos via porta serial ou paralela. 



O Microdigital TK-2000 inclui, na 
versão padrão, um conector específico 
para joystick digital do tipo Atari, que 
opera paralelamente ao teclado normal 
(ou seja, gera sinais correspondentes às 
teclas de controle do cursor e às teclas 
FIRE dos dois lados do teclado). Assim, 
a utilização do joystick pode ser progra- 
mada por meio de comandos GETS ou 
PEEK do teclado existentes no BASIC 




Como funciona um conversor ana- 
lógico digital? 

Necessário para converter em nú- 
meros binários as voltagens continuas 
geradas pelos paddles e joysticks ana- 
lógicos, o conversor A/D realiza uma 
tarefa de digitalização do sinal elétrico 
de entrada. 

Suponhamos que uma rotação de 
1 1 8 graus num dos potenciómetros do 
joystick gera uma voltagem proporcio- 
nal entre 0 e 5 volts. O conversor A/D 
tem um comparador interno que ger3 
voltagens sucessivas, divididas em um 
certo número de intervalos (por exem- 
plo, 256 intervalos de 0.01 95 volts ca- 
da, se for um conversor de oito bits) . 
A cada nivel interno de voltagem, o cir- 
cuito compara-o com o nivel externo de 
voltagem (gerado pelo jovstick) e de- 
cide se esses valores são aproximada- 
mente iguais ou não. Ao mesmo tem- 
po, outro circuito digital vai contando 
quantos desses níveis foram testados. 
Assim que o comparador inlormar que 
a igualdade foi atingida, o conversor 
A/D enviará ao computador, através da 
interface paralela, o byte contendo o 
número de contagens . Por exemplo, se 
a voltagem gerada pelo joystick for 
1.95 volts, o número enviado para o 
computador será 100! 



do TK-2000. Não existem joysticks ou 
paddles do tipo analógico para esse 
computador. 



CUIDADO AO COMPRAR UM JOYSTICK! 



Ao comprar um joystick, verifique 
primeiro se o modelo escolhido é com- 
patível com o seu computador e, no ca- 
so do Speclrum, com o seu software 
também. 

Em seguida, pense em quanto você 
está disposto a gastar; se você é proprie- 
tário de um Spectrum, tenha em men- 
te que a interface poderá custar tanto 
quanto o joystick, ou até mais. Os tipos 
mais simples de joysticks custam o mes- 
mo que um programa de jogo. enquan- 
to os mais elaborados podem ser duas 
ou três vezes mais dispendiosos. 





Uma vez elaborado o projeto geral de 
um programa e escritos os módulos in- 
dividuais, pode-se começar a pensar em 
testar os módulos. Em seguida, é neces- 
sário planejar a forma de colocá-los lo- 
dos juntos. 

As subrotinas ou módulos precisam 
ser colocados de alguma forma deniro 
do contexto do programa. Normalmen- 
te, a ligação é feita por meio de variá- 
veis. Algumas destas — conhecidas co- 
mo parâmetros de entrada — são espe- 
cificadas no inicio, e passadas à rotina. 
Outras variáveis retornam ao programa 
por intermédio da rotina; estas são os 
parâmetros de saída. É muito importan- 
te que as variáveis sejam especificadas 
de um modo preciso para não serem 
confundidas umas com as outras. 

Ao se começar a escrever um progra- 
ma deve-se fazer uma lista de todas as 
variáveis necessárias, juntamente com 




uma descrição dos seus usos e possíveis 
valores iniciais, caso sejam conhecidos. 
Do contrário, mesmo que se saiba no 
início o que significam iodas as leiras, 
corre-se o risco de esquecer de retornar 
ao programa mais tarde. Um recurso 
bastante prático, caso o computador 
permita ou o espaço de memória não se- 
ja muito pequeno, consiste em adotar 
nomes longos para as variáveis {veja na 
página 99 uma tabela do que é permiti- 
do para cada linha de microcompu- 
tadores). 



ROTINA DE ORDENAÇÃO TIPO BOLHA 



Como se deve especificar as variáveis 
para uma rotina de ordenação tipo bo- 
lha? O exemplo a seguir apresenta uma 
porção especifica de matriz ordenada al- 
fabeticamente. 



Variáveis de entrada: 

A$(N) — conjunto unidimensional a 

ser classificado (tamanho de N> = 1) 

NI — primeiro item cm conjunto a ser 

classi ficado ( 1 < = N 1< = N2) 

N2 — último item em conjunto a ser 

classificado (Nl< = N2< = o tamanho 

de A) 

Variáveis dc saída: 

A$(N> — conjunto ordenado. 



Variáveis temporárias: 
Z, Z$, L 

Uma providência muito útil para evi- 
tar conflitos entre módulos ou com o 
resto do programa consiste em listar as 
variáveis temporárias utilizadas em uma 
sub-rotina. Também é útil reservar al- 
gumas letras, especialmente para variá- 
veis temporárias: por exemplo, as variá- 
veis de ZO a Z9. Esse tipo de recurso evi- 
ta desperdícios de espaço das variáveis. 

Alguns erros ou defeitos de progra- 
ma são causados às vezes por variáveis 
viciadas — isto é, com valores mudados. 
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PROGRAMAÇÃO BASIC 21 



Aperfeiçoe as técnicas da programação 
estruturada, aprendendo a 
construir um programa de ordenação 
pelo método de bolhas, e 
coloque em ordem o que quiser. 



DEFINA AS VARIÁVEIS 
COMO ESCREVER U 
SUB-ROTINA DE ORDENA 
COM O TESTAR OS MÓD U 
COLOQUE TUDO J 




Esses problemas, cornudo, podem sei 
evitados com a aplicação do método ex 
posto acima. 

Uma listagem de variáveis também 
útii para o caso de o programa vir a sei 
modiricado mais tarde. Essa medida 
segura maior rapidez na alteração das 
variáveis, impedindo ao mesmo tempo 
o aparecimento de en-os extras no pro- 
grama. Tais erros são normalmente pro- 
vocados por variáveis viciadas, utiliza- 
das para outros propósitos. Lembre-se 
ainda de anotai as modificações, junia- 
mente com as datas cm que foram feitas. 

Eis aqui o programa para uma roti 
na de ordenação por bolhas (seu funcio- 
namento será explicado mais adiante, na 
lição número 23 de Programação 
BAS/Q. 

1000 REM ORDENAÇÃO TIPO BOLHA ( 

ASCN) .M .Ni') 

1010 LET Z-0 

1020 FOB I-Nl TO NZ-1 

1030 IF AS(IX-A$(I + 1] THEN GOT 

O 1080 

1040 LET ZS-AS(I) 
1050 LET AS(1]-A$(I*1) 
1060 LET A$(I+1)-Z$ 
1070 LET Z-l 
1060 NEXT I 

1090 IF Z-I THEN GOTO 1010 
1100 RETURN 



Como toda sub-rotina, esta deve ser 
chamada a partir do programa princi- 
pal. Por exemplo, para ordenar os itens 
de 5 a 20, a rotina pode ser chamada 
assim: 



É preciso também que exista uma se- 
ção do programa que lhe permita entrar 
os itens a serem ordenados, e outra que 
imprima a lista ordenada. Neste estágio 
você deve decidir como quer que a exi- 
bição apareça na tela. 

Se vocc trabalha com um MSX, po- 
de tirar proveito do poderoso BASIC 
desse micro. Mude a linha 1040 para 
SWAP A$(1).A${I + l> e elimine as li- 
nhas 1050 e 1060. Seu computador tro- 
cará O conteúdo das duas variáveis de 
uma só vez, dispensando o uso da va- 
riável Z$. 

HífffMM 

Cada módulo do projeto original po- 
de se tornar uma sub-rotina no seu pro- 
grama. Esse método de dividir o progra- 
ma c muito Ml durante o estágio de les- 
te, pois os módulos podem ser postos à 
prova ou depurados individualmente. 
Volte agora à sub-rotina da ordenação 
tipo bolha, teslando-a assim: 



■ 



8 INPUT "Número de item 
10 DIH AS(N) 

12 PRINT"Entrada doa lt« 



14 FOR I-l TO N: INPUT AS<I):NE 
XT I 

16 INPUT -Intervalo a ser orden 

ado ";N1,H2 

18 GOSUB 1000 

20 PRINT* Liata ordenada:" 

22 FOR 1-1 TO N : PRINT AS(I):NEX 

T I 

24 GOTO 16 



O programa acima também funcio- 
nará no TRS-Color e TRS-80, desde que 
se adicione a linha a seguir, cujo objeti- 
vo é reservar um espaço suficiente de 
memória: 

6 CLEAR 1000 



No ZX-81 e no Spectrum, modifique 
a linha 10 do programa acima para: 

10 DIM AS(N.IO) 

No ZX-81, fracione as linhas com de- 
clarações múltiplas, mude tudo parai 
maiúsculas, e altere a linha 8 paia: ] 



8 PBINT "NUMERO DE ITENS" 

9 INPUT N 

Entretanto, a tarefa de testar cada ca- 
so de entrada e de saída pode se revelar 
impossível em programas complexos, 
exigindo um tempo excessivamente 
grande. Apesar disso, os casos limítro- 
fes podem ser checados, Por exemplo, 
a rotina seguinte pode ser verificada pa- 
ra entrar valores de 1,99 e 100, 

1010 PBINT "ENTRE UM NUMERO 

(1-99) "I 
101S INPUT N 

1020 IF «<1 OR N>99 THEN COTO 

1010 
1030 RETURN 

Outra providência aconselhável é 
certificar-se de que cada linha do pro- 
grama foi rodada pelo menos uma vez 
durante o estágio de depuração. Assim, 
todos os desvios condicionais, tal como 
a declaração IF, poderão ser chocados 
com ambas as condições de verdadeiro 
ou falso. 



COLOQUE TUDO JUNTO 



Finalmente, todos os módulos pode- 
rão ser encadeados e o programa testa- 
do como um todo. isso é conhecido co- 
mo integração do programa. Se ocorre- 
ram problemas, qualquer módulo sus- 
peito poderá ser checado novamente e 
modificado em caso de necessidade. 

Cumpridas iodas essas exigências, 



você terá um programa perfeitamente 
estruturado que fará exaiamente o que 
for determinado. 

As regras para se escrever um progra- 
ma estruturado são, resumidamente, as 
seguintes: 

1. Escreva uma descrição geral do 
programa. 

2. Divida-a em tantos módulos quantos 
forem os níveis necessários. 

3. Desenhe um fluxograma para cada 
módulo c defina as variáveis de en- 
trada c de saida e de quaisquer ou- 
tros efeitos, tais como a exibição na 
tela. 

4. Escreva os programas para cada mó- 
dulo que utilizar as estruturas descri- 
tas na parte I , 

5. Teste os módulos, fornecendo as en- 
tradas e checando os resultados e as 
saídas. 

6. Combine todos os módulos e teste o 
conjunto do programa. 

A finalidade de todo esse trabalho é 
aumentar a legibilidade de um progra- 
ma, assim como sua capacidade, segu- 
rançae transportabilidade. Além disso, 
ele faciliia a tarefa de testar e modifi- 
car o programa. 



COMO FUNCIONA 0 MÉTODO DAS BOLHAS 



O programa de ordenação pelo mé- 
todo das bolhas foi utilizado aqui para 



mostrar como um módulo pode ser 
construído e depois testado, antes de ser 
encadeado ao programa principal. As 
roiinas de ordenação são muito úteis pa- 
ra todos os tipos de programas. A que 
apresentamos agora classifica palavras 
cm ordem alfabética, mas poderia ser- 
vir também para classificar números em 
ordem crescente. Basta modificar as va- 
riáveis ZS para Z.e o conjunto A$( I pa- 
ra A( ). 

O computador percorre a lista, com- 
parando pares de itens, um de cada vez. 
Sc eles estiverem em ordem correia não 
serão mudados. Se estiverem em ordem 
incorreta serão intercambiados. O pro- 
grama continua através da lista, efe- 
tuando mais trocas até que todos os 
itens estejam em ordem correia. 

Para avaliar o funcionamento do 
programa em detalhes é conveniente 
compará-lo com o fiuxograma. A pri- 
meira parle do programa (que não está 
no diagrama) define o número de iiens 
da lista — N — e estabelece um conjun- 
tocharaado A$( ) com espaço suficiente 
para N itens. As linhas 12 e 14 pedem 
ao usuário as palavras que serão arma- 
zenadas no conjunto e a linha 16 per- 
gunta quais delas serão ordenadas. Se 
você quiser ordenar a lista inteira, digi- 
te 1 seguido de uma virgula, mais o va- 
lor de N. A sub-rotina é chamada na li- 
nha 18. 

A rotina começa estabelecendo Z 
igual a 0. Z é conhecido como um sina- 
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ASSEMBLEIR PARA 
OTftS-COl» 



Bem mais rápido do que o programa para 
o Spectrum, o Assembler para os 
micros da linha TRS-Color proporciona 
igual eficiência. Economize 
tempo, aprendendo a trabalhar com ele. 



Nesta lição, apresentamos um As- 
sembler para o TRS-Color. Mais longo 
do que o programa para o Sinclair ZX 
Spectrum objeto da lição anterior, ele 
conta com a participação de um editor. 

O microprocessador utilizado pelo 
TRS-Color é o Motorola 6809 de oito 
bits, cujo conjunto de instruções é bem 
menor que o do Z80, empregado pelo 
Spectrum. Entretanto, o Assembler do 
TRS-Color tem que passar por até três 
"etapas" para traduzir um comando de 
dezesseis bits, enquanto o programa do 
Spectrum deve passar por no máximo 
duas. Apesar dessa etapa adicional, o 
programa do TRS-Color é quase três ve- 
zes mais rápido que o do Spectrum: seu 
grande recurso para procurar os mne- 
mónicos — a função INSTR — não 
existe no BASIC do Spectrum. 



A linha 1 0 pode provocar um erro FC 
quando o programa é rodado pela pri- 
meira vez. Não se importe com a men- 
sagem de erro e rode o programa nova- 
mente, que ele funcionará. 



10 PMODE 0:PCLEAR 1 : CLEAR 3000: 

CLS:PRINT §233 . " INICIALIZANDO" : 

HS-CHRSU3) :POKE 146,1 

20 DIM SKS(l) .Kl (94) ,K2{94) ,TS( 

200) .RR(IOO) .ZSU00) 

30 FOR CC = 1 TO 94 : READ K3.KHCC 

) .K2 (CG) :OCC/49:SKS(C)-SKS(C) + 

RIGHTS (STRS <CC) , 2) +KS :NEXT 

40 DATA ADCA, 185 . 1 ,ADDA, 187 , 1 ,A 

DDD. 243 . 2. ASL, 120 , 3 , CLR , 127, 3 , C 

MPA.177,1,CMPD,4275,2,CMPY,4284 

, 2 ,BCC, 36,4 ,BCS , 37,4, BEQ ,39,4 

50 DATA BHS.36.4.BLO,37,4,BMI,4 

3.4, BNE ,3B.4,BPL,42,4, BRA .32,4, 

LBRA,22,5.BSR.141,4,LBSR,23,5,C 

MPX .188,2, CMPU, 4531 , 2 , CMPS .4540 

,2,DEC.122,3 

■60 DATA ÍNC.124.3.JSR.189.3.LDA 

.182,1, LDB , 246 , 1 , LDD ,252,2. LDS . 

4350.3.LDU.254,3,LDX.190,3,LDY, 

4286, 3. LSL, 120,3, LSR, 116.3 

70 DATA PSHS,52.1.PSHU.54,1.PUL 

S,S3.1.PULU,55,1.B0L.121.3,R0H, 

116. 3.RTS.57, ,STA,183,3.STB,247 

,3,STD.253.3,STS.4351,3.STU,255 
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CONVERSÃO AUTOMÁTICA DA 
LINGUAGEM ASSEMBLY PARA 


■ 
■ 


MANIPULAÇÃO DE PÚS-BYTES 
USO DE RÓTULOS 




CÓDIGO DE MAQUINA 


■ 


COMO COLOCAR CÓDIGO DE 


■ 


COMO CALCULAR SALTOS E 
DESVIOS 


■ 


MAQUINA NA MEMORIA 
AUMENTA A VELOCIDADE 



80 DATA STX. 191 . 3.STY .4287, 3 , SU 
BA . 1 76 , 1 , SUBD .179.1. ANDA , 1 BO , 1 . 
ABX, 58, . ANDCC. 76. 1 . ASR, 119. 3 . RT 
1,59, .SBCA, 17B. 1 ,NOP, 18, ,NEG,11 

2,3 

90 DATA BITA.181.1,BGE.44.4,BGT 
,46,4,BHI.34.4.BLE,47.4.BLS,35, 
4 , BLT .45.4. BRN .33.4. BUC , 40 , 4 , BV 
S.41.4,EXG.30.1,TFH,31.1 
100 DATA COM ,115,3. CU AI ,108,1 , D 
AA. 25, , EORA , 184, l.TST, 125,3, LEA 
S , 66 , 3 , LEAU .67,3. LEAX . 64 . 3 . LEAV 
,65,3,MUL,61. ,ORA,138.1,ORB,202 
. 1 

110 DATA ORCC, 74 . 1 , SEX , 29, . SWI . 

63. ,SWI2,4159, .SWI 3, 441 5. ,SYNC. 

19. , EQU, -1 , 2 , FCB, -2 , 1 , FDB, -3 , 2 , 

RMB , -4. , JMP, 126 , 3 

120 DIM XS (13) ,V(14) .KKU3) ,YS ( 

13) 

130 FOR C-0 TO 12 : HEAD XS(C).V< 

C) .KK(C) ,YS(C) : NEXT 

140 DATA PCR .253,7, , PC, 253, 8, D, 

— ,243,1, X,-. 242,1. Y,X, 159. ,U,Y 

,191. ,8,0,223,, PC 

150 DATA 3, 255, , ,++ , 241 , 1 , ,+, 24 

0,1,A,A,246.1,B,B.245.1,CC,D,25 

1. l.DP 

160 FOR J-0 TO 9 : READ PUSfJKPU 
(J) :NEXT 

170 DATA PC, 128, U, 64. S, 64. Y, 32, 

X,16,DP,6.D,6.B,4.A.2,CC.l 

1B0 CLS:PRINT 64 3 , " ASSEMBLER"RS 

RSTAB (8 ) "G-LER DO GRAVADOR" RSSS 

TAB[8) "S-SALUAR NO GRAVADOR " R SR 

$TAB(8) "A "MO NT AR" 

190 PRINT €296 , "E-EDITAR LINHA" 

RSRSTAB (8) "D^APAGAR LINHA"R3RST 

AB(8)"L-LISTAR NA TELA" 

200 AS-INKEY$:IF AS-"" THEN 200 

210 JJ-INSTR("GSEDLA",A3) 

220 IF JJ-0 THEN PRINT "<"AS">I 

NVALIDO":FOR J-l TO 1000:NEXT:G 

OTO 180 

230 CLS:ON JJ GOSUB 1420,1450,1 
490 , 1710, 1760. 280 
240 PRINT «0, "PRESSIONE <ENTER> 
PARA CONTINUARQUALQUER OUTRA T 
ECLA PARA MENU PRINCIPAL" 
250 A5'INKEYS-IF A$="" THEN 250 
260 IF ASORS THEN 180 
270 ON JJ GOSUB 1420,1450,1700. 
1710, 1650. 290:GOTO 240 
280 K-0:K9-0:PO-0 
290 PS-0 

300 PS=PS+1:IF PS<4 THEN K = K0 : P 
=P0:PRINT «1. "INICIO DA ETAPA" P 
S:GOTO 330 
310 PO=P:RETURN 

320 IF PS = 3 THEN PRINT " ERRO D 
E POSBYTE" 



330 GOSUB 1320 

340 GOSUB 1260 : OPS=CS : IF LEFTS í 
OPS.D-""" AND PS-3 THEN PRINT 
OPS 

350 IF LEFTS(OPS.l)-"*" THEN 33 
0 

360 IF OP$="END" AND PS=3 THEN 
PRINT : PRINT" FIM. ULTIMO ENDE 
RECO" ; P-l 

370 IF OP3-"END" THEN 300 

380 IF OPS<>"ORG" THEN 420 

390 GOSUB1260 : S=0 ■ IF LEFTSíCS.l 

)_-*- THEN S=P-C$=MID$(C$,2) 

400 P-VAL (CS) +S: IF PS-3 THEN PR 

INT : PRINT" ORG";P 

410 GOTO 330 

420 IF P-0 AND PS-3 THEN PRINT" 

FALTA ORG" :P=35Q00 
430 CC=0^DF=O 

440 C-INSTR (SKS (CC) , OPS) : IF CO 

0 THEN GOSUB 530;GOTO 570 

450 C-INSTR (SKS (CCJ . LEFTS (OPS . 3 

)):IF COO AND RIGHTS (OPS , 1)<"C 

" AND MIDS(SKSICC) ,C+3.1X"A" T 

HEN GOSUB 530:GOTO 540 

460 IF COO AND RIGHTS (OPS . 1 ) "" 

B" GOSUB 530:GOT0 560 

470 C-INSTR (5KS (CO ,RIGHTS(OPS, 

3)):IF COO AND LEFTS (OPS . 1) ="L 

" GOSUB 530:GOTO 550 

480 CC=CC+lrIF CC<2 THEN 440 

490 IF PS-3 THEN PRINT OPS 

500 GOSUB 1350:Q3-Q2:RR(Q2)-P:I 

F CS-"" THEN 340 

510 IF PS«3 THEN PRINT " LINHA 

NAO RECONHECIDA" 

520 GOTO 330 

530 C=VAL(MIDS(SKS(CC) ,C-2,2)) : 
RETURN 

540 OP-K1 (C)-32 + 16* (RIGHTSIOPS. 
1J--A-) :K2=0:GOTO 5B0 
550 OP-K1 (C) +4096 : K2=5 :GOTO 580 
560 OP-K1 (C) +64 :K2-1 :G0TO 580 
570 OP-K1 (C) :K2-K2 (C) 
580 IF PS=3 THEN BY=P/256 : GOSUB 
1240:BY-P-32768:GOSUB 1240:PRI 
NT" "OPS: 

590 IF OP>-l THEN 740 

600 GOSUB 1260:ADS=CS:IF PS=3 T 

HEN PRINT " " LEFTS (ADS , 10 ; 

610 ON -OP GOTO 620,630,660,730 

620 GOSUB 1860:IF NU-0 THEN RR ( 

Q3)=-R:GOTO 330 ELSE 1050 

630 IF PS=3 THEN PRINT TABI20); 

640 GOSUB 690:BY=255ANDR:GOSUB 

1230 

650 IF BS-ADS THEN 330 ELSE 640 
660 IF PS-3 THEN PRINT TABI20); 
670 GOSUB 690:BY-INT(R/256) :GOS 
UB 1230:BY-R-256*BY:GOSUB 1230 
680 IF B$=ADS THEN 330 ELSE 670 I 
690 NN^INSTR (ADS , " , " ) : IF NN=0 Tl 




HEN BS-ADS:G0TO 710 

700 BS-LEFTS (ADS.NN-1) :ADS-MIDS 

(ADS. NN+1) 

710 IF LEFTSfBS.D-"3" THEN R-V 
AL("i.H"+MIDS(B5,2))ELSE R=VAL(B 

S) 

720 EtETURN 

730 GOSUB 1660 : IF NU-0 THEN P-P 
+R:GOTO 330 ELSE 1050 
740 B-239:ÍF K2-0 THEN 1140 
750 GOSUB 1260:ADS-C$:IF PS-3 T 
HEN PRINT " " LEFTS (ADS 1 9j i 
760 IF K2>3 THEN 1040 
770 IF(K2<>3 OR (LEFTS (OP$ . 2) -" 
LD" ) ) AND LEFTS (ADS. D THEN 
ADS-MIDSÍADS. 2) : DF-1 : 0P-0P-48 : 
GOTO 1040 

780 IF RIGHTS {ADS . D "" ) " THEN A 
DS-MIDS(ADS,2. LENÍADSJ-2) :8=B+1 
6 

790 IF OP<52 OR OP>55 THEN 670 

800 K2-1:R-0:AAS-ADS 

810 NN-INSTR (AAS . " . " ) : IF NN-0 T 

HEN US-AAS:GOTO 830 

820 US-LEFTS(AAS.NN-l) :AAS-MIDS 

(AAS , NN+1 ) 

830 IF US-RI6HTS (OPS. 1) THEN 320 

840 NN--1 : FOR J-0 TO 9:IF US-PU 

S (J) THEN NN-J 

650 NEXT: IF NN<0 THEN 320 

860 R-R ORPU(NN):IF US-AAS THEN 

1140 ELSE 810 
870 K2-3:C-INSTR(ADS.".") :IF C- 
0 THEN 1040 

880 IF 0PO30 AND 0PO31 THEN 9 

50 

890 NN-INSTR (ADS. ","): US-LEFTS ( 
ADS.NN-1) :GOSUB 930 : Nl-H-1 : IF H 
■=0 THEN 320 

900 US-KIDS [ADS. NN+1) :GOSUB 930 

:N2-H-1:IF H-0 THEN 320 

910 IF(8ANDN1)<>(8ANDN2) THEN 3 

20 

920 R=16*Nl+N2:K2-l:GOTO 1140 
930 FOR J-l TO 12:IF XS(J).-U3 T 
HEN H-J 

940 NEXT : RETURN 

950 C2-C+l:FOR J-0 TO 12:L-LEN( 
XS(J>>:IF MIDS(ADS.C2.L)OXS(J) 

THEN 980 
960 IF (B ORV(J)) AND 239<239 T 
HEN 320 

970 C2-C2+L:B-B AND V(J!:IF KK ( 

Jl THEN K2=KK(J)-1 

960 IF J-9 THEN J2-C2 : C2-C2+ (C2 

-1)«(K2<6) 

990 NEXT 

1000 IF(15 AND B)-15 THEN B-B-6 
1010 IF PS-3 AND J2<-LEN(ADS)AN 
D K2<>7 THEN PRINT -ERRO DE IND 
EXACAO":GOTO 330 

1020 IF(K2-0 AND C>2) OR (MIDS( 
AD3+" . " , J2 . 1) O" . ") AND PS=3 TH 
EN PRINT " ERRO DE ENDEREÇAMENTO 
■ rGOTO 330 

1030 ADS-LEFTS(ADS.C-l) : IF J2-C 
THEN R-0:GOTO 1060 
1040 GOSUB 1860 : IF NU-0 THEN 10 
60 

1050 IF PS-3 THEN PRINT" ENDERE 

CAMENTO NAO ENTENDIDO" 

1060 IF K2-7 THEN K2-3:GOTO 108 

0 



1070 IF K2>3 THEN R-R-P-2+ (OP>2 
55)+(B<>239)+(K2>4) :R-R-( (K2-6) 
AND(R>-129>AND(R<126) ) :K2-K2-3 
1080 IF B-239 AND K2-3 THEN K2- 
2:IF R<256 AND DF-0 THEN K2-1 :0 
P-OP-32:IF(240 AND 0P)-8D THEN 
OP-OP-60 



1090 IF PS-3 AND((OP>31 AND OP< 
48)OR 0P-141)AND(R<-128 OR R>12 
7) THEN PRINT " DESVIO FORA DE F 
AIXA" : :GOTO 330 
1100 IF B-255 THEN B-159:K2-2 
1110 IF B<>239 THEN OP-OP-16:IF 
K2-3 THEN K2-2 : IF ABS(R+.5)<12 




1150 IF OP->0 THEN BV-OP/256:GO 
SUB 1220:BY-OP:GOSUB 1230 
1160 IF 80 239 THEN BY-B:GOSUB 
1230 

1170 IF K2-0 THEN 330 

1180 GOSUB 1200:IF K2 = Z THEN BY 

=R/256:GOSUB 1230 

1190 BY-R-256*INT (R/256) :GOSUB 

1230:GOTO 330 

1200 IF PS=3 THEN PRINT " "; 
1210 RETURN 

1220 IF INT<BY)=0 THEN RETURN 
1230 P=P+1:IF PS=3 THEN POKE P- 
1 . 255 AND BY 

1240 BY-255 AND BY : IF PS-3 THEN 

PRINT RIGHTS("0"+HEXS(BY) . 2) ; 
1250 RETURN 

1260 IF K>N THEN CS-"END" : RETUR 
M 

1270 K1-K9+1:IF K9>-LEN (TS !K) ) 
THEN CS-" FALTA MNEMÓNICO" : RETU 
RN 

12S0 K9-K1:IF MIDS (TS (K) . Kl . 1 ) - 
• ■ THEN 1270 

1290 IF K9>LEN í TS (K) ) THEN CS-MI 

DS (TS IK) ,K1 .K9-K1) : RETURN 

1300 IF MIDS(TSIK) . K9 . 1 ) O" " T 

HEN K9-K9+l:GOT0 1290 

1310 CS-MIDS (TS (K) ,K1 .K9-K1) :HE 

TURN 

1320 IF K90LEN (TS (K) ) AND PS-3 
THEN PRINT RIGHTS (TS (K) , LEN (TS ( 
Kl )-K9+l> ; 

1330 K-K+l :K9-0 : IF PS-3 THEN PR 
INT 

1340 RETURN 
1350 XS-"" 

1360 IF CS<"A" OR CS>-"[" THEN 
1380 

1370 XS-XS+LEFTSÍCS.l) :CS-MIDS( 
CS. 2) :GOTO 1360 
1380 IF CS<>" THEN RETURN 
1390 FOR Q2-1 TO VV:IF X5-ZS (Q2 
) THEN 1410 

1400 NEXT:VV-VV+1:2S(VV)«XS:Q2' 

VV:RR(VV)-23000 

1410 RETURN 

1420 CLS:M0TOR0N:PRINT 6161. "PO 
SICIONE O GRAVADOH, PRESSIONE Q 
UALQUER TECLA E APERTE <PLAY>." 
1430 US-INKEYStIF US="" THEN 14 

30 

1440 OPEN"I" . #-1 , "ASM" : PRINT" C 
ARREGANDO PROGRAMA" : INPUT |-1,H- 
:FOR J-l TO N ! INPUT #-l.TS(J):N 
EXT:CLOSE #-1: RETURN 
1450 CLS ! MOTORON ! PRINT #161. "PO 
SICIONE O GRAVADOR . APERTE < 
RECORD> E PRESSIONE QUALQUER 
TECLA." 

1460 US-INKEYS:IF U$-"" THEN 14 
60 

1470 OPEN"0".*-1."ASM-:PRINT" G 

RA VAN DO PROGRAMA": PRINT |-1,M:F 

OR J-l TO N : PRINT |-1 , TS ( J) ! NEX 

T:CLOSE |-1:RETURN 

1460 PRINT #-l,N:FOB J-l TO N:P 

RINT#-1,TS(J) : NEXT : CLOSEI-l : RET 

URU 

1490 PRINT " INTRODUZA O NUMERO 
DA LINHA (LI NHÃS NUMERADAS DE 
DEZ EM DEZ) " 



1500 INPUT K:CLS 

1510 K2-K/10:IF K2>N THEN K2-N+ 
1:N-N+1:TS(K2)-"":PRINT «480. 
1520 IF K2<.1 THEN K2- . 1 
1530 IF K2-INT(K2) THEN 1550 
1540 K2-INT(K2)+l:FOR K3-N TO K 
2-1 STEP -1:T${K3+1)-T5(K3) :NEX 
T:N=N+1:TS(K2)-"" 
1550 Pl-1478 : PO-P1 
1560 PRINT ê448,K;TAB(6)TS(K2) : 
P9-P0+LEN (TS (K2) ) 
1570 IF PKP0 THEN P1=P0 
1580 IF P1>P9 THEN Pl-Pl-1 
1590 P8-PEEK(P1) :POKE PI , 63 AND 
PB 

1600 P7=0:AS'INKEYS:IF AS-"" TH 
EN 1600 

1610 IF AS = RS THEN POKE P1,P8:R 
ETURN 

1620 IF AS-CHRS (9) THEN POKE PI 

. PB: Pl-Pl+1 :GOTO 1580 

1630 IF A$-CHRS(8) THEN POKE PI 

. P8: Pl-Pl-1 :GOTO 1570 

1640 IF AS-CHRSI10) THEN AS = ": 

GOTO 1670 

1650 IF AS-CHRS(94> THEN AS = " " 
+MIDS(TS(K2) ,P1-P0*1.1) :P7=-1:G 
OTO 1670 

1660 IF AS<" " THEN 1600 
1670 IF P1-P0+1>LEN(TS (K2) ) THE 
N TS(K2)-LEFTS(TS(K2) .P1-P0)+AS 
:GOTO 1690 

1680 TS (K2) -LEFTS (TS (K2) . P1-P0) 
+AS+RIGHTS (TS (K2) . LEN (TS (K2) ) -P 
1+PO-l) 

1690 P1-P1-(LEN(AS)>0)+P7:GOTO 
1560 

1700 PRINT 632,"":K-K+10:GOTO 1 
510 

1710 IF N=0 THEN CLS : PRINT" NAD 
A A APAGAR" : FOR C-l TO 1000 :NEX 
T: RETURN 

1720 CLS : PRINT" INTRODUZA NO DA 

LINHA (LINHAS NUMERAD 

AS DE DEZ EM DEZ) " 

1730 INPUT K:K2-K/10 

1740 IF K2>N OR K2<1 OR K20INT 

(K2) THEN PRINT" ESTA LINHA NAO 

EXISTE": RETURN 
1750 K-K2:FOR K3-K2 TO N:TS(K3) 
-TS(K3+1) :NEXT:N-N-1:PRINT «95. 
K*10;" ";TS(K) : RETURN 
1760 IF N-0 THEN PRINT " NADA A 

LISTAR" : FOR C-l TO 1000:NEXT:R 
ETURN 

1770 PRINT" INTRODUZA O NO DA 
PRIMEIRA E DA ULTIMA LINHA (L 
INHAS NUMERA-DAS EM MÚLTIPLOS 
DE 10)" 

1780 INPUT K,K2:K-INT(K) : K2-INT 

(K2) :K1-K/10:K2-K2/10 

1790 IF K2>N THEN K2-N 

1800 IF KK1 THEN Kl-1 

1810 IF K2<K1 AND K2-N THEN RET 

URN 

1820 IF K2<K1 THEN CLS:PRINT " 
CONJUNTO DE LINHAS INVALIDO" :GO 
TO 1770 

1830 CLS:PRINT ê96.;:FOR K3-K1 
TO K2:PRINT K3M0" "TS(K3):NEXT 
1840 RETURN 



1850 K-K2~K1:K1-K2+1:K2-K1+K:IF 
N-0 THEN 1760 ELSE 1790 




Illlllllll 



1860 NU-0 : R-0 
1870 S-l 

1880 1F ADS-" THEN HETURN 
1890 XS-LEFTS (ADS. 1) : BDS"MIDS (A 
D9,2):IF XS-"*" THEN R-R+P*S:AD 
S-BDS:GOTO 1870 

1900 IF XS-"+" THEN ADS-BDS:GOT 
O 1860 

1910 IF XS-"-" THEN ADS-BDS : S — 
S:GOTO 1880 

1920 Q=0:IF XS<>"*" THEN 1950 
1930 IF BDS>-"0" AND BDS<"2" TH 
EN Q=Q.*2+ASC(BDS)-48:BDS = MIDS<B 
DS .2) :GOTO 1930 

1940 R-R+íi*S:ADS-BDS:GOTO 1870 
1950 IF XS<>"5" OR BDS<"0" OR B 
DS>"F" THEN 1980 

1960 Q2-VAL("iH- + LEFTS(BDS,D) : 
BDS-MIDSÍBDS.2) : 0=0*16+0.2 : XS-LE 
FTS(BDS.l) 

1970 IF<XS>"/" AND XS<":"> OR t 
XS>"ê" AND XS<"G") THEN 1960 EL 
SE R=R+2*S :AD3-BD3 :GOTO 1870 
1980 IF XS<"A" OR XS>"Z" THEN 2 
010 

1990 C3-ADS:G0SUB 1350:IF C$<>" 
■ GOSUB 1390 

2000 R-R+RR(Q2)"S:ADS-CS:GOTO 1 
870 

2010 IF XS<"0" OR'X3>"9" THEN R 
«0:NU-1:RETURN 

2020 IF ADS>"/" AND ADS<":" THE 
N Q-0*10+ASC<ADS>-48:ADS=MIDS(A 
DS.2) :GOTO 2020 
2030 R-R+S*Q:GOTO 1870 



COMO FUNCIONA 0 PROGRAMA 



Não se esqueça de reservar um espa- 
ço suficienie dc memória para seu pro- 
grama, usando CLEAR antes de 
rodá-lo. 

Para introduzir o seu programa pres- 
sione a tecla E. Ele pedirá então um nú- 
mero de linha. Neste programa cada ins- 
trução em mnemónico deve ser introdu- 
zida em uma linha de BASIC. E preci- 
so também que os números de linha se- 
jam múltiplos de 10 e cada linha conte- 
nha apenas um comando Assembly com 
seus respectivos operandos. 

A primeira linha deve abrigar o en- 
dereço inicial da porção da memória on : 
de será colocada a rotina em código. E 
necessário que esse endereço esteja na 
área reservada por CLEAR. Para espe- 
cificar sua origem, usamos o comando 
ORG seguido do endereço inicial. 

Se um endereço inicial não for espe- 
cificado, o programa tentará posicionar 
o Assembler a partir do endereço 35000, 
que pertence à memória ROM. O resul- 
tado não será satisfatório, uma vez que 
não se pode colocar códigos na ROM. 
O programa procede assim para evitar 
que o Assembler seja colocado em uma 

Fárea prejudicial ao funcionamento da 
— 




usado, o programa comunica: "origem 
não encontrada". 

Normalmenic, são utilizados os mne- 
mónicos padrão do 6809. Números he- 
xadecimais devem ser precedidos de $ 
(cifrão), números binários, de °/a (por- 
cento). Algarismos sem prefixo são con- 
siderados decimais. 

Alguns Assembler para o TRS-Color 
reconhecem códigos ASCII, se estes fo- 
rem precedidos de ' (apóstrofo) ou I 
(ponto de exclamação). Não é o caso de 
nosso programa. Assim, o comando 
FCC, que manipula caracteres ASCII, 
não pode ser usado. 

Para editar linhas, empregue as teclas 
do cursor. As setas "direita" e "esquer- 
da" movimentam o cursor ao longo da 
Unha; a seta "para cima" insere e a se- 
ia "para baixo" apaga. 

A última linha do programa deve ser 
END; o Assembler criará uma linha des- 
se tipo, caso esqueçamos de fazè-lo. 

Se, depois de digitarmos uma linha, 
pressionarmos outra tecla que não EN- 
TER, o programa voltará ao menu. Se 
então pressionarmos L, os mnemónicos 
serão listados para uma conferência. 

Caso haja algum erro, retorne ao me- 
nu e pressione E. Especifique então o 
número da linha a ser corrigida. 

Se quisermos inserir uma nova linha 
entre duas já existentes, devemos entrar 
no modo de edição e dar a ela um nú- 
mero intermediário. Uma nova listagem 
mostrará a nova linha no lugar correto, 
sendo que todas as linhas terão números 
múltiplos de 10. Apenas uma iinha de ca- 
da vez pode ser inserida dessa maneira. 

Para apagar uma linha, retorne ao 
menu e pressione D. Especifique então 
o número da linha a ser apagada. Quan- 
do não houver mais modificações a fa- 
zer, retorne ao menu e pressione A. O 
programa em Assembly será então "mon- 
tado" na memória. Quando o processo 
terminar, o endereço final do programa 
em código será mostrado na tela, 

A opção de gravação — tecla S — 
grava apenas o programa em Assembly 
ou programa fome. Para gravar o As- 
sembler, use o caminho normal. Para 
gravar o programa cm código — ou pro- 
grama objelo — - é necessário sair do As- 
sembler usando a tela BREAK: 

CS AU EM "NOME" , INICIO, FIM, 
DEFEXEC 

NOME é a denominação do progra- 
ma; INÍCIO é o endereço inicial defi- 
nido por ORG; e FIM, o endereço final 
fornecido pelo programa após a 
montagem. 

O último número, DEFEXEC, diz ao 
TRS-Color por onde começar a execu- 
tar a rotina em código. Geralmente, ele 
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COMO ENCONTRAR ERROS EM 
PROGRAMAS LONGOS 

Mesmo o programador mais expe- 
riente terá problemas em digitar progra- 
mas longos como esse Assembler. Não 
importa a destreza de seus dedos: ta 
talmente, em algum lugar, um erro se- 
rá cometido. 

Muitos desses erros são encontra 
dos quando se confere a listagem. As 
mensagens de erro do micro ajudarão 
também, se procurarmos saber o que 
significam. 

Tais mensagens, contudo, podem 
não ser suficientes para detectar o lo- 
cal de um erro em um programa muito 
longo. Nesses programas, uma linha 
pode ser executada sem problemas 
muitas vezes, só vindo a provocar um 
erro quando uma variável assumir um 
valor incompatível devido a um erro de 
digitação cometido em outra parte do 
programa. 

Felizmente, o TRS-Color conta com 
uma função de rastreamento — frace 
— , que facilita a localização de erros. 

Tal função é ativada pelo comando 
TRON. que deve ser usado no modo 
imediato, sem número de linha. Quan- 
do rodamos o programa, ela nos mos- 
tra o número da linha que está sendo 
executada. 

Para desativar a função de rastrea- 
mento, use o comando TROFF. 



é igual ao endereço inicial. Agora pode- 
mos montar qualquer programa a par- 
tir de sua listagem em Assembly. 



UM TESTE 



Para testar o Assembler, digite o pro- 
grama de deslocamento da tela para a 
direita apresentado na página 219. Esse 
programa resultará nos seguintes 
códigos: 

8E 06 00 E6 82 34 04 C6 IF A6 
82 A7 01 5A 26 F9 35 04 E7 84 
8C 04 00 2E EA 39 

Em algumas das máquinas compatí- 
veis com o TRS-Color é possível aumen- 
tar a velocidade do programa acrescen- 
tando POKE 65495,0 no início da linha 
180. Se isto for feito, devemos modifi- 
car outras linhas a fim de que a alta ve- 
locidade não prejudique a gravação em 
fita. Assim, adicione POKE 65494,0 ao 
início das linhas 1420 e 1450. 



